Tek Button ile birden fazla sayfa yazdırma

[ekremmk]

Private Sub CommandButton1_Click()
    Me.Hide
    ThisWorkbook.Unprotect Password:=""
    With Sheets("İstanbul")
        .Visible = True
        .PrintPreview
        .Visible = False
    End With
    ThisWorkbook.Protect Password:="", Structure:=True, Windows:=True
    Me.Show
End Sub

Bu kod ile tek sayfayı yazdırabiliyorum ama örneğin Ankara adlı bir sayfam daha var aynı butonla tek tıklamada nasıl yazdırabilirim.

 

[veyselemre]

Private Sub CommandButton1_Click()
    Me.Hide
    ThisWorkbook.Unprotect Password:=""
    arr = Array("Sheet2", "Sheet3")
    For Each sh In Sheets(arr)
        sh.Visible = True
    Next
    
    Sheets(arr).PrintPreview
    
    For Each sh In Sheets(arr)
        sh.Visible = False
    Next
    ThisWorkbook.Protect Password:="", Structure:=True, Windows:=True
    Me.Show
End Sub

 

[ekremmk]

Private Sub CommandButton1_Click()
    Me.Hide
    ThisWorkbook.Unprotect Password:=""
    arr = Array("Sheet2", "Sheet3")
    For Each sh In Sheets(arr)
        sh.Visible = True
    Next
   
    Sheets(arr).PrintPreview
   
    For Each sh In Sheets(arr)
        sh.Visible = False
    Next
    ThisWorkbook.Protect Password:="", Structure:=True, Windows:=True
    Me.Show
End Sub

Teşekkür ederim hocam problemi çözdü. İyi günler