Predmet:Re: Matrični printeri (Epson LX-300) Uplatnica?
Jel tebi trebaju u stvari kodovi za printer stampu kao sto je gore
Gjoreski postavio primjer.
Primjer:
PreuzmiIzvorni kôd (Delphi):Var
fajl: file;
Podesenje, Tekst, Reset: string;
begin
Podesenje:= #27'@' + // inicijalizacija printera
#27#48 + // prored
#27#80 + // 10cpi
#27#108#0 + // Poravnanje lijevo
#27#67#0#9; // Velicina stranice u incima
Tekst:= 'neki tekst koji treba da se stampa';
Reset:= #27'@';
AssignFile(f, 'LPT1:');
try
Rewrite(fajl);
Write(fajl, podesenje+ Tekst + Reset);
finally
CloseFile(fajl);
end;
end;
Za popunjavanje one uplatnice to ce biti muke po mati i sa kodovima.
Mozda ****je bilo preko kristal reporta.
tamo je to lakse nastimati nego sa kodovima.
E sad do tebe je kako ces se odluciti.
Pretpostavljam da imas jos neke stampe sem ovog pa da korsitis kristal report.
Poslije cemo ovo prebaciti u pascal forum.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
3
puta. Posljednja izmjena 19.12.2013 16:55 od strane zxz.