Posted by Doug Pegg on December 18, 2005 at 15:00:32:
In Reply to: Re: CAW & SelectSysFont posted by Brian Levantine on December 15, 2005 at 12:49:29:
Hi Brian,
Thanks for the /DEBUG tip.
Here are the results of the test (COSP log window first).
It seems that the first SelectFont is written when the printer opens.
The second line is supposed to print Font-4 from [PRINTER FONTS]- compressed/bold.
The third line is supposed to print Font-1 from [PRINTER FONTS]- compressed/normal.
The programme (a Customer list) is trying to print report headings in BOLD & COMPRESSED (SELECTSYSFONT=4). The body of the report is supposed to print in COMPRESSED NORMAL (SELECTSYSFONT=1).
The [PRINTER FONTS] section is in all occurrences of COSW.INI on the server and the CAW client that I can see (unless there is a COSW.INI file in /users or /all users?).
09:12:08 12/19/2005
09:12:08 Startup
09:12:21 (5): Thread started (0): Open successful (LP7:CL (T08))
09:12:21 (5): SelectFont:Courier New, 240, -144, 400, 0, 0
09:12:36 (5): SelectFont:Courier New, 240, -96, 400, 0, 0
09:12:36 (5): SelectFont:Courier New, 240, 0, 400, 0, 0
09:12:37 (5): PrintLine: NewPage detected - ending current page
09:12:38 (5): PrintLine: NewPage detected - ending current page
09:12:38 (5): Printer closed
09:12:38 (5): Thread ended
09:12:38
Printer fonts in COSW.INI.
[Printer Fonts]
Font-0=Courier New, 12, 11, 0, 6
Font-1=Courier New, 12, 18, 0, 6
Font-2=Courier New, 12, 6, 0, 3
Font-3=Courier New, 12, 11, 700, 6
Font-4=Courier New, 12, 18, 700, 6
Font-5=Courier New, 12, 6, 700, 3
Font-6=Courier New, 12, 12, 0, 6
Font-7=Courier New, 12, 12, 700, 6
I tried another test with all printer fonts duplicated for LP7 but same results.
Finally, the use file (!PRNTFNT) from my CED program.
100 ! ROUTINE FOR PRINTING SYSTEM FONTS FOR WINDOWS
200 ! TESTING ZPT$='N' - PRINT NORMAL FONT - SYSTEM FONT 0
300 ! ZPT$='C' - PRINT COMPRESSED FONT - SYSTEM FONT 1
400 !************************************************************!
500 IF ZPT$ = 'N'
600 IF BOLD$ = 'N'
700 PRINT (1) (TR);(SELECTSYSFONT=0)
800 ENDIF
900 IF BOLD$ = 'Y'
1000 PRINT (1) (TR);(SELECTSYSFONT=3)
1100 ENDIF
1200 ENDIF
1300 IF ZPT$ = 'C'
1400 IF BOLD$ = 'N'
1500 PRINT (1) (TR);(SELECTSYSFONT=1)
1600 ENDIF
1700 IF BOLD$ = 'Y'
1800 PRINT (1) (TR);(SELECTSYSFONT=4)
1900 ENDIF
2000 ENDIF
2200 ULINE$ = STRING('@5F@',132)
2400 !*************************************************************!