Belirlediğim Hücreleri Yazmasın

[selmanfaris]

Merhaba arkadaşlar.

Basit bir fatura şablonu yaptım. Yalnız ekde belirttiğim dosyadaki kırmızı ile yazılmış olan yazıların yazıcıdan çıktı alırken yazılmamasını istiyorum.

Yardımcı olabilirseniz çok memnun kalacağım.

Ekli dosyayı görüntüle fatura.xls

 

[halit3]

Bunları denermisiniz.

Sub YAZDIR()
Range("B24,D16,D18,D20,C24,D24,E24,D50,D51,D52").Font.ColorIndex = 2
Worksheets("Sayfa1").PageSetup.PrintArea = "$A$2:$E$52"
Worksheets("Sayfa1").PrintOut Copies:=1, Collate:=True
Range("B24,D16,D18,D20,C24,D24,E24,D50,D51,D52").Font.ColorIndex = 3
End Sub

 

[selmanfaris]

Hocam alt+f11 yaptım. insert ten module ye tıklayıp bu kodları yazdım. Daha sonra kaydet deyip kapattım. Yazdır dedim ama olmadı.

(Not: dosya içinde para çevirme makrosu da var.)

 

[Mahir64]

Merhaba altarnatif olsun.

Yazdırma işlemini buton ile yapın

 

[halit3]

Hocam alt+f11 yaptım. insert ten module ye tıklayıp bu kodları yazdım. Daha sonra kaydet deyip kapattım. Yazdır dedim ama olmadı.

(Not: dosya içinde para çevirme makrosu da var.)

Ekli dosyada düğmeye basmanız yeterli olacaktır.

 

[selmanfaris]

Çok teşekkür ederim arkadaşlar. Çok memnun oldum. Ellerinize Sağlık.