EXELDE GÖRÜNEN HÜCRELERİ Yazıcıda gizlenmesi

[mekemaloglu]

Merhaba arkadaşlar;

Exel Sayfasında Görünen A1 hücresine girdiğim veriler Bu hücrenin bulunduğu sayfadan Yazıcıdan çıktı alırken A1 hücrei görünmemesi için nasıl bir uygulama yapabiliriz. Şimdiden saygılar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook sayfasına kopyalayarak deneyin. Menüdeki yazdır butonuna bastığınızda kod kendiliğinden çalışacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[a1].Font.ColorIndex = 2
Application.Wait Now + TimeValue("00:00:02")
[a1].Font.ColorIndex = 0
End Sub

 

[mekemaloglu]

Uygulama başarısız oldu

Öncelikle ilgilendiğiniz için teşekkür ederim. ancak uygulamayı yaptığımda seçtiğim hücrenin rengi beyaz oldu ancak yazıcıdan cıktı yinede verdi

 

[mekemaloglu]

Çıktıda görünmeecek. Yani baskı yapılırken kağıtta gözükmeyecek

Yazıcı çıktısında yani kağıda a1 hücresi basılmayacak

 

[Seyit Tiken]

Böyle bir kodu deneyin.

Sub Düğme1_Tıklat()
Range("A1").Font.ColorIndex = 2
ActiveSheet.PrintOut
Range("A1").Font.ColorIndex = 0
End Sub

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin.

Normal bir modüle

[COLOR=#000088]Sub[/COLOR] gizle()
[a4].Font.ColorIndex = 2
[COLOR=#000088]End[/COLOR] [COLOR=#000088]Sub[/COLOR]
 
[COLOR=#000088]Sub[/COLOR] goster()
[a1].Font.ColorIndex = 0
[COLOR=#000088]End[/COLOR] [COLOR=#000088]Sub[/COLOR]

Thisworkbook modulüne

[COLOR=#000088]Private[/COLOR] [COLOR=#000088]Sub[/COLOR] Workbook_BeforePrint(Cancel [COLOR=#000088]As[/COLOR] Boolean)
[COLOR=#000088]Call[/COLOR] gizle
Application.OnTime Now, "goster"
[COLOR=#000088]End[/COLOR] [COLOR=#000088]Sub[/COLOR]