Soru Gizli Sekmeleri Yazdırma

[ekremmk]

İyi günler elimde bulunan çalışmamda gizli halde bulunan sekmeleri yazdırmam gerekiyor.
Gizli olan Sayfa1 sekmesini Button1 de nasıl yazdırabilirim. Kısa bir yolu varsa örnek koddan kendi dosyama düzenleyebilirim. Eğer ayrıntılı bir durumsa örnek dosyaya buraya tıklayarak ulaşabilirsiniz.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

sub yazdir()
Sheets("Sayfa2").Visible = True
.
. yazdırma komutları
.
Sheets("Sayfa2").Visible = False
End sub

 

[ekremmk]

Aşağıdaki şekilde deneyiniz.

sub yazdir()
Sheets("Sayfa2").Visible = True
.
. yazdırma komutları
.
Sheets("Sayfa2").Visible = False
End sub

malesef dosyamda kullanamadım hocam.

 

[Ömer BARAN]

Merhaba.
Yazdırılacak gizli sayfalarda veri olmalıdır tabi ama kod yapısı aşağıda (doğal olarak Sayın asri'nin verdiği yapıdır).
Bu kodlar diğer CommandButtonlar için de benzer şekilde eklenmelidir.

Private Sub CommandButton2_Click()
With Sheets("GİZLİ1")
    .Visible = True
    .PrintOut
    .Visible = False
     MsgBox "YAZDIRILDI"
End With
End Sub

 

[ekremmk]

Teşekkür ederim ilginiz için dosyaya uyarlayabildim.

 

[Ömer BARAN]

Kolay gelsin.
.