Ver Mensaje Individual
  #8  
Antiguo 07-09-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Sigues sin decir gran cosa. Pero bueno, si la pc dispone de ms word (alguna versión que ya tenga integrado la exportación a pdf) puedes hacer uso de esta rutina:

Código Delphi [-]
uses ComObj;

procedure Rtf2Word(const FileName: String);
const
  wdExportFormatPDF = 17;

var
  WordApp, Documento: OleVariant;
  OutputFileName: String;

begin
  OutputFileName := ChangeFileExt(FileName, '.pdf');
  WordApp := ComObj.CreateOleObject('Word.Application');
  Documento := WordApp.Documents.Open(FileName);
  Documento.ExportAsFixedFormat(OutputFileName, wdExportFormatPDF);
  WordApp.Quit;
end;

LineComment Saludos
Responder Con Cita