[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