yazdırmayı engelle

[ugurakin]

excel de hazırladığımız bir sayfa var. Bu sayfanın yazıcıdan çıktı olarak alınmasını istemiyorum. bir yolu var mı?

 

[iggydarsa]

VBA ile araniz iyiyse su kodu kullanin:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then Cancel = True
End Sub

Sheet1 olan yere ise yaziciya verilmesini istemediginiz sayfanin adini yaziniz

NOT: sayfanin adi degistirilrse o zaman yaziciya verilebilir, boylede kucuk bi kotulugu var

 

[ugurakin]

bir gs li olarak teşekkür ederim, işimi gördü. Sayfanın adının değiştirmesi bir yana, sayfayı açarken de makro ları etkileştirmediği taktirde maalesef yazdırılmasına engel olamıyoruz. :hey:

 

[Mahmut Bayram]

Bence engellenemez, dosya açılmadan sağ fare yazdır ile de yazdırılabilir.

 

[Metin Karaağaç]

ne güzel bi soru yaa.
cevabı var mı çok merak ettim gerçekten

 

[Mahmut Bayram]

Aşağıdaki kodları modüle
[vb:1:2a37c0211a]Sub Autpen()
MenuBars(xlWorksheet).Menus("File").MenuItems("Print...").Delete

For J = 1 To Toolbars.Count
For K = 1 To Toolbars(J).ToolbarButtons.Count
If Toolbars(J).ToolbarButtons(K).Id = 2 Then
Toolbars(J).ToolbarButtons(K).Enabled = False
End If
If Toolbars(J).ToolbarButtons(K).Id = 3 Then
Toolbars(J).ToolbarButtons(K).Enabled = False
End If
Next K
Next J
End Sub

Sub Auto_Close()
'Reset the menu items
For Each mb In MenuBars
mb.Reset
Next mb

'Reset the buttons
For J = 1 To Toolbars.Count
For K = 1 To Toolbars(J).ToolbarButtons.Count
If Toolbars(J).ToolbarButtons(K).Id = 2 Then
Toolbars(J).ToolbarButtons(K).Enabled = True
End If
If Toolbars(J).ToolbarButtons(K).Id = 3 Then
Toolbars(J).ToolbarButtons(K).Enabled = True
End If
Next K
Next J
End Sub[/vb:1:2a37c0211a]

Aşağıdaki koduda ThisWorkbook'a kopyalaınız

[vb:1:2a37c0211a]Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub[/vb:1:2a37c0211a]