CommandButton ile yazdırmak

[ulutanas]

Arkadaşlar merhaba,
Aşağıda ki kod ile Userform üzerinde sayfaya aktardığım verileri yazdır butonu ile yazdırıyorum ama daha fazla çıktı almak durumunda her seferinde tekrar tuşlamam gerekiyor.
Aşağıdaki kod'a kaç baskı yapılacağını sorsa ona göre örneğin 1-2-3-4... gibi yazarak istediğim kadar baskı alsam mümkün mü acaba.

Worksheets("FATURABASKI").PageSetup.PrintArea = ""
Worksheets("FATURABASKI").PrintOut copies:=1

İyi çalışmalar,
Saygılarımla...

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanabilirsiniz.

Dim KopyaSayisi As String
Worksheets("FATURABASKI").PageSetup.PrintArea = ""
KopyaSayisi = InputBox("Kopya sayısını belirtiniz.")
If KopyaSayisi = Empty Then Exit Sub
If KopyaSayisi < 1 Then
    MsgBox "Lütfen 1 yada daha fazla bir bir rakam giriniz."
    Exit Sub
End If
Worksheets("FATURABASKI").PrintOut copies:=KopyaSayisi

 

[ulutanas]

Çok teşekkür ederim kardeşim, tam istediğim gibi olmuş.

İyi çalışmalar,
Saygılarımla...