Yazıcı Ayarları

[Tarikkk_]

merhabalar. sayfamdaki tabloda maouse ile tıkladığım satıra otomatik renklendirme makrosu kullanıyorum. her baskı ön izleme ve yazdırmaya tıkladığımda farenin olduğu satırın farklı renkte olduğunu gördüğümde geri gelip tablo dışına bir yere tıklayarak tekrar yazdırma ayarlarına gitmem gerekiyor. buna nasıl engel olabilirim. yazdırma ayarlarına gittiğimde fareyi istediğim yerde bekletmek yada varsa başka pratik bir yolu tavsiyelerinizi ve yardımlarınızı bekliyorum. şimdiden teşekkür ederim

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları "BuÇalışmaKitabı(ThisWorkbook)" adlı kod sayfasına kopyalayın.
"SayfaAdi" ve "HucreAdresi" kısmına doğru değerleri yazın.

Sayfayı yazıcıya göndermeden önce kodlar sizin yerinize tablo dışına tıklayacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim SayfaAdi As String
    Dim HucreAdresi As String
    
    SayfaAdi = "Renkli Sayfanızın Adını buraya yazın"
    HucreAdresi = "Geri gelip tıkladığınız hücre adresini buraya yazın"
    
    'Örnek -------------
    'SayfaAdi = "Sayfa1"
    'HucreAdresi = "A2"
    '-------------------
    
       If ActiveSheet.Name = SayfaAdi Then
        Worksheets(SayfaAdi).Range(HucreAdresi).Select
    End If
End Sub

 

[Tarikkk_]

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim SayfaAdi As String
    Dim HucreAdresi As String
    
    SayfaAdi = "ALIŞ-SATIŞ"
    HucreAdresi = "A1"
    
    
       If ActiveSheet.Name = SayfaAdi Then
        Worksheets(SayfaAdi).Range(HucreAdresi).Select
    End If


End Sub

Merhaba. cevabınız için teşekkür ederim. kodu bu şekilde çalışma kitabına ekledim ama çalışmıyor

 

[Muzaffer Ali]

Çalışmıyor derken biraz açıklar mısınız.
Kodlar hiç mi çalışmıyor, hücre mi seçmiyor, hata mı veriyor, vs?

Dosyanızı eklerseniz daha hızlı çözüme ulaşabiliriz.
Özel bilgiler varsa değiştirebilirsiniz.

 

[Tarikkk_]

hata almıyorum ama belirttiğim hücrede beklemiyor. örnek dosya ekledim. buyrun

 

[Muzaffer Ali]

Kodlar gayet güzel çalışıyor.
Önizleme sonrasında Yazdır butonuna bastığınızda renklendrme gidiyor.
Bir tane örnek çıktı alsanız siz de göreceksiniz.

 

[Tarikkk_]

Kodlar gayet güzel çalışıyor.
Önizleme sonrasında Yazdır butonuna bastığınızda renklendrme gidiyor.
Bir tane örnek çıktı alsanız siz de göreceksiniz.

evet haklısınız gayet güzel çalışıyor ben ön izlemeye basınca hala renkli göründüğünden çalışmadığını düşünmüştüm. yazdıra basınca gidiyor. peki 4/5 sayfa ismi daha eklemek istiyorum nasıl yapabiliriz. alttaki şekilde denedim olmadı

SayfaAdi = "ALIŞ-SATIŞ"
SayfaAdi = "RAPORLAR"
HucreAdresi = "A1"

 

[Muzaffer Ali]

Sayfa adına bakmaksızın aktif olan sayfada çalışması için.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim HucreAdresi As String
    HucreAdresi = "A1"
    Range(HucreAdresi).Select
End Sub

 

[Tarikkk_]

Sayfa adına bakmaksızın aktif olan sayfada çalışması için.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim HucreAdresi As String
    HucreAdresi = "A1"
    Range(HucreAdresi).Select
End Sub

bu çok güzel oldu tüm sayfalarda çalışıyor. çok teşekkürler