Soru satırın çıktıda renkli olmaması

[incsoft]

Koşullu biçimlendirmede

=SATIR()=HÜCRE("sat") formülü ile ilgili satırı renklendirip


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Calculate
End Sub

ile renkli olmasını sağlıyorum ancak renk çıktılara da yansıyor. Sadece ekranda gözükip çıktılara yansımaması için ne yapabirilim arkadaşlar? =SATIR()=HÜCRE("sat") de satır yerine ilgili hücre boyanabilirmi? Teşekkürler.

 

[hamitcan]

Yazdır kısmındaki Siyah beyaz seçeneğini işaretleyin.

 

[incsoft]

Yazdır kısmındaki Siyah beyaz seçeneğini işaretleyin.

Ekli dosyayı görüntüle 246230

o zamanda renkli yazdırma yaptırdığımızda hep siyah beyaz yazdırmazmı hocam?

 

[hamitcan]

Sadece o dosya için evet.

 

[incsoft]

Sadece o dosya için evet.

bazende renkli alıyorum ama

 

[hamitcan]

o zaman ya bir şarta bağlı yapmalısınız yada bir kod yazıp ilgili fonksiyonu aç/kapa şeklinde bir düğmeye bağlamalısınız.

 

[incsoft]

o zaman ya bir şarta bağlı yapmalısınız yada bir kod yazıp ilgili fonksiyonu aç/kapa şeklinde bir düğmeye bağlamalısınız.

onu kendim çözemem. Neyse iptal edecez mecbur

 

[hamitcan]

Ben Makro_KAydet yöntemi ile bir tane yaptım. Bir düğmeye bağlayarak kullanabilirsiniz.

Sub Siyah_Beyaz()
    If ActiveSheet.PageSetup.BlackAndWhite = True Then
        ActiveSheet.PageSetup.BlackAndWhite = False
    ElseIf ActiveSheet.PageSetup.BlackAndWhite = False Then
        ActiveSheet.PageSetup.BlackAndWhite = True
    End If
End Sub

 

[Korhan Ayhan]

Alternatif,

Z1 hücresi yardımcı hücre olarak kullanılmıştır. Kendi dosyanıza uyarlarsınız.

Ben önizleme olarak ayarladım. Zaten önizleme ekranından yazdırabilirsiniz. Ama siz direkt yazdırmak isterseniz aşağıdaki kod içinde pasif olan satırı aktif hale getirip kullanabilirsiniz. Önizleme satırını da pasif hale getirirsiniz.

Option Explicit

Sub Print_Out()
    ActiveSheet.PrintPreview
    'ActiveSheet.PrintOut Copies:=1, Collate:=True
    Range("Z1").ClearContents
    Calculate
End Sub