sıralı listenin şablon sayfa üzerinde aktarılıp yazdırılması

[taseraydin]

Değerli arkadaşlar bir Sayfada sıralı olan listedeki verileri Diğer sayfada oluştulmuş olan Şablon içine sıralı şekilde yerleştirilmesi ve yazdırılma işlemi yaptırılıp şablona tekrar listenin kaldığı satırdan şablona aktarılarak listenin son satırına kadar devam ettirebilmek için yardımlarınızı bekliyorum.
Sevgilerimle

 

[Mahmut Kök]

Aşağıdaki kodları deneyiniz. Yazdırma alanını da 1 sayfaya sığdırınız.

Private Sub CommandButton8_Click()
Set s1 = Sheets("KAYIT")
Set s2 = Sheets("LISTE")
t = s1.[a65536].End(3).Row - 1
k = Application.WorksheetFunction.RoundUp(t / 50, 0)
Set alan2 = s2.Range("a4:e53")
For a = 1 To k
Set alan1 = s1.Range(s1.Cells((((a - 1) * 50) + 2), 1), (s1.Cells((((a - 1) * 50) + 51), 5)))
alan2.Value = alan1.Value
s2.PrintOut
Next
End Sub

 

[taseraydin]

TeŞekÜr

İlgİnİze Çok TeŞekÜr Ederİm
Elİnİze SaĞlik