Prikazi cijelu temu 19.12.2013 17:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Var
  2.    fajl: file;
  3.   Podesenje, Tekst, Reset: string;
  4.  begin
  5.       Podesenje:=         #27'@' +     // inicijalizacija printera
  6.                           #27#48 +     // prored
  7.                           #27#80 +     // 10cpi
  8.                           #27#108#0 +  // Poravnanje lijevo
  9.                           #27#67#0#9; // Velicina stranice u incima
  10.       Tekst:= 'neki tekst koji treba da se stampa';
  11.       Reset:= #27'@';
  12.  
  13.       AssignFile(f, 'LPT1:');
  14.       try
  15.         Rewrite(fajl);
  16.         Write(fajl, podesenje+ Tekst + Reset);
  17.       finally
  18.         CloseFile(fajl);
  19.       end;
  20.  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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 3 puta. Posljednja izmjena 19.12.2013 17:55 od strane zxz.