FiveTech Software tech support forums

This is driving me insane!

Does anyone have a routine that will right justify text on a printer.

I am using the 'Courier New' font which does not appear to be a proportional font but still do not seem to get it right.

In the 'old' DOS days we would say:

@ 0, 80 - Len( cVar1 ) Say cVar1
@ 1, 80 - Len( cVar2 ) Say cVar2

but this does not work in windows.

I have been pulling my hair out the whole morning with this (type) of code:

...

Define Font oFont;
Name 'Courier New';
Size 15, 50

Print oPrn Name 'Report' From User

If Empty( oPrn:hDC )
oPrn:End( )
Return ( NIL )EndIf

oPrn:SetFont( oFont )

nRowStep := oPrn:nVertRes( ) / 66 // 66 rows
nColStep := oPrn:nHorzRes( ) / 80 // 80 cols

oPrn:SetPortrait( )

Page

nRow += nRowStep
oPrn:Say( nRow, ( nColStep * 80 ) - (nColStep * ( Len( 'D' ) ) ), 'D' )

nRow += nRowStep
oPrn:Say( nRow, ( nColStep * 80 ) - (nColStep * ( Len( 'DD' ) ) ), 'DD' )

EndPage

EndPrint

oPrn:End( )

etc. etc.

If you keep repeating the lines above the text 'creeps' to the left.

Any ideas?

Regards,

Dale.

Have a look at the eighth parameter of TPrinter:Say() method (nPad).

EMG

RPAD not run efectively in many situations, Try this:

nRightMargin := xxx pixels
oPrn:Say( nTop,nRightMargin-oPrn:GetTextWidth( cText , oFont ),cText,oFont )

You could build a function to only right justify all cTexts. (excuse my english)

Try this:

LPAD(myvariable, 12) for character strings

(your variable can be a field name of course, and the number 12 is how many spaces will be added infront of the variable/field.
Same way as it is required to use: Str(nNumber, 12,2) for numbers

I hope I gave you an idea to help you.

Regards
Evans

James Bott wrote:

Code: Select all

EndPrint

oPrn:End( )

You don't have to issue the latter as it is included in the function called by EndPrint command (PrintEnd()).

EMG