CommandButton ile onay vererek yazdırma

[SanaLSukuL]

Yazdır ve commadbuton kelimesi ile arattırdım tam anlamıyla istediğim bir sonuç çıkmadı baya uzun süredir sayfaları taradım ve indirdim inceledim olmadı.
Örnek dosyayıda incelerseniz ne demek istediğimi anlarsınız. Command butona tıkladığım zaman
.............
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut
End Sub
.............
aralığını yazdırıyor ama ben bir MsgBox penceresi açılması ve bu pencerede EVET ve HAYIR tuşlarının olmasını istiyorum. EVET tuşu ile onayladıktan sonra yazdırmasını, HAYIR tuşuna basınca yazdırmayı iptal etmesini istiyorum.
Yardımcı olursanız sevinirim. SAYGILAR...

 

[Recep İpek]

Kodlarınızı aşağıdaki gibi uyarlayabilirsiniz.

Private Sub CommandButton1_Click()
If MsgBox("Verileriniz Yazdırılsın mı?", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub

 

[SanaLSukuL]

Tşk ederim emeğiniz ve yardımınız için.
SAYGILAR....

 

[SanaLSukuL]

Private Sub CommandButton1_Click()
If MsgBox("Verileriniz Yazdırılsın mı?", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub

Acaba bu koda yazdırılacak kaç tane aynı sayfadan yazdıracağını koyamaz mıyız?
Mesela EVET yazdırsın tıklasın ve de aynı sayfadan 3 tane yazdırsın desin sayfa sayısını kendi belirlesin kullanıcı.
Tşk ler.

 

[Zeki Gürsoy]

Private Sub CommandButton1_Click()
If MsgBox("Verileriniz Yazdırılsın mı?", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
sor = InputBox("Kaç kopya yazılsın?", "Onay")
If sor = cancel Then Exit Sub

ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut , , sor
End If

End Sub

 

[SanaLSukuL]

Teşekkür ederim.
Onay vererek yazdırma kodunu öğrendim.
Onay ve sayfa adedi ile yazdırmayı da öğrendim.
Birde sadece sayfa adedini sorarak ve de sadece mesela B1:AC33 hücrelerini yazdıran kodu yazarsanız sevinirim.
Verdiğiniz kodlarda oynama yaptım ama olmadı.
SAYGILAR...........

 

[emrexcel123]

yazdırma

Private Sub CommandButton1_Click()
If MsgBox("Verileriniz Yazdırılsın mı?", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
sor = InputBox("Kaç kopya yazılsın?", "Onay")
If sor = cancel Then Exit Sub

ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut , , sor
End If

End Sub

Private Sub CommandButton1_Click()
sor = InputBox("Kaç kopya yazılsın?", "Onay")
If sor = cancel Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut , , sor
End If
ufak bir değişiklik ile bu kodu kullanbilirsin (sn anemos'un kodudur)...

 

[SanaLSukuL]

tşk ederim

 

[emrexcel123]

rica ederim

rica ederim arkadaşım ii günler.