Baskı ön izlemedeki yazdır butonu iptal etme

[ASLAN7410]

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

.

Sayın Zeki Bey, çok teşekkür ederim süper olmuş ellerinize sağlık. Tüm dosyayı kodları ile birlikte bu excele taşıdım süper oldu.

Allah razı olsun.

Hayırlı günler diliyorum.

 

[Zeki Gürsoy]

Sağolun, işinize yaradığına sevindim.

Az önce dosyanın Office 2007 ile açıldığında menülerin disabled olmasını engelleyen bir hata farkettim. Eğer dosya Office 2007 sürümü ile açılmayacaksa sorun yok; ancak, farklı bir makinada Officce 2007 sürümü ile açılabilir derseniz dosyayı revize edebilirim.

Yani sayfaları ve kodları yeni dosyaya taşıdığınız için belirteyim istedim.

.

 

[ASLAN7410]

Sayın Zeki Bey, zahmet olmaz ise olur, ben tekrar taşırım.

 

[Zeki Gürsoy]

Sayın Zeki Bey, zahmet olmaz ise olur, ben tekrar taşırım.

Öyleyse buyrun...

Off.2007 için CTRL + P tuş kombinasyonuyla gelen yazdır diyaloğu önlemini almayı unutmayın.

Kolay gelsin.

.

 

[ASLAN7410]

Sayın Zeki Bey, bir şey sormak istiyorum.

Bu gömülü dediğiniz kodlar benim 14.mesajımda gönderdiğim excel dosyasının içerisine direk uygulanır mı?

 

[Zeki Gürsoy]

Aslında ilk amacım o idi. Ancak dosyanın geç açılması, nedenini araştırma zahmetine girmek istemediğim çalışma zamanı hatasının belirmesi nedeniyle, boş bir şablon dosya üzerinde Ribbon menü eklemeyi uygun gördüm.

.

 

[ASLAN7410]

Anladım, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı akşamlar diliyorum.

 

[ASLAN7410]

Sayın Zeki Bey, rahatsız ediyorum kusura bakmayın.

Ben bütün sayfaları ve kodları hiç bir değişiklik yapmadan sizin en son gönderdiğiniz dosyaya taşıdım, sütün başlıkları ve satır başlıkları yazıları küçük, ayrıca sütun aralıkları ve yazı boyutları ve karakterleri aynı olmasına rağmen sizin gönderdiğiniz dosyada sütunlar küçük. Her ikisinde de görünüm %100, basitçe ne yapmak gerekir.

Soldaki görüntü sizin gönderdiğiniz dosya.

 

[Zeki Gürsoy]

Office programını ilk kurduğumda şu ayarları yaparım; belki işinize yarayabilir.
- Varsayılan font büyüklüğü = 8 (Calibri)
- Varsayılan dosya kaydetme konumu = Desktop
- Cetvel birimi = Santimetre

Resimden, satır ve sütun etiket font büyüklüğünün aynı olmayışı zoom oranın eşit olmadığı anlamına geliyor. Bi'zahmet tekrar bakarsınız. En önemlisi ve önerim ise, bir çalışma sayfasını farklı bir dosyaya aktarırken kopyala/yapıştır yerine, "Sayfa Taşı veya Kopyala" komutunu kullanın.

.

 

[ASLAN7410]

Sayfayı kopyala yapmadım, sayfayı taşıdım, her iki dosyada da zoom oranı da % 100, sütun aralıkları da aynı, yazı boyutu da aynı hafta başlıkları sütunlarına sığmıyor, diğer dosyada sığıyor.

Valla anlamadım neden olduğunu.

 

[ASLAN7410]

Zeki Bey, B sütunu genişliği sizin dosya da Genişlik 12.50 (80 piksel) olarak görünüyor, benim dosyada B sütunu Genişlik 12,43 (93 piksel) olarak görünüyor.

Ayrıca sütun ve satır başlıkları sizin dosyada küçük görünüyor.

 

[ASLAN7410]

Sayfa düzenleri aynı olmasına rağmen sayfa çizgisi bayağı dışarıda L sütununda görünüyor.

 

[ASLAN7410]

Benim dosyada sayfa çizgisi H sütununda görünüyor.

 

[Zeki Gürsoy]

Bu konu uzar, şöyle yapalım isterseniz...
Takvim programınızı VBA modulsuz olarak bana gönderin. Ben Ribbon düzenlemesi yaptıktan sonra modülleri eklersiniz.

.

 

[ASLAN7410]

Tamam olur Zeki Bey.

 

[ASLAN7410]

Zeki Bey, makrosuz olarak ekledim.

 

[Zeki Gürsoy]

Dosyanızı düzenledim. Kolay gelsin...

.

 

[ASLAN7410]

Sayın Zeki Bey, tam istediğim gibi olmuş, ellerinize sağlık çok teşekkür ediyorum Allah razı olsun .

Eski dosyamdaki makroları da bu dosyaya taşıdım, şuan sorunsuz çalışıyor.

Hayırlı günler diliyorum.

 

[Zeki Gürsoy]

Sayın Zeki Bey, tam istediğim gibi olmuş, ellerinize sağlık çok teşekkür ediyorum Allah razı olsun .

Eski dosyamdaki makroları da bu dosyaya taşıdım, şuan sorunsuz çalışıyor.

Hayırlı günler diliyorum.

12/04/2023 tarihi itibariyle tam istediğiniz gibi olduğunu belirtmişsiniz ancak... Farklı mecralarda bu konudaki sıkıntınız neden devam ediyor acaba?

 

[ASLAN7410]

Sayın Zeki Bey, 37. mesajınızda göndermiş olduğunuz örneğe kendi dosyamdaki makroları uyguladım sorun yok, gayette güzel oldu ellerinize sağlık Allah razı olsun, bu dosyada herhangi bir sorunum yok.

Gönderdiğiniz örnekteki iptal edilmiş yazdır kodları gömülü demiştiniz.

Aşağıdaki kodlar Ctrl+P ve hızlı yazdır butonunu engelliyor, gayet güzel bir kod.

Private Sub Workbook_Open()
Application.OnKey "^{p}", "Yazdırİptal"
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox "Sayfa Üzerindeki Butonunu Kullanın.", vbInformation, "A S L A N"
End Sub

Bende hızlı baskı önizlemeyi engelleme kodu olabilir mi diye merak etmiştim.

Herhalde bu butonlar bir paket halinde galiba, bu işlemler için tek tek kod oluşmuyor.