Fórum Impressão de Cheques - Dúvidas #194832
13/11/2003
0
Galera do Fórum,
Alguem possui alguma rotina certa ou componente para poder imprimir cheques pelo Delphi. Os cheques são em formulário continuo do banco.
Agora se tiverem rotina para imprimir apenas um cheque pode ser, para imprimir em formulario continuo dou um jeito.
Valeu.
Valnei
Alguem possui alguma rotina certa ou componente para poder imprimir cheques pelo Delphi. Os cheques são em formulário continuo do banco.
Agora se tiverem rotina para imprimir apenas um cheque pode ser, para imprimir em formulario continuo dou um jeito.
Valeu.
Valnei
Objetivacreator
Curtir tópico
+ 0
Responder
Posts
13/11/2003
Sam
Eu utilizo o RDPRINT da Deltress, acesse [url]www.deltress.com.br[/url]
RdPrint1.TamanhoQteLinhas := 24;
RdPrint1.FonteTamanhoPadrao := S17cpp;
RdPrint1.Abrir;
with Rdprint1 do
begin
impf(01,107 -length(tabChequeValor.Text),TabChequeValor.Text,[NEGRITO]);
imp(04,23,tabChequeDescricaoCheque.Text);
imp(06,05,´XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX´);
if TabChequeTipoCheque.Value = ´NOMINAL´ then
begin
imp(08,07,tabChequeFavorecido.text);
end;
imp(11,57,tabChequeCidade.text);
imp(11,84,tabChequeDia.text);
imp(11,92,tabChequeMes.text);
imp(11,113,tabChequeAno.text);
imp(16,100,´NP ´+TabChequeNumeroProcessamentoBanco.text);
impf(19,96,´BOM P/ ´+TabChequeDataVencimento.text,[NEGRITO]);
end;
RdPrint1.Fechar;
RdPrint1.TamanhoQteLinhas := 24;
RdPrint1.FonteTamanhoPadrao := S17cpp;
RdPrint1.Abrir;
with Rdprint1 do
begin
impf(01,107 -length(tabChequeValor.Text),TabChequeValor.Text,[NEGRITO]);
imp(04,23,tabChequeDescricaoCheque.Text);
imp(06,05,´XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX´);
if TabChequeTipoCheque.Value = ´NOMINAL´ then
begin
imp(08,07,tabChequeFavorecido.text);
end;
imp(11,57,tabChequeCidade.text);
imp(11,84,tabChequeDia.text);
imp(11,92,tabChequeMes.text);
imp(11,113,tabChequeAno.text);
imp(16,100,´NP ´+TabChequeNumeroProcessamentoBanco.text);
impf(19,96,´BOM P/ ´+TabChequeDataVencimento.text,[NEGRITO]);
end;
RdPrint1.Fechar;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)