(01-10-2019, 22:40)Taruz demiş ki:

Visual Basic

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" bunu pasife çektim
 
WordApp.ActiveDocument.SaveAs FileName:= _
         "D:\Çubuk.pdf", FileFormat:=17 'bunu ekledim
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing

(02-10-2019, 00:10)husem demiş ki: sn taruz, harikasınız. teşekkür ederim.
pdf yapmak istediğimiz dosya excel dosyası olduğunda world yazan kısımları excel yapsak olurmu acaba

Dim objXl As Object
 
Const xlTypePDF = 0
Const xlQualityStandard = 0
 
 
Set objXl = CreateObject("Excel.Application")
 
 
With objXl
 
    .Workbooks.Open ("D:\Çubuk.xls")
       
'PDF export için parametreleri belirle
    .ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "" & "D:\Çubuk.pdf" & "", quality:=xlQualityStandard, _
        includedocproperties:=-1, ignoreprintareas:=0, openafterpublish:=0
 
 
    .Quit
End With