Ver Mensaje Individual
  #17  
Antiguo 18-10-2018
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Reputación: 20
newtron Va camino a la fama
Cita:
Empezado por manelb Ver Mensaje
Aprovechando que habéis “reabierto” este tema, he intentado el sistema de impresión propuesto pero no he podido hacer funcionar ninguno de los ejemplos presentados en el hilo.
Con algunos de los ejemplos consigo que por el administrador de impresión de mi Zebra aparezcan i desaparezcan rápidamente los trabajos que mando a imprimir, pero la impresora no se inmuta.
He seguido el consejo de Newtron y he creado una plantilla de mi etiqueta con el programa ZebraDesigner creando un fichero de texto que se imprime perfectamente si lo envío directamente desde la impresora, pero no me funciona si lo hago con cualquiera de los ejemplos de este hilo.

Podría tener algo que ver mi versión de Delphi 10.2CE?
Lo digo por el tema del Unicode.
Con que versión de Delphi lo estáis utilizando vosotros?

Saludos

Yo uso Delphi 2007 no sé si será ese el problema, te paso algún trozo de código por si te sirve de ayuda:


Código Delphi [-]
var
  DocInfo1: TDocInfo1;
  Handle:   THandle;
  N:        DWORD;
  Linea:    String;
....


Código Delphi [-]
    with DocInfo1 do begin
      pDocName    := PChar('Etiqueta ' + fsTablaPosicionamiento + '.');
      pOutputFile := nil;
      pDataType   := 'RAW';
    end;

    for g:=1 to fiCopias do begin
    //
      StartDocPrinter(Handle, 1, @DocInfo1);

      StartPagePrinter(Handle);

      for f:=0 to fslLineaImpreso.Count-1 do begin
        Linea := fslLineaImpreso[f] + #10 + #13;
        WritePrinter(Handle, PChar(Utf8Encode(AnsiString(Linea))), Length(Linea), N);
      end;

      EndPagePrinter(Handle);

      EndDocPrinter(Handle);
    //
    end; // for g:=1 to fiCopias do begin

    ClosePrinter(Handle);


Saludos
__________________
Be water my friend.
Responder Con Cita