Sim, meu caro! Posta o código e espera que a gente ache o erro pra ti? N"ao
quer mais nada, né?
Qual é o erro que tá dando? Só o código num ajuda! Qual é esse erro/exceção que
tu tá tendo?
Sds.
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 28 May 2008 16:55:53 -0300
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco de
Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente ai
que o bicho ta pegando, estou usando o componente RDPrint e nao to conseguindo
fazer com que meu relatorio seja impresso...o codigo eh esse deem uma olhadinha
e vejam se encontram algum erro ok? aguardo retorno desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' + IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'-------------------
------------------------------------------ ------------- --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '00000'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter)> 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
_________________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
