Fórum Impressão de codigo de barras #473627

21/03/2014

0

Delphi

Boa tarde,

Estou com uma impressora Diebold, nao fiscal USB, preciso fazer a empressão de codigo de barras, ja fiz de tudo e nao consigo fazer o codigo de barras imprimir, estou usando este comando:

WRITELN(F,Chr(27)+Chr(124)+Chr(49)+Chr(120)+Chr(2)+Chr(6)+Chr(20)+Copy(cTicketCBar,1,19)+intToStr(calculaDigito(cTicketCBar)));

alguem ja passou por isso antes que possa estar me ajudando.

Grato

Marcos
Marcos Amaral

Marcos Amaral

Responder

Posts

25/03/2014

Paulo Pinto

Depende do modelo.. esse manual é para impressoras IM4X3T (COMPATÍVEL COM IM433T / TSP143M / IM453H / IT433T / IT533T)
Manual Diebold

var
Impr: TextFile;
begin
AssignFile(Impr, 'LPT1');  //pra mim funcionou trocando para porta COM1 somente
Rewrite(Impr);
Write(Impr, ' Cod Barras EAN-13:'); 
Write(Impr, #27 +  '|0' + #120 + #2 + #2 + '012345678901'); 
CloseFile(Impr);
end;


Var
Impr: TextFile;
begin
AssignFile(Impr, 'LPT1');
Rewrite(Impr);
Write(Impr, ' Cod Barras Intercalados 2 de 5:'); 
Write(Impr, #27 +  '|1' + #120 + #2 + #2 + #10 + '01234567890123456789'); 
CloseFile(Impr);
end;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar