DOC u PDF Çevirme

Sayın Hocalarım bilirsiniz pdf creator diye free bir program vardır aşağıdaki kod ile dışarıdaki bir word belgesini yazdırmaya çalışıyorum fakat veri tabanı ilk açıldığında kod güzel çalışıyor ve doc u pdf e çeviriyor 2. veya 3. işlemlerde bahtınıza ne çıkarsa olayı oluyor bazen çalışıyor bazen çalışmıyor bunu neye yorabiliriz. Engin deneyimlerinizden yardımlarınızı bekliyorum. Direk olarak seçilen yazıcıya documanı açtırmadan göndermemiz mümkünmüdür.

Private Sub Komut84_Click()
Dim WordApp As Word.Application
Dim AYol As String
AYol = "C:\Evraklar\" & [TeklifNo] & ".doc"
Application.FollowHyperlink AYol, , True
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize

ActivePrinter = "PDFCreator"
Word.Application.PrintOut FileName:=AYol


Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing


End Sub

Ben sizin kodlarınızı bir forma uyguladım. Referans olarak da Word Office12 kütüphanesini yükledim. Fakat sadece aktif yazıcı olarak PrimoPdf kullandım. Sorunsuz çalışıyor. Bence ücretsiz bir yazılım olan PrimoPdf kurun ve onun sanal yazıcısını kullanın.

sanal yazıcı olarak PDF ye başka bir altenatif ; PDF24 sınırsız süresiz tavsiye edrim.

Örnek Dosya alternatif bir seçenek olabilir.