Baskı ön izlemedeki yazdır butonu iptal etme

[ASLAN7410]

Merhaba.

Ekte gönderdiğim excel dosyamda hızlı yazdır ve Ctrl+P için iptal kodu mevcut.

Sayfadaki butona bastığımda baskı ön izlemeye gidiyor buradaki yazdır butonuna bastığımda yazdırıyor.

Yapmak istediğim baskı ön izlemedeki yazdır butonunu da iptal edebilir miyiz?

 

[Zeki Gürsoy]

İptal etmek yerine aşağıdaki basit kodu kullanabilirsiniz. (ThisWorkbook/Bu Çalışma Kitabı modulu)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
End Sub

.

 

[ASLAN7410]

Sayın Zeki Bey, ilginiz için çok teşekkür ediyorum.

Yapmak istediğim sadece sayfa üzerindeki butondan yazdırılmasını istiyordum,
butonla baskı ön izlemeye geçince oradaki yazdır butonu çalışıyor, bunu engellemek istemiştim.

Sizin dediğiniz kod, ekte gönderdiğim excel dosyasında bulunuyor.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Deger = 1 Then
    Cancel = False
Else
    Cancel = True
    MsgBox "Sayfa üzerindeki YAZDIRMAK İÇİN LİSTEDEN SEÇİNİZ butonunu kullanın.", vbInformation, "A S L A N"
End If
End Sub

 

[Zeki Gürsoy]

Bunun için Ribbon özelleştirmesi gerekir. Vakit bulursam dosyanıza iliştirip buraya eklerim.

 

[ASLAN7410]

Sayın Zeki Bey, valla çok iyi olur.

 

[Korhan Ayhan]

Bir örnek uygulama hazırladım. Belki kullanmak istersiniz. Önizleme ekranı otomatik olarak 5 saniye sonra kendisi kapanıyor.

 

[ASLAN7410]

Sayın Korhan Bey, ellerinize sağlık süper olmuş.

Kendi programıma kodları uyarladığımda baskı ön izleme görüntüleyip
tekrar excele döndüğünde sayfanın üzerindeki menü çubuğu kayboluyor.

 

[Korhan Ayhan]

Ben ofis 365 sürümünde denediğimde bahsettiğiniz sorun olmuyor.

 

[ASLAN7410]

Sayın Korhan Bey, excele geri dönünce maalesef bende menü gizli kalma değil, menü kayboluyor.

 

[Korhan Ayhan]

Paylaştığım örnek dosyada bahsettiğiniz sorun oluyor mu?

 

[ASLAN7410]

Korhan Bey, gönderdiğiniz örnekte sorun olmuyor.

 

[ASLAN7410]

İsterseniz yapmaya çalıştığım takvim dosyasını göndereyim mi?

 

[Korhan Ayhan]

Asıl dosyanızdaki durumu görmeden neyin bu duruma sebep olduğunu bilmem mümkün değil.

 

[ASLAN7410]

Sayın Korhan Bey, dosyanın tamamını gönderiyorum.

Sizin gönderdiğiniz örnekteki kodlar benim göndermiş olduğum Takvim dosyasının 15.Modülünde bulunuyor.

Buradaki kodu Takvim dosyasındaki baskı ön izleme koduna uyguladım.

Gönderdiğim dosyada sayfa üzerindeki buton grubu içerisindeki YAZDIRMAK İÇİN LİSTEDEN SEÇİNİZ butonunu tıklayınca hangi ay ne şekilde yazdırılması listesi ekrana geliyor, örneğin 2023 Ocak ayı seçilince ekrana userform geliyor, userformdan DİKEY BASKI ÖN İZLEME butonuna tıklayınca Baskı Önizlemeye gidiyor, 3 saniye sonra excele geri dönünde menü çubuğu kayboluyor.

 

[Korhan Ayhan]

Şimdi işyerindeki bilgisayarda denedim. Formunuzu açtım ve önizleme butonuna tıkladım. 3 saniye sonra önizleme ekranı kapandı ve menüler yerinde duruyordu.

 

[ASLAN7410]

Sayın Korhan Bey, dosya sizde bir sorun çıkarmıyorsa yapacak bir şey yok.

Bende müneler kayboluyor. Neden kaynaklandığını da bilemedim.

İlginiz için çok teşekkür ediyorum, hayırlı günler diliyorum.

 

[Zeki Gürsoy]

@ASLAN7410, sizin için Ribbon menüsü özelleştirilmiş şablon dosya hazırladım. Özelleştirme dosyaya gömülü olduğundan esas dosyanızdaki çalışma sayfaları ile modulleri şablon dosyaya aktarmanız gerekiyor. Aşağıdaki görsellerde yazdırma komutlarının disabled görünümünü inceleyebilirsiniz.





.

 

[Korhan Ayhan]

Bende bir önceki mesajımda menülerin sorun çıkarmadan çalıştığını gösteren bir gif paylaştım.

 

[Zeki Gürsoy]

@ASLAN7410, @Korhan Ayhan;

Eklediğim dosyada hızlı erişim çubuğuna "Hızlı Yazdır" butonu eklenerek yazdırma işlemi mümkün kılanabiliyordu. #17 nolu mesajımda bu açığı kapadım ve dosyayı güncelledim.

Böylelikle, (VBA komutları dışında) Excel menülerinden yazdırmak artık mümkün değildir.

.

 

[ASLAN7410]

Bende bir önceki mesajımda menülerin sorun çıkarmadan çalıştığını gösteren bir gif paylaştım.

Sayın Korhan Bey, bende bu şekilde olmuyor maalesef, excele geri dönünce menü çubuğu kayboluyor.