Cita:
Empezado por manelb
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;
ClosePrinter(Handle);
Saludos