Excel Dosyasını Pdf Çevirme

herkeze selamlar,


bir klasör içinde olan Excel dosyasını Access formdan Vba yardımı ile pdf nasıl dönüştürebilirim,

vba kodu nasıl yazılmalı?

Tüm Excel kitabı mı yoksa belli bir sayfa mı?

Excel kitabına yapmaya çalışıyorum

aşağıdaki kodu dener misiniz?

Function Exceli_PDF_Yap(xlFileName As String, SavePDF As String)

Dim objXl As Object



Const xlTypePDF = 0

Const xlQualityStandard = 0



Set objXl = CreateObject("Excel.Application")



With objXl

    .Workbooks.Open (xlFileName)

      

    .ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

        "" & SavePDF & "", quality:=xlQualityStandard, _

        includedocproperties:=True, ignoreprintareas:=False, openafterpublish:= _

        True

    .Quit

End With

    

End Function

kodu şu şekilde çağırabilirsiniz
Exceli_PDF_Yap "D:\Desktop\Eğitim\DosyaAdı.xlsm","D:\Desktop\Eğitim\PdfAdı.pdf"

Teşekkür ederim

Rica ederim
Iyi çalışmalar