 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
rodrigoprado
Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1074
Localização: Curitiba/PR
|
 Enviada: Seg Mar 16, 2015 5:20 pm Assunto: Zebra GC420t - Etiquetas - Linguagem ZPL - Resolvido |
 |
|
Boa tarde,
Pessoal tenho que gerar alguns formatos diferentes de impressão usando a impressora Zebra GC420t.
Estou usando zpl, aqui segue um link dando uma base da linguagem
http://zebramaster.blogspot.com.br/2013/04/linguagem-de-programacao-zebra-zpl.html
Bom ela está instalada, com os drivers certinhos.
Tenho o seguinte comando básicooo de exemplo:
| Código: | sBuffer :=
'^XA'+#13#10 +
'^LH30,20'+#13#10 +
'^FO20,10^AFN56,30^FDTeste^FS'+#13#10 +
'^XZ'+#13#10; |
Pelo delphi imprimi normalmente, sai na etiqueta, e ai vou ajustando de acordo com meus layouts.
Dúvida...
Há alguma ferramenta que eu pudesse escrever estes código e ja ir dando um preview, sem que fosse pela impressora diretamente, até então desconheco, começei a utilizar hoje.
Se alguém souber... queria jogar o código em alguma ferramenta e dar um F9 rsss, que não fosse pelo delphi.
Obrigado.
_________________
- Compartilhe seus conhecimentos -
Editado pela última vez por rodrigoprado em Qua Abr 01, 2015 1:13 pm, num total de 2 vezes |
|
| Voltar ao Topo |
|
 |
rodrigoprado
Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1074
Localização: Curitiba/PR
|
| Enviada: Ter Mar 17, 2015 9:43 am Assunto: |
|
|
Consegui umas ajudas pra fazer esse processo mais fácil sem ter que ser no braço...
Zebra Designer 2, da pra gerar os layouts e imprimir em txt o código.
Estou usando este vou deixar os links pra quem precisar, já fiz o caminho das pedras, se alguém tiver algo ai pra auxiliar mais.. já sabe...
http://zebramaster.blogspot.com.br/2013/04/linguagem-de-programacao-zebra-zpl.html
http://zebramaster.blogspot.com.br/2014/06/como-gerar-um-arquivo-epl-ou-zpl-para.html
http://www.planetadelphi.com.br/dica/7417/-impressora-zebra-(zpl-ii-)-basico-1-
---------- parte de integração com o delphi se usar serial
https://svn.code.sf.net/p/synalist/code/trunk
Na Uses usar o synaser;
| Código: | procedure Tform1.Button1Click(Sender: TObject);
var
sBuffer : string;
ser: TBlockSerial;
begin
sBuffer :=
'^XA'+#13#10 +
'^LH30,20'+#13#10 +
'^FO20,10^AFN56,30^FDTeste^FS'+#13#10 +
'^XZ'+#13#10;
ser:= TBlockSerial.Create;
try
ser.Connect('COM1');
ser.Config(9600, 8, 'N', SB1, True, True);
ser.SendString(AnsiString(sBuffer));
finally
ser.free;
end;
end; |
_________________
- Compartilhe seus conhecimentos -
Editado pela última vez por rodrigoprado em Qua Abr 01, 2015 1:14 pm, num total de 3 vezes |
|
| Voltar ao Topo |
|
|
rodrigoprado
Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1074
Localização: Curitiba/PR
|
| Enviada: Sex Mar 20, 2015 8:39 am Assunto: |
|
|
Hmm conforme mudar o tipo de papel da impressora, ai tem que calibrar novamente... segue uns video gringo, ajuda bastante, explica sobre o tempo de pressionamento do botão principal da zebra.
Ex:
one flash = Resets the factory defauts
Instalando o Ribbon.... e ensinando a parte de calibragem.
Test N Print - Configuring Zebra Printer (Part 1)
https://www.youtube.com/watch?v=3Td9HvijPMk
Test N Print - Configuring Zebra Printer (Part 2)
https://www.youtube.com/watch?v=G9LysP-DrjA
_________________
- Compartilhe seus conhecimentos - |
|
| Voltar ao Topo |
|
|
rodrigoprado
Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1074
Localização: Curitiba/PR
|
| Enviada: Sex Mar 27, 2015 3:36 pm Assunto: |
|
|
Agora segue aqui um exemplo de código via usb.
Segue um exemplo... há diversas maneiras.. de enviar para a impressora
| Código: |
procedure TForm1.Button7Click(Sender: TObject);
var
sArquivo : string;
lstScriptZPL: TStringList;
const
ARQUIVO = 'c:\temp\etiquetaUSB.prn';
begin
//Na Uses Declarar: ShellAPI
//Instalar a impressora utilizando o driver para USB '
//Compartilhe a impressora na rede como ZEBRAUSB ' //<-- pode usar outro nome
//Exemplo de impressão utilizando o ms-dos
//copy "etiquetateste.prn" \\localhost\zebrausb
//Tenho este arquivo na temp, onde armazeno o código zpl
//ForceDirectories('C:\TEMP');
lstScriptZPL := TStringList.Create;
try
lstScriptZPL.Text :=
'CT~~CD,~CC^~CT~'+sLineBreak+
'^XA~TA000~JSN^LT0^MNW^MTT^PON^PMN^LH0,0^JMA^PR2,2~SD15^JUS^LRN^C'+sLineBreak+
'I0^XZ'+sLineBreak+
'^XA'+sLineBreak+
'^MMT'+sLineBreak+
'^PW799'+sLineBreak+
'^LL0400'+sLineBreak+
'^LS0'+sLineBreak+
'^FT234,191^A0N,28,28^FH\^FDTeste zpl^FS'+sLineBreak+
'^PQ1,0,1,Y^XZ'+sLineBreak;
lstScriptZPL.SaveToFile(ARQUIVO);
//No Delphi da pra ficar dessa forma, ja que é simulado o ms-dos
//há outras maneira de fazer, sem alguém tiver outro código, posta aqui
ShellExecute(Handle, 'open', PChar('cmd.exe'), PChar('/c type '+ARQUIVO+' > \\localhost\zebrausb'), nil, SW_HIDE);
finally
Sleep(500);
lstScriptZPL.Free;
if FileExists(ARQUIVO) then
DeleteFile(ARQUIVO);
end;
end; |
_________________
- Compartilhe seus conhecimentos - |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
