Quick Report A Pdf.
Hola a todos:
Tengo el quick report 5.6 que estoy probando para hacer mis reportes y exportalo a PDF.
La cuestion es que no encuentro la clase TQRPDFDocumentFilter, ya he buscado en el directorio de instalacion y no esta. Saben que .h o .bpp tengo que agregar para que me funcione.
quiero hacer esta rutina, pero pues sin esta clase simplmente no me funciona.
if SaveDialog.Execute then begin
Cur := Screen.Cursor;
Screen.Cursor := crHourGlass;
FName := ChangeFileExt(SaveDialog.FileName,'');
// Según el tipo de archivo del SaveDialog (1=txt, 2=doc, 3=xls, 4=pdf, 5=html
case SaveDialog.FilterIndex of
1: QrPrinter.ExportToFilter(TQRPDFDocumentFilter.Create(FName+'.pdf'));
2: QrPrinter.ExportToFilter(TQRRTFExportFilter.Create(FName+'.rtf'));
3: QrPrinter.ExportToFilter(TQRXLSFilter.Create(FName+'.xls'));
4: QrPrinter.ExportToFilter(TQRGHTMLDocumentFilter.Create(FName+'.html'));
5: QrPrinter.ExportToFilter(TQRAsciiExportFilter.Create(FName+'.txt'));
end;
Screen.Cursor := Cur;
end;
De antemano les agradezco su ayuda.
Saludos.
|