Print Alma Menüsünü Korumaya Almak

[baydeniro]

Merhaba arkadaşlar,

Belirli Excel sayfasından alınacak çıktıların YAZICI ayarlarını baştan bir kere ayarlıyorum ama bazı kullanıcılar bu ayarları değiştiriyor. Bunu engellemenin bir yolu var mıdır ?

 

[baydeniro]

Merhaba arkadaşlar,

Belirli Excel sayfasından alınacak çıktıların YAZICI ayarlarını baştan bir kere ayarlıyorum ama bazı kullanıcılar bu ayarları değiştiriyor. Bunu engellemenin bir yolu var mıdır ?

 

[alicimri]

Yazıcı ayarlarında ne gibi değişiklik yaptığınızı yazmamışsınız. "BuÇalışmaKitabı" Kod sayfasında "Workbook_BeforePrint" olayında makro ile yazıcı ayarlarının değiştirilip, değiştirilmediği kontrol edip değiştirilmiş ise yazıcı ayarlarını istediğiniz değişiklileri makro ile yapabilirsiniz.
örnek kod aşağıda

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sayfa1" Then

   If ActiveSheet.PageSetup.PrintArea <> "$A$6:$I$11" Then
   Cancel = True
        ActiveSheet.PageSetup.PrintArea = "$A$6:$I$11"
  ActiveSheet.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End If
End If
End Sub
End Sub

 

[Korhan Ayhan]

Alternatif,

Ekteki örnek dosyayı inceleyiniz. Farklı kontrollerde eklenebilir.

 

[baydeniro]

sayın alicimri çok teşekkür ediyorum ilginize. Durum şu şekilde; Excel çalışmasını olması en ideal yazıcı ayarlarını yapıp bırakıyorum. ancak bazı arkadaşlar kendi tercihlerine göre başlık yarını, sayfanın görüntü % ni, sayfa sayısı gibi ayarları değiştiriyorlar. Bu durumda bazen alınan çıktılarda hata oluyor ve bu dosyaların benim tarafımdan hazırlandığını bilenler hata olunca bana geliyorlar. O yüzden print kısmını diğer kullanıcılar değiştiremesin diye kilitlemek istiyorum.

 

[baydeniro]

Korhan Ayhan üstadım çok teşekkür ediyorum. Acaba dosyayı serdar.okan@hotmail.com adresine göndermeniz mümkün olabilir mi.

 

[Korhan Ayhan]

Harici link ektedir.

http://www.dosya.tc/server8/g7k1iv/ORNEK.rar.html

 

[baydeniro]

üstad çok teşekkür ediyorum. Kod, Ctrl P yi engelliyor. Tabii bu da bir aşama bizim için. Ama Print Preview ve Dosya altındaki Yazdır komutunu da engellemek mümkün mü acaba ?

 

[Korhan Ayhan]

Olayı kökünden çözmek için üstteki menüleri aşağıdaki kod ile komple gizleyebilirsiniz.

Sub Menu_Gizle()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
End Sub

Sub Menu_Goster()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)"
End Sub

 

[baydeniro]

sayın üstadım Korhan Ayhan, çok çok teşekkür ediyorum. Bu da müthiş oldu. Sağlıcakla kalınız.