Pozdrav,
radim neku malu aplikaciju za štampanje viramana, pa me interesuje dal neko zna kako podesiti sa kodovima (u txt fajlu) štampač da posle odštampanog virmana izvuče papir na poziciju za sečenje, a posle prilikom nove štampe da vrati papir na početnu poziciju?
kod:
Unapred se zahvaljujem!
radim neku malu aplikaciju za štampanje viramana, pa me interesuje dal neko zna kako podesiti sa kodovima (u txt fajlu) štampač da posle odštampanog virmana izvuče papir na poziciju za sečenje, a posle prilikom nove štampe da vrati papir na početnu poziciju?
kod:
Code:
var
Lista: TStringList;
Zaglavlje: String;
begin
Zaglavlje:= #27'@' + // Reset
#27#108#0;// + // Leva margina = 0
#27#67#0#4; // Velicina stranice u incima ( 4 = 10.2 cm)
Lista:=TStringList.Create;
try
Lista.Append(Zaglavlje);
Lista.Append('Firma...');
....
Lista.Append(#12);
Lista.SaveToFile('d:\vir.txt') ;
finally
Lista.free ;
CopyFile(pchar('d:\vir.txt'),pchar('LPT1:'),false);
end;
var
Lista: TStringList;
Zaglavlje: String;
begin
Zaglavlje:= #27'@' + // Reset
#27#108#0;// + // Leva margina = 0
#27#67#0#4; // Velicina stranice u incima ( 4 = 10.2 cm)
Lista:=TStringList.Create;
try
Lista.Append(Zaglavlje);
Lista.Append('Firma...');
....
Lista.Append(#12);
Lista.SaveToFile('d:\vir.txt') ;
finally
Lista.free ;
CopyFile(pchar('d:\vir.txt'),pchar('LPT1:'),false);
end;
Unapred se zahvaljujem!
Potpis
Nikad izvini!