Seçenekli Yazdırma

[zuzucuk]

Merhaba arkadaşalar forumdaki bilgiler doğrultusunda elimden geldiğince stok ve fatura hazırladım. Kullanmak isteyen arkadaşalr da buyursun indirsin. Yalnız yapmak istediğim 1-2 şey var yapamadım. Ektelemiş olduğum çalışma kitabındaki Fatura sayfasında Kırmızı ile yazdığım alanların çıktıdan alınmaması yani faturaya bastırdım zaman sayfayı kırmızı yazan yerlerin çıkmamasıdır. Böyle bir imkan mevcutmudur VBA alanında bi kod yazdım fakat işe yaramadı sanırım.

 

[ileriexcel]

Sub test()
Sheets("Fatura").Select
Range("A1:A3,L3,L5,L7,M10,L10,K10,C10:J10,B10").Select
Range("B10").Activate
Selection.Font.ColorIndex = 2
Range("A1:A3").Select
ActiveSheet.PrintPreview
Range("A1:A3,L3,L5,L7,M10,L10,K10,C10:J10,B10").Select
Range("B10").Activate
Selection.Font.ColorIndex = 3
Range("A1:A3").Select
End Sub

 

[zuzucuk]

dostum yardımın için teşekür ederim ama çıktıdan belirttiğim alanlar yazdırıldı onların yazılmasını istemiyordum ben. Belki bende hata olabilir verdiğin kodları Module1 yapıştırdım.

 

[ileriexcel]

Kırmızı yazılı yerler çıkmasın demişsiniz! yanındaki yazılarıda kasdediyorsanız en iyisi siz yazılmasını istemediğiniz yerlerin hücrelerini dolgu rengi ile belirleyiniz.

 

[zuzucuk]

dostum benim derdim şu kısaca Resimdeki Kırmızı hücreli yerlerin ve hücrenin içindeki yazıların yazdırılmamasıdır.
verdiğin kodu module1 sayfasına ekledim fakat print aldığımda kağıda yazıldı.

 

[ileriexcel]

®

Bir deneyin.