yazdırma ayrı

[sinerji_hasan]

arkadaşlar merhaba benim bir problemim var sorunum hakkında arama yaptım ama bulamadım

tablo cizdim bu tablonun farklı yerlerini farklı olarak renklendirdim (daha iyi doldurabilmek ve göze daha hoş görünsün diye)

ben yazdır dediğim zaman benim istediğim yerlerin gri olarak yazdırması istiyorum geri kalan kısmı ise sadece tablonun kenarlık cizgileri kalsın istiyorum acaba bana yardımcı oalbilirmisiniz şimdiden teşekkür ederim.
(yazdırma seçenekleri siyah beyaz yazdır ile olmadı)

 

[Metin Karaağaç]

dosya/sayfa yapısı/çalışma sayfası/siyah-beyaz

 

[Seyit Tiken]

Dosya>Sayfa Yapısı>Çalışma Sayfası>Siyah-Beyaz, kutucuğunu tıklayıp tamam deyin.

 

[sinerji_hasan]

yazdırma seçenekleri siyah beyaz yazdır ile renkli olanların hepsi gidiyor sadece tablo kenarlıkları kalıyor benim istediğim istediğim bazı kutucukların gri tonda olmasını istiyorum

 

[Seyit Tiken]

Dosyanızı göndermiş olsaydınız çözüm daha isabetle olurdu. Aşağıdaki kodu kendinize göre değiştiriniz.

Örnek Kod :

Sub Makro1()
Range("A1,D2,G2,H5,E9,B9").Interior.ColorIndex = 15
ActiveSheet.PrintOut
Range("A1,D2,G2,H5,E9,B9").Interior.ColorIndex = 40
End Sub

 

[sinerji_hasan]

ekdeki dosyada gri olan yerler yazdırılırken gri çıkacak diğer renkli kısmlar renksiz çıkacak

 

[Seyit Tiken]

Ekli dosyaya bir bakın...

 

[Seyit Tiken]

Yazdırma işleminden sonra renkli kısımlar kayboluyor. Tekrar eski haline gelmesi için ilgili kodlara ilave yapıldı. Hücreler Ad Tanımlıdır.

 

[abdi]

sizin için sayfaya bir adet toggle buton koydum yazdırmak istediğiniz zaman toggle butona tıklayıp artalanı beyaz yapıp yazdırabilirsiniz yazdırma işlemi bitince de toggle butona tıklayıp tekrar artalanınızı eski haline getireblirsiniz.

yapılan kodlama esasında

Private Sub Workbook_BeforePrint(Cancel As Boolean)


End Sub

bloğuna da yazılablir böylelikle düğme olayı ortadan kalkabilir.

saygılar sevgiler
çalışmalarınızda başarılar dilerim.

 

[sinerji_hasan]

sn Seyit Tiken bu tanımlama işlemini nasıl yaptınız aynı sayfada ikinci bir form var ben onuda ilave etmek istiyorum ayrıca benim orjinal formumda bulunan rengin kodunu nasıl bulabilirim ilgilenen arkadaşlara tekrar teşekkür ederim.

 

[Ali]

Sn sinerji_hasan, bir modüle aşağıdaki kodları ekleyerek çalıştırırsanız ilgili renk kodlarını görebilirsiniz

Sub renkkodları()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next
End Sub

 

[Seyit Tiken]

Ad Tanımlama yerine direkt hücre adresleri ilgili koda yazıldı. Bu şekilde üzerinde değişiklik yapabilirsin....

 

[Seyit Tiken]

İlgili dolgu rengi size göre kapalı ise Araçlar>Seçenekler>Renk, platinde istenilen açıklığa getirebilirsin.

 

[sinerji_hasan]

SN Seyit Tiken yazdığın gibi yaptım oldu. çok teeşekkür ederim ayrıca renk kodları için sn fructose ve diğer arkadaşlara teşekkür ederim.