Yazdır makrosu

[stres]

sizlerin yardımı ile şöyle bir makro oluşturdum

Sub yazdir()
Range("A1:R80").PrintOut Copies:=1
End Sub

burdaki 1 i kaç yaparsam o kadar yazdırabiliyorum
ancak yazdır butonuna tıkladığımda doğrudan yazıcıya göndermek yerine bana kaç adet yazdırmam gerektiğini soran bir uyarı sonucunda yazdıracağım adedi girebilme imkanı tanıyabilirmi yani bazen 1 bazen 2 bazen 4 adet gibi

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub yazdir()
sor = InputBox("Sayfa sayısını giriniz.", "Yazdırılacak sayfa adedi")
If sor = "" Then Exit Sub
Range("A1:R80").PrintOut Copies:=sor
End Sub

 

[stres]

teşekkür ederim levent bey