IMPRESSAO CUPOM

Delphi

30/10/2012

OLA PESSOAL, ESPERO QUE TODOS ESTEJAM BEM, SE NUM TIVER VAI FICAR HEHEHE!
PESSOAL TO COM 2 PEQUENOS PROBLEMINHAS COMO EU FAÇO PARA IMPRIMIR UM CUPOM NÃO FISCAL DEPOIS DA VENDA FINALIZADA EM
UMA IMPRESSORA GENERIC TEXT;

E TAMBEM EM UMA EPSON LX-300?
Glebson Guimaraes

Glebson Guimaraes

Curtidas 0

Respostas

Frederico Brigatte***

Frederico Brigatte***

30/10/2012

Boa tarde,

Você teria o exemplo que a Claudia te passou sobre leitor de código de barras?
GOSTEI 0
Frederico Brigatte***

Frederico Brigatte***

30/10/2012

Boa tarde,

Você teria o exemplo que a Claudia te passou sobre leitor de código de barras?


Seria esse link:

https://www.devmedia.com.br/forum/leitor-codigo-de-barras/427462
GOSTEI 0
Glebson Guimaraes

Glebson Guimaraes

30/10/2012

puts irmao ela ainda num passou nao
GOSTEI 0
Gilvanio Gonçalves

Gilvanio Gonçalves

30/10/2012

A impressora Generic Text e Epson Lx 300, por padrão utiliza porta LPT1

caso vc mande imprimir direto para a impressora, será impresso na impressora que
estiver definida como padrão no windows, supondo que as duas estejam instaladas
no mesmo micro.

não sei qual componente vc vai usar para enviar a impressão.
caso seja um quickreport, use ele como portrait, vc terá a opção de ter
um preview antes ou manda direto para print, tendo opção também de
selecionar para qual impressora.

se for mandar direto via Lpt1 impresso direto veja o exemplo abaixo:

Com este exemplo você poderá enviar uma impressão direto para a porta LPT1 da impressora
sem utilizar o Gerenciador de Impressão do Windows. 

procedure TForm1.Button1Click(Sender: TObject);
var
  Handle: TextFile;
begin
  AssignFile(Handle,'LPT1');
  Rewrite(Handle);
  try
    Writeln(Handle,'Impressao da Linha 1');
    Writeln(Handle,'Impressao da Linha 2');
    Writeln(Handle,#27#15+'Impressao da Linha 3');
    Writeln(Handle,'Impressao da Linha 4');
    Writeln(Handle,#27#18+'Impressao da Linha 5');
    Writeln(Handle,'Impressao da Linha 6');
    Writeln(Handle,#12);
  finally
    CloseFile(Handle);
  end;
end;


O código acima imprime 6 linhas e ejeta a página. O código #27#15 liga a impressão em negrito
e o código #27#18 desliga.
O código #12 ejeta a página.


espero que seja isto que vc deseja.

obs. caso use porta usb , o codigo acima é o mesmo, porém vc terá que

compartilhar a impressora e informar o caminho. ex: no lugar de lpt1, \\nome_do_computador\nome_da_Impressora



At+
GOSTEI 0
POSTAR