ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Salvar QuickReport em PDF

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
michaeldca
Novato
Novato


Registrado: Sábado, 5 de Mai de 2012
Mensagens: 15

MensagemEnviada: Qui Jan 30, 2014 9:50 am    Assunto: Salvar QuickReport em PDF Responder com Citação

Bom dia, caros colegas!!

Eu tenho um relatório e consigo visualizá-lo normalmente pelo Comando Preview do QuickReport, mas quando vou salvá-lo em PDF pelo QRPDFFilt

ele salva apenas as Bands fixas, ou seja, as Bandas ligadas nos datasets não aparecem...

Verifiquei se o problema é no dataset, mas não é, pois coloquei umas verificações no AfterPreview e no OnEndPage e traz os dados normalmente...

Alguém pode me ajudar??

Desde já agradeço,

Michael Douglas
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
leandroksc
Profissional
Profissional


Registrado: Quinta-Feira, 29 de Setembro de 2011
Mensagens: 528

MensagemEnviada: Qui Jan 30, 2014 10:16 am    Assunto: Responder com Citação

tente desta forma:

Código:
var
FiltroExportacao: TQRPAbstractExportFilter;
begin
  FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
                QuickRep1.ExportToFilter(FiltroExportacao);
              finally
                FiltroExportacao.Free;
              end;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
michaeldca
Novato
Novato


Registrado: Sábado, 5 de Mai de 2012
Mensagens: 15

MensagemEnviada: Qui Jan 30, 2014 4:04 pm    Assunto: Responder com Citação

leandroksc escreveu:
tente desta forma:

Código:
var
FiltroExportacao: TQRPAbstractExportFilter;
begin
  FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
                QuickRep1.ExportToFilter(FiltroExportacao);
              finally
                FiltroExportacao.Free;
              end;
end;


Amigo muito Obrigado pela ajuda, mas já identifiquei o meu erro...

Tinha um POG aqui no código, que desabilitava as bands depois que a mesma fosse impressa...

Só DEUS sabe quem fez...

Mas já arrumei ...

Valeuuu
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB