Hola,
Creo que necesitas escribir directamente en la impresora, prueba con el siguiente código:
unit Escribe_directo;
interface
uses printers, WinProcs, WinTypes, SysUtils;
Procedure Prueba_impresora;
implementation
Type
Tpasa_datos = Record
nLong : Integer;
Datos : Array[0..255] of byte;
end;
Procedure Impresion_directa(s : String);
var
CadenaB : TPasa_datos;
Begin
CadenaB.nLong := Length(s);
StrPCopy(@CadenaB.Datos,s);
Escape(printer.handle, PASSTHROUGH,0,@CadenaB,nil);
End;
Procedure Prueba_impresora;
Begin
Printer.BeginDoc;
Impresion_directa(CHR(27)+'&l1O'+'Hello, World!'); // Aqui va el caracter de escape que abre el cajon
Printer.EndDoc;
End;
end.
|