Exportar Preview Para Pdf

[Leonardo Gregianin]

Bom dia,

Segue em anexo alteração para habilitar a opção de salvar em PDF dentro preview do QuickReport.

 

Testei somente com o QuickReport 5.02.

@@ -104,6 +104,10 @@
class procedure TfqrDANFSeQR.Imprimir(ANFSe            : TNFSe;                               
                                       APrestLogo      : String  = '';
                                       APrefeitura     : String  = '');
+{$IFDEF QReport_PDF}
+var
+ qf : TQRPDFFilter;
+{$ENDIF}
 begin
  with Create ( nil ) do
   try
@@ -137,6 +141,7 @@
        QRNFSe.PrevShowThumbs      := False;
        QRNFSe.PreviewInitialState := wsMaximized;
        QRNFSe.PrevInitialZoom     := qrZoomToWidth;
+       qf := TQRPDFFilter.Create(nil);
      {$ENDIF}
 
      QRNFSe.Prepare;

[Leonardo Gregianin]

Ítalo, esta alteração não seria interessante?

[Italo Giurizzato Junior]

Bom dia lvr,

 

Como existe o ImprimirPDF que gera e salva o PDF, não sei se seria interessante.

 

Outra coisa, alguns provedores como por exemplo o Ginfes possui uma URL que o próprio componente monta e que você pode enviar por e-mail para o tomador do serviço.

Este por sua vez ao clicar no link obtem o DANFSE gerado pelo próprio provedor, permitindo que o tomador possa imprimir ou salvar o mesmo em PDF.

 

O EnviarEmail se utilizado e configurado corretamente, alem de anexar o XML da NFS-e inclui também o DANFSE em PDF, previamente salvo na pasta indicada na configuração do componente.

[Leonardo Gregianin]

Eu pensei que seria interessante para o usuário final pois ele poderia escolher onde quer gravar o pdf da mesma forma que acontece com o preview do Rave na NFe e o preview do boleto em FastReport. Seria uma opção a mais.

[Italo Giurizzato Junior]

Já esta disponivel, vamor ver se vai funcionar com outras verões do Quick Report que possui o filtro para gerar o PDF.