Koşullu yazdırma alanı belirleme

[siar]

Sayfaya atayacağım bir butonla satır sayısı ve sütun belirterek yazdırma alanı belirlemek istiyorum. Tşk.

 

[Seyit Tiken]

Örnek : InputBox'a a1:h30 şeklinde yazıp deneyiniz.


Sub Düğme1_Tıklat()
On Error Resume Next
a = InputBox("Yazdırma Alanı Belirtiniz", Application.UserName)
Range(a).PrintOut
End Sub