ARGOX 214 PLUS com PORTA USB
Já olhei no forum e testei algumas das sugestões que colocaram mas não funcionaram comigo.
Tenho uma ARGOX 214 PLUS, instalada numa maquina com Windows 7.
A impressora esta definida como Padrão.
Já tentei a opção de compartilhamento , não funcionou.
var impressora : TextFile;
...
AssignFile(impressora, 'USB001'); //
Também não imprimiu, mas gerou um arquivo texto 'USB001', com todos os códigos dos comandos na impressora.
tentei tamém com o AssignPrn(impressora);
.
deste modo os codigos de comandos sairam impressos na impressora, mas sem formatação.
Abaixo segue o codigo da rotina de impressão.
// Codigo da impressão
procedure TForm1.Button5Click(Sender: TObject);
var
Impressora : TextFile;
begin
// AssignFile(Impressora,ImprDefault);
AssignPrn(Impressora);
Rewrite(Impressora);
try
begin
Writeln(Impressora,'L'); //limpa empressao
Writeln(Impressora,'m'); //milimetro - n polegada
Writeln(Impressora,'D11'); //TAMANHO PADRAO PARA PIXS
Writeln(Impressora,'c1000'); //largua12 da entiqueta
Writeln(Impressora,'H15'); //teperatura max20
Writeln(Impressora,'422100004500950FILHOTES');
Writeln(Impressora,'422100004500950L1');
Writeln(Impressora,'422100004500950L2');
Writeln(Impressora,'442600001500400SAPATILHA ESCALENO');
Writeln(Impressora,'4F2207002000800'+'7891234567895'); //EAN13
Writeln(Impressora,'453500005000900TAM 45');
Writeln(Impressora,'453500005000900COR MAR');
Writeln(Impressora,'453500005000900R$ 1,98');
Writeln(Impressora,'422100004500950L5');
Writeln(Impressora,'Q0001'); //COPIAS
Writeln(Impressora,'E'); //FINALIZAR E
Writeln(Impressora,'f900'); //CORTA E VOLTA f900
end;
except
CloseFile(Impressora);
end;
end;
//******************************************
Alguém consegue me dar mais alguma dica? O que Eu estou fazendo de errado ?
Tenho uma ARGOX 214 PLUS, instalada numa maquina com Windows 7.
A impressora esta definida como Padrão.
Já tentei a opção de compartilhamento , não funcionou.
var impressora : TextFile;
...
AssignFile(impressora, 'USB001'); //
Também não imprimiu, mas gerou um arquivo texto 'USB001', com todos os códigos dos comandos na impressora.
tentei tamém com o AssignPrn(impressora);
.
deste modo os codigos de comandos sairam impressos na impressora, mas sem formatação.
Abaixo segue o codigo da rotina de impressão.
// Codigo da impressão
procedure TForm1.Button5Click(Sender: TObject);
var
Impressora : TextFile;
begin
// AssignFile(Impressora,ImprDefault);
AssignPrn(Impressora);
Rewrite(Impressora);
try
begin
Writeln(Impressora,'L'); //limpa empressao
Writeln(Impressora,'m'); //milimetro - n polegada
Writeln(Impressora,'D11'); //TAMANHO PADRAO PARA PIXS
Writeln(Impressora,'c1000'); //largua12 da entiqueta
Writeln(Impressora,'H15'); //teperatura max20
Writeln(Impressora,'422100004500950FILHOTES');
Writeln(Impressora,'422100004500950L1');
Writeln(Impressora,'422100004500950L2');
Writeln(Impressora,'442600001500400SAPATILHA ESCALENO');
Writeln(Impressora,'4F2207002000800'+'7891234567895'); //EAN13
Writeln(Impressora,'453500005000900TAM 45');
Writeln(Impressora,'453500005000900COR MAR');
Writeln(Impressora,'453500005000900R$ 1,98');
Writeln(Impressora,'422100004500950L5');
Writeln(Impressora,'Q0001'); //COPIAS
Writeln(Impressora,'E'); //FINALIZAR E
Writeln(Impressora,'f900'); //CORTA E VOLTA f900
end;
except
CloseFile(Impressora);
end;
end;
//******************************************
Alguém consegue me dar mais alguma dica? O que Eu estou fazendo de errado ?
Sergio Santos
Curtidas 0
Respostas
Adriano Pratti
31/07/2017
tenho Argox em um pc virtual com requisitos pra ela funcionar.
Tenho a situação de impressão pela Lptx,ai compartilho a impressora e configuro para imprimir no caminho compartilhado
Tenho a situação de impressão pela Lptx,ai compartilho a impressora e configuro para imprimir no caminho compartilhado
GOSTEI 0