Tek Komut İle Çoklu Yazdırma Hakkında

[kaharli]

Ekte bulunan dosyadaki makbuzları tek yazdır komutu ile ile çıktısını almak istiyorum. yardımcı olursanız iyi çalışmalar

 

[kaharli]

Sub topluyazdir()
ilksayfa = InputBox("İlk Sayfa Nosunu Girin")
sonsayfa = InputBox("Son Sayfa Nosunu Girin")
'ActiveSheet.PageSetup.PrintArea = "J1"
For i = ilksayfa To sonsayfa
[l2] = i
ActiveSheet.PageSetup.PrintArea = "$a$1:$I$43"
ActiveSheet.PrintOut
Next
End Sub
böyle bir komut buldum hemen hemen aynı görünüyor uygulama alanı bunu kullanabilmem için yardım lütfen

 

[hamitcan]

Böyle deneyin.

Sub topluyazdir()
    t = 1
    With Sheets("VERİ")
    For i = 3 To .[B65536].End(3).Row
        .[j1] = t
        Sheets("Sayfa1").Select
        ActiveSheet.PrintPrintout
'        ActiveSheet.PrintPreview
        t = t + 1
    Next
    End With
End Sub