Hola, muchas gracias KEYS funcionò a la perfecciòn,
![EEK!](http://www.clubdelphi.com/foros/images/smilies/eek.gif)
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,
![Roll Eyes (Sarcastic)](http://www.clubdelphi.com/foros/images/smilies/rolleyes.gif)
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