Yazdır tümünü

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyada X11 hücresini kurum numarasını yazıp verileri düşeyara ile getiriyorum benim istediğim yazdır butonu koyarak verileri aldığım sayfada kaç kişi varsa yazdır butonuna basarak hepsini yazmasını istiyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yazdir()

    Dim S1 As Worksheet, i As Long

    Set S1 = Sheets("Sayfa1")
    
    Sheets("İşe Giriş-Periyodik Muayene S1").Select

    For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        Range("X11") = S1.Cells(i, "A")
        ActiveSheet.PrintOut
        Application.Wait Now + TimeValue("00:00:01")
    Next i
    
End Sub

.