Impressão de Cheques - Dúvidas
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
Curtidas 0
Respostas
Sam
13/11/2003
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;
GOSTEI 0