MiKloSS
31-10-2008, 02:10:45
Pues esa es mi duda, como hacer para cortar un ticket
despues de que se imprimio, la impresora es una Samsung
Bixolon, le intente con este codigo pero no me dio, si
alguien se supiera los codigos estaria muy agradeido... salu2
aqui tienen el codigo
procedure TF_RptTicket.QRTicketAfterPrint(Sender: TObject);
var
f:TextFile;
begin
AssignFile (f,'LPT1');
Rewrite(f);
Write (f, #29+'V'+#66+#20);
Writeln (f, #29+'V'+#66+#20);
CloseFile(f);
end;
despues de que se imprimio, la impresora es una Samsung
Bixolon, le intente con este codigo pero no me dio, si
alguien se supiera los codigos estaria muy agradeido... salu2
aqui tienen el codigo
procedure TF_RptTicket.QRTicketAfterPrint(Sender: TObject);
var
f:TextFile;
begin
AssignFile (f,'LPT1');
Rewrite(f);
Write (f, #29+'V'+#66+#20);
Writeln (f, #29+'V'+#66+#20);
CloseFile(f);
end;