Excelde Ctrl+P ve Menüden Yazdır İptali

[wishm]

Değerli site üyeleri ekte gönderdiğin excel sayfasında "YAZDIR" butonu mevcut ve ben bununla sayfayı yazdırıyorum. uraya kadar herşey normal ancak ben klavyeden "Ctrl+P" ve menüden "Yazdır" komutuyla sayfanın yazdırılmasının engellenmesini sadece syafada mevcut olan "YAZDIR" butonu ile yazdırılabilmesini istiyorum. Forumda konuya ilişkin bir iki örnek buldum ancak bahsettiğim konuyu çözecek nitelikte değiller. Yardımcı olabilirseniz memnun olurum. İlginiz ve yanıtlarınız için şimididen teşekkür ederim. Saygılarımla.

 

[Ömer]

Merhaba,

Yazdır kodunuz;

Private Sub CommandButton1_Click()
    kOntrol = 1
        Sheets("Sayfa1").Select
        Application.Dialogs(xlDialogPrint).Show
    kOntrol = 0
End Sub

ThisWorbook sayfasına;

Private Sub Workbook_BeforePrint(cancel As Boolean)
    If kOntrol = 1 Then
        cancel = False
    Else
        cancel = True
        MsgBox "Butonu Kullanın.!"
    End If
End Sub

Standart bir module;

Public kOntrol As Byte

.

 

[wishm]

Sayın Ömer ilginiz ve yanıtınız için teşekkür ederim. Saygılarımla.