Wydruk testowy - kod progamu (Delphi,
Pascal)
Procedura lprint
wysy³a dane do drukarki.
Procedura lprintln wysy³a dane oraz CR+LF (znak koñca
wiersza) do drukarki.
Procedura TabAsc wysy³a do drukarki znaki pe³nej tablicy
znaków ASCII.
Dostêpne s± 2 matryce znaków: 9*24 (92 cpl) oraz 12*24 (69 cpl).
Esc:=#27;
GS:=#29;
reset:=Esc+'@'+ESC+'!'#0+ESC+'t'+#3; {inicjalizacja, #0=69
cpl, #1=92cpl; #3=Mazovia, #4=Win1250,
#5-Latin2}
lprint(reset);
lprintln(Esc+'!'#56' Test drukarki W-40'+Esc+'!'#0); {ustawienie czcionki 2x,2y, druk
tekstu, ustawienie czcionki normal}
lprintln(' Mamy
zaszczyt przedstawiæ jej mo¿liwo¶ci');
lprint(Esc+'L');
{wej¶cie do trybu stronicowego}
lprint(Esc+'W'#0#0#0#0#64#3#145#0); {ustawienie obszaru druku (okna)
o wspó³rzêdnych 0, 0, 832, 145}
lprint(GS +'i'#50#2#135#0#3);
{wydruk
prostok±ta dx=50+2*256, dy=135 pikseli, grubo¶æ 3 pkt}
lprint(Esc+'O'#10#0#10#0);
{ustaw punkt startowy o
wspó³rzêdnych x=10, y=10 w oknie}
lprint(GS +'i'#50#2#135#0#3);
{wydruk
prostok±ta dx=50+2*256, dy=135 pikseli, grubo¶æ 3 pkt}
lprint(Esc+'O'#0#0#0#0#10+GS+'L'#18#0); {ustaw punkt startowy 0,0; LF,
lewy margines 18 pkt}
lprint(GS+'B'#1);
{w³±cz wydruk w kontrze (reverse)}
lprintln(' **
Us³ugi Komputerowe Or³owski S³awomir **'+GS+'B'#0);
{drukuj tekst i
wy³±cz kontrê (reverse)}
lprintln(Esc+'E1 **
97-400 Be³chatów, os. Okrzei 6/288 **'+Esc+E0'); {pogrubienie, drukuj tekst,
pogrubienie}
lprint(' ** tel./fax
44 633-20-51 ,'+Esc+'-1www.uskomp.pl'+Esc+'-0 **');
lprint(#12);
{wydrukuj i przejd¼ do normalnego
trybu}
lprintln(reset);
{inicjalizacja, usuñ lewy
margines, itp.}
TabAsc;
{procedura drukujaca tablicê
kodów ASCII}
lprintln('Kody UPC-A,
UPC-E, Ean13, Ean8, Code39, Code93, Codabar, PDF417 (2D)');
lprintln('Przyk³ad kodu paskowego dla ITF (i2/5):');
sx:='123456789012345678901234567890';
lprint(GS+
'w'#2);
{szeroko¶æ
paska 2 pkt, domy¶lnie =0 - nieco wê¿szy kod}
lprint(GS+
'h'#46+GS+'H'#1);
{wysoko¶æ
46 pkt (domyslnie=80), #1-wydruk HRI pod kodem}
lprint(Esc+'O'#10#0#0#0);
{ustaw punkt startowy x=10, y=0}
lprint(GS+ 'k'#70+chr(Length(sx))+sx+#10); {drukuj kod #70=ITF, #71=Codabar,
#72=Code93,.}
lprint(reset);
{przywróæ ustawienia w
zmiennej reset}
lprintln('69 cpl -
Polskie znaki A¡CÆEÊL£NÑOÓS¦Z¬¯
a±cæeêl³nñoós¶z¼¿');
lprint('Normal '+Esc+'E1bold '+Esc+'-1underline+bold '+Esc+'E0underline'+Esc+'-0
');
lprintln(GS +'B1reverse '+Esc+'E1reverse+bold '+Esc+'-1r+b+u'+Esc+'-0'+Esc+'E0'+GS+'B0');
lprintln(Esc+'!'#0'A¡BCÆa±bcæ '+Esc+'!'#8'A¡BCÆa±bcæ '+Esc+'!'#32'A¡BCÆa±bcæ
'+Esc+'!'#40'A¡BC¡a±bcæ');
lprintln(Esc+'!'#16'A¡BCÆa±bcæ '+Esc+'!'#24'A¡BCÆa±bcæ '+Esc+'!'#50'A¡BCÆa±bcæ
'+Esc+'!'#56'A¡BCÆa±bcæ');
lprint(Esc+'!'#1+Esc+#32#0);
{ustaw 92
cpl (matryca 9*24), odstêp miêdzy znakami 0 pkt}
lprintln('92 cpl -
Polskie znaki A¡CÆEÊL£NÑOÓS¦Z¬¯
a±cæeêl³nñoós¶z¼¿');
lprint('Normal '+Esc+'E1bold '+Esc+'-1underline+bold '+Esc+'E0underline'+Esc+'-0
');
lprintln(GS +'B1reverse '+Esc+'E1reverse+bold '+Esc+'-1r+b+underline'+Esc+'-0'+Esc+'E0'+GS+'B0');
lprintln(Esc+'!'#1'A¡BCÆa±bcæ '+Esc+'!'#9'A¡BCÆa±bcæ '+Esc+'!'#33'A¡BCÆa±bcæ
'+Esc+'!'#41'A¡BC¡a±bcæ');
lprintln(Esc+'!'#17'A¡BCÆa±bcæ '+Esc+'!'#25'A¡BCÆa±bcæ '+Esc+'!'#51'A¡BCÆa±bcæ
'+Esc+'!'#57'A¡BCÆa±bcæ');
lprint(Esc+'!'#0);
{ustaw 69 cpl (matryca 12*24)}
lprintln('Niezale¿ne
skalowanie znaków w pionie i poziomie a¿ do 8x');
lprintln('Logo firmy w pamiêci Flash drukarki (2 pliki w
formacie PCX)');
lprint(Esc+'L'+Esc+'f0'); {grafika=rybka; wejd¼ do trybu stronicowego,
druk logo 0 z pamiêci drukarki (dla
=1-drugie logo)}
lprint(GS +'L'#1#2);
{ustaw
lewy margines = 1 + 2*256 = 513 pkt}
lprint(GS +'!'#119'8x'#12); {ustaw czcionkê powiêkszon± 8x, 8y, wydrukuj
tekst "8x" i przejd¼ do normalnego trybu}
lprint(Esc+'!'#0);
{ustaw
normaln± czcionkê 69 cpl (12*24 pkt)}
lprint(Esc+'L'+Esc+'W'#0#0#0#0#130#0#130#0); {wejd¼ do trybu stronicowego i
ustaw obszar druku 0, 0, 130,130 pkt}
lprint(Esc+'T0W
prawo'+Esc+'T1do góry'+Esc+'T2w lewo'+Esc+'T3do do³u'+Esc+'T0');
lprint(Esc+'W'#0#0#0#0#64#3#130#0+Esc+'O'#140#0#45#0);
{ustaw obszar druku 0,0, 832,130 pkt}
lprintln(Esc+'!'#25'
** Dziêkujemy za uwagê i zapraszamy na zakupy! **'); {ustaw czcionkê bold+2x wysok±}
lprint(#12);
{wydrukuj i przejd¼ do normalnego
trybu}