Yazdırma Hatası

[tufan03]

Worksheets("Geçici").PrintOut Copies = 1
Yukarıdaki kodla biçim sayfasını bir adet yazdırmak istiyorum.Aşağıdaki hata mesajı geliyor.
run-time error '1004':
Sayı 1 ve 32767 arasında olmalıdır bu aralıkta bir sayı girin......
Acaba kodda nasıl bir hata yaptım. Selamlar.

 

[tufan03]

Özür dilerim biçim değil yazdırmak istediğim sayfa ismi "Geçiçi"

 

[ileriexcel]

Worksheets("Geçici").PrintOut Copies:=1 koymayı unutmuşsunuz)

 

[ocamsul]

Worksheets("Geçici").PrintOut Copies = 1
Yukarıdaki kodla biçim sayfasını bir adet yazdırmak istiyorum.Aşağıdaki hata mesajı geliyor.
run-time error '1004':
Sayı 1 ve 32767 arasında olmalıdır bu aralıkta bir sayı girin......
Acaba kodda nasıl bir hata yaptım. Selamlar.

Private Sub CommandButton1_Click()
Unload Me
If TextBox1 = "" Then
MsgBox "Kopya Sayısını Giriniz...!!!"
UserForm1.Show
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1.Value
Unload Me
End If
End Sub

1 Ad. Form 1 Ad. TextBox 1 Ad.CommandButton1 ile istenen daha iyi olur.
Tabi kodun en başına aktif edilecek sayfa belirtilmeli.

 

[tufan03]

ileriexcel teşekkür ederim