Printer'ım olmadığı için deneme şansım yok ama aşağıdaki gibi VBA kodu ile bu iş çözülebilir.
ThisWorkbook modulune gidicek kodlar:
[vb:1:2b4739a2c7]Private Sub Workbook_BeforePrint(Cancel As Boolean)
Set MyCell = Sheets("Blad1").Range("B3")
FontColor = MyCell.Font.Color
IntColor = MyCell.Interior.Color
MyCell.Font.Color = vbWhite
MyCell.Interior.Color = vbWhite
Application.OnTime Now, "ResumeAfterPrint"
End Sub
[/vb:1:2b4739a2c7]
Yeni bir module gidicek kodlar:
[vb:1:2b4739a2c7]Public MyCell As Range
Public FontColor As Long
Public IntColor As Long
'
Sub ResumeAfterPrint()
MyCell.Font.Color = FontColor
MyCell.Interior.Color = IntColor
End Sub
[/vb:1:2b4739a2c7]
Degerli raider arkadas,
Benimde evde printer olmadigi icin bugun is yerinde denedim.Daha once hic macro ile ugrasmadigimdan birseyler denedim.
Yani sizin verdiginiz sifreleri sanirim yazdim, gercektende printer ciktisinda ozaman sifre gorunmuyor, fakat bu seferde B3 hucresindeki degeri bende goremiyorum, o hucre bos gibi gorunuyor. Ama hucrenin uzerine geldigimde ozaman icindeki degerleri secebiliyorum, fakat hucreden ciktigimda hangi degeri sectigim gorunmuyor.
Sanıyorum siz kodları yanlış modullere yerlestirdiniz. Ben o kodları bir dosyaya ekleyip, buraya ekleyeyim....... siz sadece dosyayı acarken makroların aktif olmasını saglayin ve daha sonra da sayfayı yaziciya gonderin.
Sadece sayfanin yaziciya gonderilmesi sirasinda hucre gizlenecektir, daha sonra kendisi eski haline gelir......
Drawing(Çizim) > Text box(Metin kutusu)'unu sayfada istediğiniz yere yerleştirdikten sonra Text box seçili iken formül çubuğuna gidip görüntülenmesini istediğiniz hücre referansını (örneğin =B3 şeklinde) yazın. Daha sonrada Text box'a sağ tıklayıp özelliklerinden yazdır-print'teki işareti kaldırın. Hücreyi (B3) zemin rengine boyayın.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.