RES: [delphi-br] RDPrint3.0

Wed, 28 May 2008 13:54:32 -0700 

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 [mailto:[EMAIL PROTECTED] Em
nome de Ioney Hotmail
Enviada em: quarta-feira, 28 de maio de 2008 16:56
Para: delphi-br@yahoogrupos.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

Responder a