Yazdır Komutunda a1 hücresindeki sayı kadar çıktı alma

[dortmevsim]

Selam arkadaşlar aşağıdaki komut ile 1 sayfa yazdırabiliyorum a1 hücresine yazdığım sayı kadar yazıcıdan çıktıyı nasıl alabilirim

For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.ListIndex = i
Sheets("NORMAL").Cells(7, 3) = Me.TextBox8.Text
Sheets("NORMAL").PrintOut
Next
End If

 

[Tevfik_Kursun]

Merhaba,
Sheets("NORMAL").PrintOut
satırını
Sheets("NORMAL").PrintOut Copies:=[A1].Text
ile değiştiriniz.
iyi çalışmalar