Yazdır butonu makro

[mustafa77yilmaz]

Ekte ki dosyada ""bilgi gir"" sekmesindeki karne yazdır butonuna tıkladığımızda ""karne"" sekmesindeki seçtiğimiz hücreleri yazdırması için nasıl bir makro uygularız...

 

[Orion1]

Dosyanız ektedir.

Sub karne_yazdir59()
Dim sh As Worksheet
Set sh = Sheets("KARNE")
sh.PageSetup.PrintArea = "KARNE!A1:I15"
sh.PrintOut

End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsinz.

Sayfa1.[a1:I15].PrintOut

 

[mustafa77yilmaz]

Teşekkürler tamam oldu

 

[salamana]

merhaba bende yeniyim bir dosya hazırladım amatörce ve biraz geliştirmek istiyorum yardımcı olursanız sevinirim
sayfalara yazdır-kaydet ve çık butonlarını eklemek istiyorum
altta görünen sayfa isimlerinin görünmemesini istiyorum
yardımcı olursanız sevinirim