Imprimir em impressora Zebra Z4M

Delphi

14/10/2005

Galera,

Estou com um problema, preciso imprmir etiquetas direto na LPT1 usando a impressora Zebra Z4m, estou utilizando a função WriteLn( ), mas parece que Zebra não reconhece ?

Segue exemplo abaixo:
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
begin
  AssignFile(F, ´LPT1´);
  Rewrite(F);
  try
  WriteLn(F,´^XA´ + CHR(13));
  WriteLn(F,´^A0N,28,28^FO34,71^FH_^FD´+´teste´+´^FS´ + CHR(13));
  finally
  CloseFile(F);
end;

end;



Rogerio_amorim

Rogerio_amorim

Curtidas 0

Respostas

_rodfaria_

_rodfaria_

14/10/2005

Por acaso não está faltando ^XZ ?

Eu gero os comandos em um arquivo texto e depois executo um ´type arquivo > impressora´

Obs. Faço isso em MK (um ERP da SSA), mas a lógica é a mesma para o Delphi: ListaDeComandos.SaveToFile...., ShellExecute(...)


Rod.


GOSTEI 0
POSTAR