Ver Mensaje Individual
  #3  
Antiguo 05-08-2007
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 293
Reputación: 18
GustavoCruz Va por buen camino
Smile pasar qreport a PDF por codigo

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;
Responder Con Cita