yazdır komutuyla ilgili acil yardım

Herkese merhaba

Benim excelde hazırladığım bir not programı var. Bu programın not girilen sayfaları renkli. Ayrıca yazdırma sayfalarıda düzenledim. Bu programı öğretmenler odasında kullanıyoruz. Yalnız bazı arkadaşlar dikkatsizlik sonucu renkli olan sayfalarda yazdırma komutu veriyorlar ve buda kartuş israfına yol açıyor.
İsteğim şu:
Benim tayin ettiğim sayfalarda yazdırma işlemi yapılamasın. Hatta yazdır kısayoluna direk tıklandığında kişiyi gerekli sayfaya yönlendirecek bir not gözüksün.
Evet arkadaşlar bu konuda bana yardımcı olursanız çok sevinirim.

Herkese iyi çalışmalar.
Yavuz Koç

Exelde yazdırmak istediğin bölümlerin bir ayarı var örneğin renkleri filan yazdırmak iptal olabiliryor ama nereden olduğu şu aklıma gelmiyor

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = IIf(MsgBox("Renkli sayfaları mı yazırıyorsunuz?", 20, "suzunkopru") = 6, 1, 0) End Sub