Hücredeki Sayı Kadar Yazdır

[ormann]

İyi Akşamlar örneğin a1 hücresine 5 yazdığımda yazdır butonunu tıkladığımda 5 sayfa yazması için nasıl bir makro yapmalıyız?

 

[dEdE]

Merhaba,
Aşağıdaki kodu modüle yapıştırıp, bir butona bağlayarak dener misiniz?

Sub Yazdır()
    ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").Value
End Sub