makro yazdırma

[kadirdiloglu]

Merhaba,

arkadaşlar , aşağıdaki gibi bir makrom var. Ben makroya göre çıkan sonucun çıktısını alacağım ancak şu şekilde ; makroya göre aradaki boşluklarla birlikte bir kişinin verisi 5 satır tutmaktadır. Ben her bir kişiyi ayrı a4'e yazdırmak istiyorum. Aşağıdaki makroda a = son + 58 yaptığımda boşluk bırakarak yeni sayfa yazdırabiliyoruz ancak bu seferde kişi sayısı fazla olduğu için 5-6 sayfa sonra yazılar aşağıya doğru kaymaya başlıyor. her bir kişiyi sabit olarak sayfanın üst tarafına yazmasını nasıl sağlayabilirim?



Sub yaz()
Sayfa1.Range("B:B").ClearContents
For i = 5 To Sayfa2.Range("B65536").End(3).Row
son = Sayfa1.Range("B65536").End(3).Row
If son < 4 Then
a = 4
Else
a = son + 58
End If
Sayfa1.Cells(a, "B") = "Sn. " & Sayfa2.Cells(i, "C")
Sayfa1.Cells(a + 2, "B") = "Firmamızın " & Sayfa2.Cells(i, "E") & " bölümünde " & Sayfa2.Cells(i, "F") & " tarihinden itibaren çalışmaktasınız. 01.01.2016 tarihinden"
Sayfa1.Cells(a + 4, "B") = "itibaren yeni ücretiniz agi dahil " & Sayfa2.Cells(i, "D") & " TL olmuştur."
Next
Sayfa1.Select
End Sub