Impresion a PDF

[adebonis]

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,'');
    // 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;

Espero que sirva.

Adolfo Bonis
Barcelona