Bom, Siga o conselho do outro colega, pegue os exemplos e de uma olhada. Outra coisa, vc tá rodando ele a partir do Datamodule, nunca fiz isso, tenta rodar ele LOCAL mesmo (no formulário do relatório) e veja se resolve. Manda o pedaco da rotina modificada pra ver como ficou..
Qualquer coisa posta aí. Alexandre -----Mensagem original----- De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de Ioney Hotmail Enviada em: quinta-feira, 29 de maio de 2008 08:29 Para: [email protected] Assunto: Re: [delphi-br] RDPrint3.0 Valeu Alexandre, mas continua o mesmo erro, eu vou postar aqui a msg de erro q ele da ok? Project Contabil.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. read of address 00000000'. Process stopped. Use Step or Run to Continue. O que eu faco? desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo seria mas facil de resolver... Abraco From: Alexandre Sent: Wednesday, May 28, 2008 5:54 PM To: [email protected] Subject: RES: [delphi-br] RDPrint3.0 Amigão, Tenta colocar o DtaModulo.RDPrint1.Abrir depois do DtaModulo.qryPadrao.Open; Ou melhor, depois do First; E o Preview := true e o paginazebrada := true antes do RDprint1.Abrir. Saudações. Alexandre -----Mensagem original----- De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de Ioney Hotmail Enviada em: quarta-feira, 28 de maio de 2008 16:56 Para: [email protected] Assunto: [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').a sstring, [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] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> __________ NOD32 3137 (20080527) Information __________ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
