Imprimir cupom em Matricial
Alguem tem um exemplo de impressão de cupom numa matricial 80 colunas.
estou tentando de tudo, como quickreport, com rdprint más quando termina de imprimir ele manda muito papel para fora(tamanho de uma carta).
se alguem tiver um exemplo para me passar ou algum comando para interromper o envio de papel para fora quando terminar a impressao.
valeu a todos,
Carlos Eduardo
estou tentando de tudo, como quickreport, com rdprint más quando termina de imprimir ele manda muito papel para fora(tamanho de uma carta).
se alguem tiver um exemplo para me passar ou algum comando para interromper o envio de papel para fora quando terminar a impressao.
valeu a todos,
Carlos Eduardo
Cernica
Curtidas 0
Respostas
Marcelo.c
26/09/2003
Se você utiliza até Win98, pode personalizar o tamanho do papel no Quick Report, colocando CUSTOM e escolhendo o tamanho desejado.
GOSTEI 0
Cernica
26/09/2003
Eu estou utilizando bobinas, tipo impressora de cupom fiscal. O problema é q não sei qual vai ser o tamanho do cupom, vai depender da qtde de itens....
GOSTEI 0
M@rcio
26/09/2003
Tente Ultilizar da seguinte maneira.
Jogue direto para a porta da impressora ultilizando o AssignFile
Ex:
var
F : TextFile;
begin
AssignFile(F,Porta);
Rewrite(F);
While not tblItems.eof do
begin
WriteLn(F,tblItensCodProd.Text+´ ´+tblItensItem.Text);
Next:
end;
CloseFile(F);
end;
Dica: Voce Pode Ultilizar a função StringOfChar para fazer o alinhamento de espaços
Ex: tblItensCodProd.Text+StringOfChar(´ ´,10-Length(tblItensCodProd.Text)+tblItensItem.Text;
Espero ter ajudado, Qualquer duvida mand-me um E-Mail
souzamarcio@bol.com.br
Jogue direto para a porta da impressora ultilizando o AssignFile
Ex:
var
F : TextFile;
begin
AssignFile(F,Porta);
Rewrite(F);
While not tblItems.eof do
begin
WriteLn(F,tblItensCodProd.Text+´ ´+tblItensItem.Text);
Next:
end;
CloseFile(F);
end;
Dica: Voce Pode Ultilizar a função StringOfChar para fazer o alinhamento de espaços
Ex: tblItensCodProd.Text+StringOfChar(´ ´,10-Length(tblItensCodProd.Text)+tblItensItem.Text;
Espero ter ajudado, Qualquer duvida mand-me um E-Mail
souzamarcio@bol.com.br
GOSTEI 0
Cernica
26/09/2003
Só uma coisa, não entendi a primeira parte:
[color=darkred:f601a73656]var
F : TextFile;
begin
AssignFile(F,Porta);
Rewrite(F); [/color:f601a73656]
A Porta seria [color=darkred:f601a73656]LTP1[/color:f601a73656], certo
e [color=darkred:f601a73656]F[/color:f601a73656] , para q serve, qual seu valor?
grato
[color=darkred:f601a73656]var
F : TextFile;
begin
AssignFile(F,Porta);
Rewrite(F); [/color:f601a73656]
A Porta seria [color=darkred:f601a73656]LTP1[/color:f601a73656], certo
e [color=darkred:f601a73656]F[/color:f601a73656] , para q serve, qual seu valor?
grato
GOSTEI 0
Marcelo.c
26/09/2003
F é a variável que vai armazenar os itens a serem impressos.
GOSTEI 0
Cernica
26/09/2003
valeu galera!!!
GOSTEI 0
Marcelo.c
26/09/2003
Estamos aí...
GOSTEI 0