Hola a todos, tengo un problema, y es que mi impresora de tickets (SAMSUNG BIXOLON SRP-275) al imprimir, lo hace y termina con medio papel dentro, con lo que tengo que darle al botoncito para que vaya sacando el rollo y finalmente cortarlo. Pero me gustaría hacerlo a través de códigos de escape, que no son cosa sencilla porque directamente no me sale
. Os pego el código que uso:
Código:
type
TDatos = Record
nLong : Integer;
bDatos : Array[0..255] of byte;
end;
procedure CodigoEscape(sImpresora: String; sCodigo: String);
var
PtImpresora: TPrinter;
DtCadena : TDatos;
Begin
PtImpresora := TPrinter.Create;
try
PtImpresora.PrinterIndex := PtImpresora.Printers.IndexOf( sImpresora );
PtImpresora.BeginDoc;
DtCadena.nLong := Length( sCodigo );
StrPCopy( @DtCadena.bDatos, sCodigo );
Escape( PtImpresora.Handle, PASSTHROUGH, 0, @DtCadena, nil );
PtImpresora.EndDoc;
finally
FreeAndNil( PtImpresora );
end;
end;
Simplemente no funciona, y me gustaría saber si hago algo mal, o no se. Un saludo y mil gracias.