Sayfaları yazdır komutu

[nadirornek]

sayfa1 de iken sayfa2 ki A320 aralığını,sayfa3 ki B5:H20 sayfa5 ki C10:H25
aralıklarını sayfalar arasında gezinti yapmadan nasıl yazdırabiliriz.

 

[Seyit Tiken]

Örnek kodu kendinize uygulayınız.

Sub Düğme1_Tıklat()
Sayfa1.[a1:g30].PrintOut
Sayfa2.[a1:g30].PrintOut
Sayfa3.[a1:g30].PrintOut
End Sub

 

[reelabuzer]

s.a.
arkadasim bende buna benzer bir kod ariyorum ALLAH razi olsun arkadaslar yardimci oluyorlar fakat henuz benim derdime care bulamadim sayet aradaiginiz dediginiz gibi 1. sayfadan bir tusa basarak istediginiz sayfalarin hepsini yazdirmak istiyorsaniz o zaman isiniz kolay bir buton ekleyip butonun click yordadmina da bu kodu yazarsaniz tabii sayfalari siz kendinize gore uyarlayabilirsiniz istediginiz olur sanirim
kod;

Private Sub CommandButton1_Click()
' eğer checkbox1 seçiliyse
If CheckBox1.Value = True Then
' sayfa1 de a1:a33 arası yazdırma alanı belirle
Sheets("Sayfa1").PageSetup.PrintArea = "$a$1:$a$33"
' Sayfa1 i yazdır.
Sheets("Sayfa1").PrintOut
'her checkbox icin islemi tekrarlayiniz
End If
End Sub

bu şekilde uyarlayabilirsiniz.
ornege bakiniz umarim isinize yarar

 

[nadirornek]

Seyit Bey

Düğme1_Tıklat()
Sayfa1.[a1:g30].PrintOut
Sayfa2.[a1:g30].PrintOut
Sayfa3.[a1:g30].PrintOut
End Sub

Kısa kodunuz için teşekkürler.Böylece sayfalar arası gezintiyi önlemiş olduk.