Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Aşağıdaki kod excel kitabındaki hiç bir sayfayı yazdırmaya izin vermez.
ThisWorkbook bölümüne uygulayın...
Kod:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub
Eğer kitap içindeki sayfalardan bazıları yazdırılacaksa, o zaman sayfa adı kontrolü eklenerek işlem yapılabilir. Bu durumda aşağıdaki kodu kullanabilirsiniz.
Kod:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sayfa1", "Sayfa2"
Cancel = True
End Select
End Sub
Bunların dışında dosya kapalıyken dosya üzerinde sağ klik yapıp "yazdır" komutu verilerek içindeki sayfalar yazdırılabilir. Bunu engellemek için sağ klik menüsünden "Yazdır" seçeneğini pasif yapan kodlara ulaşmanı gerekir. Nette arama yaparak ulaşabilirsiniz.
Önerdiğim kodu dosyanıza uyarlayıp kayıt edip kapattıktan sonra dosyanız kapalı durumdayken üstteki işlemle yazdırılmak istenirse dosya otomatik açılmaktadır. Açılma anında makrolar etkinleştirilmezse sayfalar yazdırılabilir. Bu sebeple sağ klik menüsündeki "Yazdır" komutunu pasif yapmak en ideal çözümdür.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.