Excel Pdf Cevirme

[SeÖzGü]

Merhaba;

Excell sayfasında sürekli farklı tablolar yapılmakta ve bunu sonrasında pdf çevirmek istediğimde aşağıdaki kod hepsini cevap yazısı olarak kaydediyor

Eğer mümkün ise A1 sütününda yazan başlıkla kaydetmesini istiyorum Masaüstüne

kıymetli desteklerinizi rica ediyorum

Sub PDF()
'
' PDF Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    ChDir "C:\Users\A41977\Desktop"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\A41977\Desktop\Hesap Ekstre Tablosu.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

 

[aliturkmen]

Merhaba;

Excell sayfasında sürekli farklı tablolar yapılmakta ve bunu sonrasında pdf çevirmek istediğimde aşağıdaki kod hepsini cevap yazısı olarak kaydediyor

Eğer mümkün ise A1 sütününda yazan başlıkla kaydetmesini istiyorum Masaüstüne

kıymetli desteklerinizi rica ediyorum

Sub PDF()
'
' PDF Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    ChDir "C:\Users\A41977\Desktop"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\A41977\Desktop\Hesap Ekstre Tablosu.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

Merhaba,

Ekli dosyayı inceleyebilir misiniz.