Não Fiscal - Imprimir linha a Linha

[sidnei_alves1]

Boa tarde,

Amigos, Gostaria de imprimir em uma impressora não fiscal linha a linha. vi que tem como simular um cupom.

no ACBr tem alguma função que permiti essa impressão de linhas na impressora não fiscal.

desde já agradeço a todos.

[marcelo_sp]

Para impressora não fiscal vc não precisa componente , com AssignFile nativo do delphi vc faz isso :

segue pequeno exemplo :

var print : textfile ;

begin

Assignfile (print, 'COM1'); // COM1 = PORTA DE COMUNICACAO

rewrite(print);

writeLn(print, 'linha impressa...');

writeLn(print) ; // pula linha

closefile(print);

end;

... com o assignfile vc tambem aciona gaveta etc... se precisar dos ASC , tenho para Diebol , Mecaf , Daruma , Bematech , Epson .

... se a impressora for usb utilize um bat com o NET USE ( Detalhe: NET USE vc precisa portas LPT para direcionamento ) .

enfim , pesquise que tem muita coisa .

[sidnei_alves1]

obrigado amigo, vou fazer os teste, acabei de comprar uma impressora, pra efetuar os testes. valew

[sidnei_alves1]

amigo poderia me dar um exemplo de como eu faco esse NET USE.

eu adquiri uma impressora MP-4200 USB, instalei o drive dela e tambem a Virtual COM dela

testei pelo acbr e esta normal, como uso o comando que vc citou

var print : textfile ;

begin

Assignfile (print, 'COM1'); // COM1 = PORTA DE COMUNICACAO

rewrite(print);

writeLn(print, 'linha impressa...');

writeLn(print) ; // pula linha

closefile(print);

end;

[marcelo_sp]

MP 4200 , vc não precisa direcionamento de porta NET USE por ja existir o driver virtual serial da Bematech , vc só usa NET USE em impressoras que não tem driver virtual serial , o proprio driver virtual ja faz o trabalho de direcionamento .

[sidnei_alves1]

já tentei mandar a impressão pelo drive virtual que foi criado, mais não imprimiu nada na impressora.

[marcelo_sp]

quando vc instala o driver virtual ele criar uma porta Serial COM no sistema , verifique se vc esta enviando corretamente na porta virtual criada !

var print : textfile ;

begin

Assignfile (print, 'porta_virtual_COM...');

rewrite(print);

writeLn(print, 'linha impressa...');

writeLn(print) ; // pula linha

closefile(print);

end;

...inclusive vc pode até compartilhar a impressora e imprimir de outra maquina assim pela rede:

var print : textfile ;

caminho : string ;

begin

caminho := '\\Maquina_impressora\Nome_Impressora_Compartilhada' ;

Assignfile ( print, caminho );

rewrite(print);

writeLn(print, 'linha impressa...');

writeLn(print) ; // pula linha

closefile(print);

end;

[walter faria]

Para impressora não fiscal vc não precisa componente , com AssignFile nativo do delphi vc faz isso :

segue pequeno exemplo :

var print : textfile ;

begin

Assignfile (print, 'COM1'); // COM1 = PORTA DE COMUNICACAO

rewrite(print);

writeLn(print, 'linha impressa...');

writeLn(print) ; // pula linha

closefile(print);

end;

... com o assignfile vc tambem aciona gaveta etc... se precisar dos ASC , tenho para Diebol , Mecaf , Daruma , Bematech , Epson .

... se a impressora for usb utilize um bat com o NET USE ( Detalhe: NET USE vc precisa portas LPT para direcionamento ) .

enfim , pesquise que tem muita coisa .

Bom dia , colega tenho uma impressora ( nao fiscal bematech 4200 ) e uma gaveta de dinheiro .

Tem um cabo da gaveta ( conector tipo de telefone ) que eu conecto na impressora ( nao fiscal ) teria como vc me passar os comandos para abrir a gaveta e acionar o corte do papel quando for fim da impressão .

Para impressão no mesmo, estou utilizando : Assignfile

Obrigado.

[Daniel Simoes]

Isso pode variar de acordo com o modelo... Por favor consulte o manual ou suporte do Fabricante

[marcelo_sp]

Registrando aqui pra quando alguem precisar :

Writeln(print,chr($1B)+'p'+chr($0)+chr($25)+chr($250)); // EPSON Aciona Gaveta

Writeln(print,chr($1D)+chr($56)+chr($01)); // EPSON Aciona Guilhotina

Writeln(print,#027+'v'+#140); // Bematech Aciona Gaveta

writeln(print,#27#119); // Bematech Aciona Guilhotina

Writeln(print,#27 + '&' + '0' + #12 + #48); // MECAF / DIEBOLD / Aciona Gaveta

Writeln(print,#10 + #17); // MECAF / DIEBOLD / Aciona Guilhotina

Writeln(print,#27 + 'p'); // Daruma Aciona Gaveta

Writeln(print,#27 + 'm'); // Daruma Aciona Guilhotina

Obs : print = Variavel TextFile .

[Daniel Simoes]

Marcelo,

Obrigado pela contribuição