درخواست کامپاننت تبدیل WORD به PDF

[arkia]

سلام
کسی کامپاننتی برای تبدیل doc یا docx به PDF میشناسه؟

کسی کامپاننت XtremeDocumentStudio برای دلفی XE رو داره؟
اگر بود پیام خصوصی کنید ممنون میشم.
لینک سایت اصلی: http://www.gnostice.com/XtremeDocumentStudio_Delphi.asp

[Valadi]

با سلام
تا حالا كامپونتي بصورت مستقيم نديدم اما بصورت غير مستقيم ميشه كارهايي كرد علاوه بر فايل ورد ميشه همه نوع فايل متني و تصوير و ... تبديل كرد من خودم در اين زمينه كار كردم و جواب هم گرفتم

[یوسف زالی]

خب یعنی چی؟ این دیگه چجور راهنمایی ای هست؟ خب شما که کار کردید و جواب هم گرفتید چرا راه حل نمی دید؟

برای تبدیل هر چیزی به PDF می تونید برنامه DoPdf رو دانلود کنید و به عنوان یک پرینتر مجازی نصب کنید، حالا از هر چیز که بخواهید پرینت بگیرید با این پرینتر بگیرید تبدیل می شه به PDF. فارسی رو هم پشتیبانی می کنه.

[benyaminrahimi]

ضمن تایید راهکار بالا بنده zan iamge printer و ارسال مستقیم به پیرنتر مجازی و گرفتن فایل نتیجه رو پیشنهاد میکنم که علاوه بر word و pdf محدودیتی در فرمت های ورودی و خروجی نداره

[arkia]

procedure ConvertDocToPdf(const Filename: string; DestFileName: string);
const
wdExportFormatPDF = 17;
wdExportOptimizeForPrint = 0;
var
ObjWord, ObjDoc: Variant;
EmptyParam: OleVariant;
begin
ObjWord := CreateOleObject('Word.Application');
ObjWord.Visible := False;
ObjDoc := ObjWord.Documents.Open(FileName);
ObjDoc.ExportAsFixedFormat(
DestFileName,
wdExportFormatPDF,
False, // OpenAfterExport
wdExportOptimizeForPrint, // OptimizeFor
EmptyParam, // etc.
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam
);
ObjWord.Quit;
ObjWord := Unassigned;
end;