yazdır butonu oluşturma

[kmlblgn]

Arkadaşlar yaptığım çalışmamda farklı sayfalarda veriler var bu verileri iki tuşla yazdırmak istiyorum bunun için yardımınızı istiyorum.

sinif_listesi sayfasına iki buton eklemek istiyorum

1. buton
performanskonu sayfası ve performans_odev_kagidi sayfasındaki BB1 hücrelerinde yazan sayılar kadar sayfayı çıkaracak.

2. buton
sinif_listesi , performans_notlari , performanskonu , performans_DPA , gorevini_yapmayan sayfalarındaki BB1 hücrelerindeki sayılar kadar çıktı alacak.


Örneğin: performans_DPA sayfasında BB1 hücresinde 8 yazıyorsa ilk sekiz sayfayı çıkaracak.

daha önce yazdırma butonu ile ilgili birsürü konu açılmış ama ben istediğimi bulamadım bazı var olanlarıda anlayamadım.
bilen arkadaşlardan ricam bana bu konuda yardımcı olsunlar.

Bu işi ellede yapabilmekteyim ama her sayfaya tek tek gitmek ve yazdır dedikten sonra hangi sayfaya kadar yazdıracağımı belirtmem gerekiyor daha kısa ve hata payı daha az olduğu için bunu yapmak istiyorum.
Lütfen yardımcı olun...

 

[Korhan Ayhan]

Merhaba,

Bu tarz kodlar için "makro kaydet" özelliğini kullanabilirsiniz. Daha sonra kodlara küçük eklemeler yaparak istediğiniz şekle getirebilirsiniz.

Aşağıdaki kodları deneyiniz.

Sub YAZDIR_1()
    With Sheets("performanskonu")
        .PrintOut From:=1, To:=.Range("BB1"), Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
    With Sheets("performans_DPA")
        .PrintOut From:=1, To:=.Range("BB1"), Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
End Sub
 
Sub YAZDIR_2()
    With Sheets("sinif_listesi")
        .PrintOut , Copies:=.Range("BB1"), Collate:=True, IgnorePrintAreas:=False
    End With
    With Sheets("performans_notlari")
        .PrintOut , Copies:=.Range("BB1"), Collate:=True, IgnorePrintAreas:=False
    End With
    With Sheets("performanskonu")
        .PrintOut , Copies:=.Range("BB1"), Collate:=True, IgnorePrintAreas:=False
    End With
    With Sheets("performans_DPA")
        .PrintOut , Copies:=.Range("BB1"), Collate:=True, IgnorePrintAreas:=False
    End With
    With Sheets("gorevini_yapmayan")
        .PrintOut , Copies:=.Range("BB1"), Collate:=True, IgnorePrintAreas:=False
    End With
End Sub