QReport 4.07 permite crear PDF's.
muestra del código:
Código Delphi
[-]
if SaveDialog.Execute then begin
Cur := Screen.Cursor;
Screen.Cursor := crHourGlass;
FName := ChangeFileExt(SaveDialog.FileName,'');
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;
Espero que sirva.
Adolfo Bonis
Barcelona