Exportando QRPs a PDFs

[ruedabeat2003]

Hola, muchas gracias KEYS funcionò a la perfecciòn, finalmente mi rutina quedo asì:

Código Delphi [-]
procedure TfrmVistaPreliminar.spdBtnPDFClick(Sender: TObject);
var
   PDFFilt:TQRPDFDocumentFilter;
   Ruta:Pchar;
   dir:String;
begin
  if nombrePDF = '' then
    begin
     Ruta := StrAlloc(100);
     GetCurrentDirectory(100,Ruta);
     dir := strPas(Ruta)+'\';
     SaveDialog1.InitialDir := dir;
     SaveDialog1.FileName   := 'NombreArchivo.PDF';
     SaveDialog1.Filter     := 'Archivos PDF |*.PDF';
     try
        if SaveDialog1.Execute then
          nombrePDF := SaveDialog1.FileName;
          if copy(nombrePDF, length(nombrePDF)-4,4) <> '.PDF' then
             nombrePDF :=  nombrePDF + '.PDF';
      except
        On e : Exception do
          begin
           if e.ClassName = 'EInOutError' then
              ShowMessage('Error en la creacion de Archivo, favor de verificar.');
          end;
      end;
    end;
    PDFFilt := TQRPDFDocumentFilter.Create(NombrePDF);
    QRPreview1.QRPrinter.ExportToFilter(PDFFilt);
    PDFFilt.Free;
end;

Solo me queda una duda, en este caso QRPrinter es del mismo tipo que un TQuickRep?, cualquier explicacion no esta de màs para mi, gracias de antemano por la ayuda.

Respecto a la pregunta de Karlaoax, el componente y los filtros son parte del QuickReport v4.0.

Saludos.

//Lo Edite para colocar etiquetas Delphi... jhonny

[[egostar]]

Empezado por ruedabeat2003

Respecto a la pregunta de Karlaoax, el componente y los filtros son parte del QuickReport v4.0.

Pero esto es sólo en la versión profesional de QReport o me equivoco?

Salud OS.

[keys]

El objeto Qrprinter no es del mismo tipo que TQuickRep, el primero es una propiedad del TQuickRep, que es el que se encarga una vez de generado el informe de imprimirlo, previsualizrlo, exportarlo, etc... Mas o menos .

Un Saludo.