Ver Mensaje Individual
  #8  
Antiguo 11-01-2011
Avatar de adebonis
adebonis adebonis is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 145
Reputación: 22
adebonis Va por buen camino
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
Responder Con Cita