Buton ile yazdırma

[yavuz829]

Merhaba arkadaşlar.
Excel sayfayı sadece buton ile yazdırmak istiyorum. Dosya yazdır ve Ctrl P komutu ile sayfayı yazdırmasın. Dosya yazdır ve Ctrl P komutu verdiğimiz zaman yazdır butonu ile sayfayı yazdırın. Uyarısını versin. Bu konuda yardımlarınıza ihtiyacım var yardımlarınız için şimdiden teşekkürler.

 

[Ömer BARAN]

Merhaba.

Forum sayfalarının üst orta kısmındaki ARAMA bölümünü daha sık kullanmanızı öneririm.

Aşağıdaki konu sayfasında bakınız.
Excelde Ctrl+P ve Menüden Yazdır İptali
.

 

[muhasebeciyiz]

Sub Yaz()
yazdir = Application.InputBox("Kaç kopya yazdırılacak?", "EXCEL", 1)
If yazdir = False Then
MsgBox " Yazdırmaktan vazgeçildi.", vbInformation, "Vazgeçtiniz"
Exit Sub
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir, Collate:=True, _
IgnorePrintAreas:=False
MsgBox yazdir & " adet yazdırıldı.", vbInformation, "Teşekkürler"
End If
End Sub

 

[yavuz829]

Çok, çok teşekkürler Hocam ellerinize sağlık.