كيف تنتج ملفات PDF من برنامجك

في حال قمت بتركيب طابعة PDF على جهازك وهو برنامج مستقل قم فقط بتطبيق هذا الكود

Dim wdo As Word.Application
   Dim wdoc As Word.Document
   Dim wdocs As Word.Documents
   Set wdo = CreateObject("Word.Application")
   Set wdocs = wdo.Documents

   wdo.ActivePrinter = "Acrobat PDFWriter"

   Set wdoc = wdocs.Open("c:test.doc")

'The arguments are optional, but if you supply a output file name the printing is silent
   wdoc.PrintOut 0, 0, 0, "C:filename