Sugiro que vc abra o demo do RDPrint compile e execute pra ver se vai ter
algum problema.
o demo dele é bem detalhado.
outro detalhe, tira o componente Rdprint1 de dentro do DataModule e faz um
teste.
2008/5/29 Ioney Hotmail <[EMAIL PROTECTED]>:
> 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: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> 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: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Ioney Hotmail
> Enviada em: quarta-feira, 28 de maio de 2008 16:56
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> 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]
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
