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:
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!