Kapalı Dosyada sayfa seçip Yazdırma

[Feylosof]

Merhaba;

Aynı Klasör içinde yer alan ve kapalı olan "AYLAR" dosyasındaki (Sayfa adını Comboboxtan seçerek) örneğin "Sayfa1" sayfasını yazdırmak istiyorum. Bununla ilgili kod desteğine ihtiyacım var. Yardımcı olursanız minnettar kalırım. saygıyla...

 

[Korhan Ayhan]

Kendinize göre uyarlarınız.

Option Explicit

Private Sub CommandButton1_Click()
    Dim XL_App As Object, WB As Object
    
    Set XL_App = VBA.CreateObject("Excel.Application")
    XL_App.Visible = False
    
    Set WB = XL_App.Workbooks.Open(ThisWorkbook.Path & "\AYLAR.xlsx")
    WB.Worksheets(ComboBox1.Text).PrintOut
    
    WB.Close 0
    XL_App.Quit
    
    Set WB = Nothing
    Set XL_App = Nothing
End Sub

 

[Feylosof]

Kendinize göre uyarlarınız.

Option Explicit

Private Sub CommandButton1_Click()
    Dim XL_App As Object, WB As Object
   
    Set XL_App = VBA.CreateObject("Excel.Application")
    XL_App.Visible = False
   
    Set WB = XL_App.Workbooks.Open(ThisWorkbook.Path & "\AYLAR.xlsx")
    WB.Worksheets(ComboBox1.Text).PrintOut
   
    WB.Close 0
    XL_App.Quit
   
    Set WB = Nothing
    Set XL_App = Nothing
End Sub

Çok teşekkür ederim Üstadım. Allah razı olsun.