Yazdırma sorunu

[evren_gidici]

Arkadaşlar Kolay Gelsin Benim Basit bi Çalışmam oldu excelde sorunum şu menü alanına yerleştirdiğim butona bastğımda yazıcı sayfasının çıktısını almak istiyorum ilgilenecek arkadaşlara şimdiden teşekkürler..

 

[cem yılmaz]

module1 kısmına;

Sub Makro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

daha sonra bu makroyu butonunuza atayınız.

Örneğiniz ektedir.

 

[Orion1]

Dosyanız ekte.

Sub Düğme1_Tıklat()
Range("A1:I21").PrintOut
End Sub

 

[evren_gidici]

teşekkürler

 

[evren_gidici]

Emeğinize saağlık Teşekkür ederim