Yazdırma Problemi

[tiryakiahmed]

Merhaba Arkadaşlar,
Ekli dosyada Sayfa1 den 30 adet çıktı almak istiyorum, ancak her çıktı aldığımda Sayfa1in A1 hücresine Sayfa2 deki numaraları teker teker yazdırmak istiyorum.
Yani 1. çıktıda Sayfa1' in A1 hücresine Sayfa2 nin A1 hücresindeki değeri alıp yazdırsın, 2. çıktıda sayfa2 nin b1 hücresindeki değeri alıp yazdırsın,3. çıktıda sayfa2 nin c1 hücresindeki değeri alıp yazdırsın ...

Şimdiden teşekkürler.

 

[Ayhan Ercan]

Merhaba,

Ek Dosyayı inceleyiniz....

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, x As Long
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("Sayfa2")
x = s2.Range("a65536").End(3).Row
    For i = 1 To x
        s1.Range("A1") = s2.Cells(i, 1)
        s1.PrintOut
    Next i
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[tiryakiahmed]

Çok teşekkür ederim Ayhan Bey,

 

[Ayhan Ercan]

Çok teşekkür ederim Ayhan Bey,

Rica ederim..
İyi Çalışmalar...