• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Baskı ön izlemedeki yazdır butonu iptal etme

Zeki Gürsoy' Alıntı:
@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.

.
Genişletmek için tıkla ...


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

.
 
Sayın Zeki Bey, zahmet olmaz ise olur, ben tekrar taşırım.
 
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ı?
 
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.

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

Hayırlı akşamlar diliyorum.
 
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.

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

.
 
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.
 
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.
 
Sayfa düzenleri aynı olmasına rağmen sayfa çizgisi bayağı dışarıda L sütununda görünüyor.


244260
 
Son düzenleme:
Benim dosyada sayfa çizgisi H sütununda görünüyor.


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

.
 
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.
 
ASLAN7410' Alıntı:
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.
Genişletmek için tıkla ...

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?

244537

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

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.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst