I have to use a specific font for a bank report. This font is in the cartridge font of the printer (hplaserjet) so I tried to use the statement PRINT-DIRECT to send the escape sequence corresponding to this font to the printer but nothing changes.... do you have any idea ?
Any help would be appriecate.
Fred
PS : here is my test code
#Include 'setenv.sqc' !Set environment
!-----------------------------------------------
begin-setup
!-----------------------------------------------
declare-printer HPLASERJET
init-string = <27>&l3A
type=HPLASERJET
Point-size = 12
symbol-set = (0N
pitch = 13
font-type = fixed
font=1
end-declare
declare-Layout default
paper-size = (Legal)
orientation = landscape
top-margin = .25
bottom-margin = .25
left-margin = .25
right-margin= .25
end-declare
End-setup
!-----------------------------------------------
Begin-program
!-----------------------------------------------
use-printer-type HPLASERJET
print 'Ceci est la font par défaut' (1,1)
encode '<27>(8U<27>(s0p16.67h8.5v0s0b0T' into $msg
print-direct $msg
print 'Après test voici la font !!' (+1,)
end-program