Gizlenen sayfaları makro ile yazdırma?

[ultraslan38080]

Merhaba arkadaşlar. Benim şöyle bir sorum olacaktı;

-Excel çalışma kitabında, sayfa-1 sayfa-2 sayfa-3 ve sayfa-4 adı altında 4 sayfa oluşturdum.

- Makro kaydeti açtım ve sayfa-2 sayfa-3 ile sayfa-4 ü yazdırma özelliklerinden "sayfayı bir sayfaya sığdır" seçeneği ile yazdırdım ve makroyu kaydettim.

-Kaydettiğim makroyu sayfa-1 e düğme olarak ekledim.

SORUMA GELECEK OLURSAM;
sayfa-2 sayfa-3 ve sayfa-4 ü gizlemek istiyorum ancak bu sefer sayfa-1 deki eklediğim makro düğmesi çalışmıyor. bu üç sayfayı gizleyerek, yazdırma makrosunu çalıştırabilir miyim?
SAYGILARIMLA...

 

[ASLAN7410]

Merhaba, makro yazmayı bilmiyorum, ama aşağıdaki makro işini görür galiba.

Sub Yazdır()
Application.ScreenUpdating = False

    Sheets("Sayfa2").Visible = True
    Sheets("Sayfa3").Visible = True
    Sheets("Sayfa4").Visible = True

For a = 1 To Worksheets.Count
If Sheets(a).Name <> "Sayfa1" Then Sheets(a).PrintOut Copies:=1
Next a
MsgBox "Bütün sayfalar yazdırıldı.", vbInformation, "ULTRAASLAN"

    Sheets("Sayfa2").Visible = False
    Sheets("Sayfa3").Visible = False
    Sheets("Sayfa4").Visible = False
Application.ScreenUpdating = True

    Sheets("Sayfa1").Range("A1").Select
End Sub

 

[ultraslan38080]

Merhaba, makro yazmayı bilmiyorum, ama aşağıdaki makro işini görür galiba.

Sub Yazdır()
Application.ScreenUpdating = False

    Sheets("Sayfa2").Visible = True
    Sheets("Sayfa3").Visible = True
    Sheets("Sayfa4").Visible = True

For a = 1 To Worksheets.Count
If Sheets(a).Name <> "Sayfa1" Then Sheets(a).PrintOut Copies:=1
Next a
MsgBox "Bütün sayfalar yazdırıldı.", vbInformation, "ULTRAASLAN"

    Sheets("Sayfa2").Visible = False
    Sheets("Sayfa3").Visible = False
    Sheets("Sayfa4").Visible = False
Application.ScreenUpdating = True

    Sheets("Sayfa1").Range("A1").Select
End Sub

Tam istediğim şey bu. Çok teşekkür ederim hocam