JUSTIFY.APP is a CW 2003 app that generates a library to perform BOTTOM JUSTIFICATION of TEXT BOX FIELDS.

JUSTIFY.APP has two functions:

  Justify(REPORT rpt, SHORT FieldID),LONG
  ResetHeight(REPORT rpt, SHORT FieldID, LONG OldCtlData)

Justify takes the Report label and the FEQ of the Textbox field in the report as its two arguments. It returns a LONG, which must be maintained as it contains the information for RESTORING the specified field to its original size and location after printing.

SETUP:

Justify.app is a dct-less app. You may find it necessary to set your Setup | Application Options menu item to not require dictionaries.

Compile justify.app as either 16 or 32 bit as necessary.

Create a justify.inc file containing these two lines:

  Justify(REPORT rpt, SHORT FieldID),LONG
  ResetHeight(REPORT rpt, SHORT FieldID, LONG OldCtlData)

ADDING TO AN APP:	

Use the Insert Module in the Application menu to add the justify.lib as an external lib. Specify the justify.inc file in the INC file area of the Insert Module dialog.

USAGE:

If we have a Report labelled "MyReport" and containing the field "MyMemo" that needs to be resized, define a variable for that field: 

MyMemoSize  LONG

Then, in the "Before Printing Report Detail" embed, code:

  MyMemoSize = Justify(MyReport,?MyMemo)

Do this for ALL fields needing resizing.

In the "After Printing Report Detail" embed, code:

  ResetHeight(MyMemoSize)

Again, do this for ALL fields that have been resized in the "Before Printing Report Detail" embed.

That's it!

HTH!

Craig (The Data Ferret)