Posted by Gerry B on February 20, 2007 at 15:36:52:
Currently using most recent version of Comet2007, REL, & UTL.
Been using laser generated forms(textout) for several years, recently came upon a request by a customer to print a column of numbers on the right end of a 35 character string field. When this info gets printed the numbers are not aligned or more specifically the decimal points are not aligned(proportional printing is happening). In researching Fixed Length Fonts was able to determine the "Courier" is a fixed length font, in fact, went out to a Word document, tried it and it worked fine. So the question, has anybody had success printing this type of data in Comet and/or what is missing from coding below.
PRINTCOMMENT:
Gosub GDI.InitLogFont
lfHeight$ = INTELD(10*20)
lfFaceName$ = "Courier"+NullByte$
lfWeight$ = INTELD(FW.Normal)
GoSub SetFont
X1 = TWIP.INCH+TWIP.EIGTHINCH
Data$ = OCOM$
Print (Lun) (TR); (TR);(TextOut = X1, Y1);Data$;NullByte$
RETURN
!
SetFont:
PRINT (#, LogFont)
INPUT (#) Data$
PRINT (Lun, Fmt.SelectFont)
Gosub CalcLineHeight
Return ! SetStandardFont