Sadece istediğim sayfa yazdırılabilsin

[microaim]

değerli arkadaşlar;

sadece sayfa3'ün yazdırılmasını istiyorum.yani sayfa2 veya sayfa1 de yazdırmak istendiğinde "bu sayfa yazdırılmaz" diye bir mesaj gelebilir mi?
teşekkür ederim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu dosyanızın ThisWorkbook kısmına uygulayıp denermisiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name <> "Sayfa3" Then
    MsgBox ActiveSheet.Name & " isimli sayfa yazdırılamaz !", vbCritical, "Dikkat !"
    Cancel = True
    Exit Sub
    End If
End Sub

 

[hsayar]

bende teşekür ederim benin istediğim üç sayfanın yazdırılamamsı idi
=, or la hhalderim artık.

 

[microaim]

çok teşekküe ederim.....