AccessTr.neT

Tam Versiyon: Excel Dosyasını Pdf Çevirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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