[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

Re: Cartridge font



Frederic,

Are you working on UNIX or Windows ?
I will recommand you to execute your code
and work on the lis file generated.
envoie le fichier sur ton imprimante
si cela ne fonctionne pas edite le fichier et modifie ton code escape de
changement de font.
une fois mis au point retourne sur sqr et inclus tes modifications dans
le print-direct.

Franck,


Frédéric LeRoulley wrote:
>
> Hi,
>
> 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
>
begin:          vcard
fn:             Franck Masson
n:              ;Franck Masson
org:            Brio Technology EMEA
adr;dom:        Le capitol;;55 av. des champs Pierreux;Nanterre;92000;;
email;internet: franck.masson@brio.com
title:          Sales Manager Northern Europe
tel;work:       33 1 55 69 36 00
tel;fax:        33 1 47 25 02 59
tel;home:       Mobile : 33 6 84 80 17 05
x-mozilla-cpt:  ;0
x-mozilla-html: FALSE
version:        2.1
end:            vcard