22 respuestas en este tema

[seoane]

La siguiente función envía secuencias de escape directamente a la impresora.

delphi

uses Printers, WinSpool;
 
function WriteRawDataToPrinter(PrinterName: String; Str: String): Boolean;
var
  PrinterHandle: THandle;
  DocInfo: TDocInfo1;
  i: Integer;
  B: Byte;
  Escritos: DWORD;
begin
  Result:= FALSE;
  if OpenPrinter(PChar(PrinterName), PrinterHandle, nil) then
  try
    FillChar(DocInfo,Sizeof(DocInfo),#0);
    with DocInfo do
    begin
      pDocName:= PChar('Printer Test');
      pOutputFile:= nil;
      pDataType:= 'RAW';
    end;
    if StartDocPrinter(PrinterHandle, 1, @DocInfo) <> 0 then
    try
      if StartPagePrinter(PrinterHandle) then
      try
        while Length(Str) > 0 do
        begin
          if Copy(Str, 1, 1) = '\' then
          begin
            if Uppercase(Copy(Str, 2, 1)) = 'X' then
              Str[2]:= '$';
            if not TryStrToInt(Copy(Str, 2, 3),i) then
              Exit;
            B:= Byte(i);
            Delete(Str, 1, 3);
          end else B:= Byte(Str[1]);
          Delete(Str,1,1);
          WritePrinter(PrinterHandle, @B, 1, Escritos);
        end;
        Result:= TRUE;
      finally
        EndPagePrinter(PrinterHandle);
      end;
    finally
      EndDocPrinter(PrinterHandle);
    end;
  finally
    ClosePrinter(PrinterHandle);
  end;
end;

"PrinterName" es el nombre de la impresora tal como aparece en la carpeta de impresoras de windows, esto permite que nos olvidemos de si la impresora es serie, paralelo o usb, funcionara en todos los casos. Si la impresora se conecta por el puerto serie o paralelo y no quieres instalar los drivers, instala una impresora "Genérica / solo texto" indicándole el puerto donde esta. Por otro lado el parámetro Str es una cadena de texto donde los caracteres especiales están precedidos por el carácter "\" seguido de 3 cifras decimales o de "x" y dos cifras hexadecimales.

Por ejemplo, para que la impresora emita un pitido (las secuencias pueden variar de una impresora a otra):
\x1B@\x0A\x0D\x1B\x07\x0A\x0D

Para que corte el papel:
\x1B@\x0A\x0D\x1Bi\x0A\x0D

Para abrir el cajon de monedas
\x1B@\x0A\x0D\027\112\000\100\250\x0A\x0D

Para que escriba "Hola mundo" 
\x1B@\x0A\x0DHola mundo\x0A\x0D

[egostar]

Muchas gracias amigo seoane

Excelente rutina

Salud OS

[enecumene]

Algo así es lo que mucho necesitábamos, muchas gracias seoane

Saludos.

[felipe]

Buen truco...

[Caral]

Hola
Muy bueno ademas de util.
Gracias Seoane, lo tratare de implementar.
Saludos

[seoane]

Vaya, con respuestas como esas da gusto publicar trucos 

Pues aquí dejo otro regalito, una pequeña herramienta para probar impresoras de tickets.

http://delphi.jmrds.com/?q=node/50

[enecumene]

Por eso me encanta la navidad

[egostar]

Hoy estas desatado amigo  

Salud OS

[felipe]

Ha sido más de lo que quiera saber hoy... ¡que bien!  

[Caral]

Hola
Es impresionante la cantidad de codigo que tengo de ti amigo, es que eres una maquina
Saludos

[eduarcol]

no pero es que trabaja muy bien, gracias seoane 

[enecumene]

no pero es que trabaja muy bien, gracias seoane 

Sin ganas de desvirtuar, pero aclara este comentario

[eduarcol]

nada lo que se lee, que trabaja muy bien, no hay problema 

[enecumene]

nada lo que se lee, que trabaja muy bien, no hay problema 

Ah, comentario aclarado.

Saludos.

[lKinGl]

La siguiente función envía secuencias de escape directamente a la impresora.

delphi

uses Printers, WinSpool;
 
function WriteRawDataToPrinter(PrinterName: String; Str: String): Boolean;
var
  PrinterHandle: THandle;
  DocInfo: TDocInfo1;
  i: Integer;
  B: Byte;
  Escritos: DWORD;
begin
  Result:= FALSE;
  if OpenPrinter(PChar(PrinterName), PrinterHandle, nil) then
  try
    FillChar(DocInfo,Sizeof(DocInfo),#0);
    with DocInfo do
    begin
      pDocName:= PChar('Printer Test');
      pOutputFile:= nil;
      pDataType:= 'RAW';
    end;
    if StartDocPrinter(PrinterHandle, 1, @DocInfo) <> 0 then
    try
      if StartPagePrinter(PrinterHandle) then
      try
        while Length(Str) > 0 do
        begin
          if Copy(Str, 1, 1) = '\' then
          begin
            if Uppercase(Copy(Str, 2, 1)) = 'X' then
              Str[2]:= '$';
            if not TryStrToInt(Copy(Str, 2, 3),i) then
              Exit;
            B:= Byte(i);
            Delete(Str, 1, 3);
          end else B:= Byte(Str[1]);
          Delete(Str,1,1);
          WritePrinter(PrinterHandle, @B, 1, Escritos);
        end;
        Result:= TRUE;
      finally
        EndPagePrinter(PrinterHandle);
      end;
    finally
      EndDocPrinter(PrinterHandle);
    end;
  finally
    ClosePrinter(PrinterHandle);
  end;
end;

"PrinterName" es el nombre de la impresora tal como aparece en la carpeta de impresoras de windows, esto permite que nos olvidemos de si la impresora es serie, paralelo o usb, funcionara en todos los casos. Si la impresora se conecta por el puerto serie o paralelo y no quieres instalar los drivers, instala una impresora "Genérica / solo texto" indicándole el puerto donde esta. Por otro lado el parámetro Str es una cadena de texto donde los caracteres especiales están precedidos por el carácter "\" seguido de 3 cifras decimales o de "x" y dos cifras hexadecimales.

Por ejemplo, para que la impresora emita un pitido (las secuencias pueden variar de una impresora a otra):
\x1B@\x0A\x0D\x1B\x07\x0A\x0D

Para que corte el papel:
\x1B@\x0A\x0D\x1Bi\x0A\x0D

Para abrir el cajon de monedas
\x1B@\x0A\x0D\027\112\000\100\250\x0A\x0D

Para que escriba "Hola mundo" 
\x1B@\x0A\x0DHola mundo\x0A\x0D

Al parecer todo esta muy bien pero como nunca falta un newbie podrias decirme para que se usa eso?

[eduarcol]

eso es para que la impresora funcione sin tinta, es un ahorro increible, prueba y veras

[seoane]

Al parecer todo esta muy bien pero como nunca falta un newbie podrias decirme para que se usa eso?

Claro. Para imprimir tickets es muy habitual usar pequeñas impresoras que imprimen en rollos de papel (seguro que las has visto en alguna tienda). Aunque las mas modernas ya permiten imprimir como si fuera una impresora normal (usando el Canvas), una de las formas mas habituales de usar estas impresoras es mediante secuencias de escape enviadas directamente al puerto de la impresora. Las ventajas de este método es que es muy rápido, no se necesita instalar ningún driver y permite usar funciones especiales como la de abrir el cajón portamonedas o imprimir un logo previamente grabado en la eeprom de la impresora.

Personalmente creo que usar secuencias de escape es el mejor método para manejar impresoras de tickets. Precisamente tengo estos días problemas con un programa (que no hice yo  ) que utiliza el driver de windows para imprimir tickets y, además de ser terriblemente lento, tiene muchos problemas para imprimir bien la negrita, fijar los margenes, etc ... cuando si utilizara secuencias de escape solo habría que indicarle las correspondientes al modelo de impresora y listo.

[eduarcol]

a ver, en una zebra TLP 2844 para comenzar a imprimir se le envia N luego A, seguido de coordenadas y configuración para el texto y por ultimo P1 para indicarle las copias.

Lo hago asi?? o que es lo que estoy haciendo mal que no me salen los tickets?

delphi

WriteRawDataToPrinter('Zebra  TLP2824', '\x1BN');
WriteRawDataToPrinter('Zebra  TLP2824', '\x1BA70,10,0,1,1,1,N,"HOLA MUNDO"');
WriteRawDataToPrinter('Zebra  TLP2824', '\x1BP1');

[egostar]

Las coordenadas que usas en que medida están, pixeles, lineas, o que, porque querer impirmir en la coordenada

10,0

Pues está raro.

Salud OS

[eduarcol]

estan en pixeles, las coordenadas son 70, 10 por cierto me equivoque de codigo es este:

delphi

WriteRawDataToPrinter('Zebra  TLP2824', '\078');
WriteRawDataToPrinter('Zebra  TLP2824', '\06570,10,0,1,1,1,N,"HOLA MUNDO"');
WriteRawDataToPrinter('Zebra  TLP2824', '\0801');