Cita:
Empezado por pakorochamx
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.
|
Mmm segun veo este codigo esta en Delphi, porque en tu mensaje anterior preguntas por el codigo en .h o .cpp? estas usando también C en tu proyecto?
Bueno respecto a este código agrega "QRPDFFilt" al uses que esta después de interface (al principio de el codigo de tu form o unit). Claro si es que ya has trabajado con Quickreport y no te ha dado problema si no quizá tengas que agregar la carpeta de QR al path de delphi.
Yo diseñé mi propio Preview para QR y en el preview puse un botón que me exporta a PDF el reporte.
Código Delphi
[-]
procedure TFormQRPreview.bt_pdfClick(Sender: TObject);
begin
SaveDialog.Title := 'Guardar como PDF';
SaveDialog.DefaultExt := '.pdf';
SaveDialog.Filter :='pdf';
if SaveDialog.Execute() then
if SaveDialog.FileName <> '' then QRPrev.QRPrinter.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog.FileName));
end;
y me funciona perfectamente, sí que lo primero que quiero que revises es si estas generando el reporte antes de tu rutina donde lo exportas ya sea con un "QReporte.PreviewModal" o si uno usas previsualización con un ".QReporte.Prepare"