![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
![]() |
|
|
![]() |
|