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