Doc Ve Docx Uzantılı Dosyayı accessde buton ile Pdf Formatına nasıl dönüştürebilirim acaba.
aşağıdaki kod ile yapmaya çalıştığımda pdfCreator ekranını açıyor. bu ekranı açmadan dönüştürmesini istiyorum.
Private Sub pdfyap_Click()
Dim WordApp As Word.Application
Dim AYol As String
AYol = "D:\Çubuk.doc"
Application.FollowHyperlink AYol, , False
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = False
WordApp.WindowState = wdWindowStateMaximize
ActivePrinter = "PDFCreator"
Word.Application.PrintOut FileName:=AYol
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub