Toplu Yazdırma

[ByChilavert]

Merhaba

2 Excel Sayfam var bir tarafta personel listem bir tarafta ise düşeyara ile personel personel bilgilerini sorgulattığım tablo var sağ üst köşede yazmış olduğum rakama göre personel bilgileri gelmektedir. Yazdır butonu ile tek tek yazdırıyorum. Tek yazdırma komutu ile bütün hepsini yazdırabilir miyim?

 

[Korhan Ayhan]

Merhaba,

İlk olarak formüllerinizde bir sıkıntı var. Onları düzeltin. Ek olarak foruma eklediğiniz dosyalarda kişisel bilgilerin olmamasına dikkat edin. Dosyanızdaki TC numaraları sıkıntı yaratabilir. Bu sebeple linki kaldırıyorum.

Aşağıdaki kodu deneyiniz.

Sub Yazdır()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long
    
    Set S1 = Sheets("Hafta")
    Set S2 = Sheets("EKİM KOLİN İŞİ")
    Son = S2.Cells(S2.Rows.Count, 1).End(3).Value
    
    For X = S1.Range("O1").Value To Son
        Range("O1").Value = X
        S1.PrintOut
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ByChilavert]

Merhaba

Affınıza sığınarak soru sormak istiyorum. Yazdır butonu içerisine bu kodu yazarak o butonu tıklayınca yazdırmaya başlayacak sanırım.