Girilen adede göre yazdırma?

[ocamsul]

Arkadaşlar merhabalar. uzun zamandır foruma giremedim. Tüm arkadaşlara iyi çalışmalar dilerim. Benim şöyle bir sorum olacak; ekli örnekde userform üzerindeki Textbox a girilen sayı kadar yazdırmayı nasıl yapabiliriz? yardım ederseniz sevinirim.

 

[mehmett]

CommandButton1 için aşağıdaki kodu yazın;

[vb:1:136770b5be]Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
End Sub[/vb:1:136770b5be]

 

[ocamsul]

sayın mehmett çok teşekkür ederim. birde şu var; textbox a rakam girilmediği zaman yazdır butonuna basıldığında Run-tıme Eror 1004 uyarısını almamak için kod satırına ne gibi bir ilave yapmam lazım?

 

[guraycakir]

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "kaç adet yazılacak girilmedi"
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
End If
End Sub

 

[mehmett]

Sayı yerine harf girdiğinizde hata vermemesi için şunu deneyin.

[vb:1:8f37221681]Private Sub CommandButton1_Click()
On Error GoTo 10
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
GoTo 20
10 MsgBox "Lütfen sayısal değer giriniz.", vbExclamation, "Dikkat!"
20 End Sub[/vb:1:8f37221681]