pasar qreport a PDF por codigo

[GustavoCruz]

Con la versión profesional, debes colocar un TQRPDFFilter, pone un TSaveDialog y a continuación el siguiente código en el botón que quieras (Debe funcionar)

Código Delphi [-]
procedure form1.tuprocedimiento(sender:TObject);
var
  Archivo:String;
begin
if SaveDialog2.Execute then
  begin
    Archivo:=SaveDialog2.FileName;
    freportex.qrCertificados.ExportToFilter(TQRRTFExportFilter.Create(Archivo));
   ShellExecute(fPrincipal.Handle,nil,pchar(Archivo),'','',SW_SHOWNORMAL)
  end;
end;