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