farklı sayfaları yazdırma

[erdenek]

arkadaşlar ekteki çalışma dosyasında yer alan öğrenci numaralı ile adlandırılmış olan sayfaları tek tek sayfaları açmadan aynı anda hepsini birden nasıl yazdırabilirim.

 

[ZorBey_]

İnceleyiniz.
http://www.excel.web.tr/f48/toplu-sertifika-yazdyrma-t121410.html

 

[erdenek]

İnceleyiniz.
http://www.excel.web.tr/f48/toplu-sertifika-yazdyrma-t121410.html

üstad ilgine teşekkür ederim.ama benim aradığım bu değildi.liste sayfasında dilekçe oluştur butonuna basınca oluşturulan dilekçelerin çıktılarını almak istiyorum.yani kısaca dosyadaki liste ve şablon hariç diğer sayfaların çıktılarını tek bir tıklamayla almak istiyorum.o dosyada yaklaşık 30 kişinin dilekçesi var.hepsini tek tek açıp yazdır demek bayağı zaman alıyor.elimde şu an 500 öğrencinin dilekçesi var.

 

[Emir Hüseyin Çoban]

. . .

Benzer bir konu. İnceleyiniz.

http://www.excel.web.tr/f48/sayfalary-hyzly-bir-ekilde-yazdyrmak-t143661.html#post780640

. . .

 

[erdenek]

üstad verdiğiniz linkteki

Sub Makro()
Sheets.PrintOut
End Sub

makro işimi görüyor fakat bu tüm sayfaları yazdırıyor.ben ise liste ve şablon sayfası hariç diğer sayfaları yazmak istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Şu kodları deneyiniz.

Sub test()
    Dim arr()
    a = 1
    For s = 1 To Sheets.Count
        ReDim Preserve arr(1 To a)
        If Sheets(s).Name <> "Liste" And _
            Sheets(s).Name <> "Şablon" Then
            arr(a) = Sheets(s).Name
            a = a + 1
        End If
    Next
    
    Sheets(arr).PrintOut
    
End Sub

. . .

 

[Erdem Akdemir]

Erdenek hocam ekteki dosyayı incelermisiniz.

 

[erdenek]

Sayın;Hüseyin Çoban
Sayın;Kuvari


emekleriniz için teşekkür ederim.

 

[erdenek]

iyi bayramlar