Sırayla otomatik yazdırma

[erzen]

Ekte bulunan dosyadaki Sayfa1 de bulunan ad ve soyadları yazdır tuşuyla Sayfa2 deki uygun yere aktarıp otomatik olarak sırayla hepsini nasıl yazdırabiliriz. Yani yazdır tuşuna bir kere basıldığında herkesi tek tek Sayfa2 deki kısıma atıp otomatik olarak yazdıracak. Sayfa1 de kişi kalmadığında da yazma işlemi bitecek.
Teşekkürler

 

[Necdet]

Merhaba,

Ekli dosyayı inceleyiniz. Aşağıdaki makroyu bir butona bağlayabilirsiniz. Ben denemek için Ön İzleme yaptırdım, siz o kodu silip yazdırmayı devreye alabilirsiniz.

Sub Yazdir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 2 To s1.[A65536].End(3).Row
    s2.[A1] = "Sayın " & _
              s1.Cells(i, "A") & " " & _
              s1.Cells(i, "B") & " 2008 Yılı Aidatınızı Ödememiş Bulunmaktasınız"
    s2.PrintPreview
'    s2.PrintOut
Next i
End Sub