Yazdır butonu

[pristineli45]

Arkadaşlar tekrar merhaba.
Ekleyeceğim "Yazdır" butonuna bastığımda, açılacak msgbox'ta kaç nüsha yazdırmak istediğimizi sorsun. Nüsha sayısını girdiğimde doğrudan baskı önizleme sayfasına geçsin istiyorum.
Yardımlarınız için şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
[B]dim sor[/B]
On Error Resume Next

sor = InputBox("Kaç Sayfa Yazdırmak istersiniz", "Yazdır")
If sor = [B]""[/B] Then Exit Sub

ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=sor

End Sub

. . .

 

[pristineli45]

Çok çok teşekkür ederim.Tam istediğim gibi olmuş.
İlginize,bilginize,emeğinize,en önemlisi YÜREĞİNİZE sağlık.

 

[pristineli45]

Hüseyin kardeş,tekrar merhaba.
Ufak iki pürüz var.
1) Kaç sayfa yazdırmak istediğimize dair inputbox'a değer yazmadan cancel butonuna basarsak yine de önizleme sayfasına geçiyor. Cancel butonuna basınca iptal edebilir mi?
2) Bu kodları image ya da commandbutton butonuna atayarak uygulamak istiyorum. Bu sefer de;
"Compile error.Variable not defined" hatası verip "sor=" kısmı maviye boyanıp çalışmıyor.Bu kodları image butonuna ya da commandbuttona atayabilir miyiz?

 

[Emir Hüseyin Çoban]

. . .

# 2 nolu mesajımdaki kodları revize ettim.

1 için; Then yerine "" kullanmak gerekiyor.
2 için; Modülde Option Explicit komutu vardır. Bu komutta sizden değişkeni tanımlamanızı istiyor.
Dim sor ile onuda hallettik.

. . .

 

[pristineli45]

İşte bu kadar..SÜPERRRRRR
Tekrar tekrar teşekkür ediyorum.