Excelde hucrelerin printerden ciktisini alirken goruntusu?

[erc61]

Degerli arkadaslar ekte ekledigim dosyada B3 hucresinde sectigim degerlerin cikti alirken gorulmesini istemiyorum.

Yani sadece B3 hucresi saklansin.

Hucrenin rengide fark etmiyor. simdi rengi beyaz ama...

 

[Levent Menteşoğlu]

B3 hücresindeki yazının rengini beyaz yapsanız sorununuzu çözermi?

 

[abazya]

Ben bunu birine söyledim denemiş geldi olmadı dedi arkadaşı uyarmak istiyorum hüçrenin rengini değil yazının aynı dalgınlık olmasın

 

[Haluk]

Merhaba;

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]

 

[ömerileri]

yazdırma alanı belirleseniz ( öneri sadece )

 

[erc61]

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.

Bunun icin bir cozumun varmi.

Butun arkadaslara tesekkur ederim.

 

[Haluk]

Ercan bey;

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......

 

[danersin]

Eğer makrolu çözümü uygulamak zor gelirse ;

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.

 

[erc61]

tesekkurler arkadaslar evde printer olmadigi icin deneyemiyorum.Pazartesi iste denedikten sonra sizi bilgilendiririm.

Ellerinize ve beyninize saglik