Toplu sayfa ön izle ve yazdır

[nane]

Merhabalar,

Çalışma kitabında A4 dik olarak hazırlanmış farklı bilgilere sahip 24 sayfa var bunları her sayfadan birer adet olmak üzere tek seferde Sayfa1 de durarak yazdırmak mümkün mü ?

Sayfa isimleri farklı 4715, 4136, 2315,......10695 gibi
Şimdiden yardımlarınız için teşekkürler...

 

[Muzaffer Ali]

Merhaba.

Dosyadaki tüm sayfaları yazdırmak için.

Sub DosyadakiTumSyfalariYazdir()
    Dim Sayfa As Worksheet
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.PrintOut
    Next
End Sub

Belirlediğiniz sayfaları yazdırmak için

Sub DosyadakiBaziSayfalariYazdir()
    Dim Sayfa As Integer
    Dim Sayfalar()
  
    Sayfalar = Array("Sayfa1", "Sayfa2", "Sayfa3") ' Buraya yazdırmak istedğiniz sayfa isimlerini yazın. Virgül ile ayırarak başka sayfa ekleyebilirsiniz.
  
    For Sayfa = 0 To UBound(Sayfalar)
        ThisWorkbook.Worksheets(Sayfalar(Sayfa)).PrintOut
    Next
End Sub

Belirlediğinz sayfalar haricindekileri yazdırmak için

Sub DosyadakiBaziSayfalariYazdirma()
    Dim Sayfa As Worksheet
    Dim YazdirilmayacakSayfalar()
    Dim Bak As Integer
   
    Dim Yazdir As Boolean
   
    YazdirilmayacakSayfalar = Array("Sayfa1", "Sayfa2") 'Yazdırılmasını istemediğiniz sayfa adlarını buraya yazın.
   
    For Each Sayfa In ThisWorkbook.Worksheets
        For Bak = 0 To UBound(YazdirilmayacakSayfalar)
            If Sayfa.Name = YazdirilmayacakSayfalar(bk) Then
                Yazdir = False
                Exit For
            Else
                Yazdir = True
            End If
        Next
        If yazdır Then Sayfa.PrintOut
    Next
End Sub

 

[nane]

Merhabalar,
Birkaç gündür faruma bakamadım kusura bakmayın. dalgalikur öncelikle teşekkür ederim.
Vermiş olduğunu kodları denedim. Tüm sayfaları yazdır çalışıyor, bazı sayfaları yazdır çalışıyor.

Fakat "bazı sayfaları yazdırma" kodlarını çalıştıramadım.
Sayfa isimlerini eklememe rağmen hiç işlem yapmıyor.
Makro olarak butona ekledim..

 

[Muzaffer Ali]

"DosyadakiBaziSayfalariYazdirma" kodları içine dosyadaki bütün sayfa isimlerini yazmış olabilir misiniz? Bu durumda hiçbir sayfa yazdırılmaz.
Ayrıca, içinde hiçbir yazı olmayan sayfalar da yazdırılmaz.