Hi Jim,

Application.EnableEvents = True << This does Run - doesn't it?

Yes, Jim.

It may well be that events were turned off because the event procedure was
interrupted, during testing, before it reached the above line and, so,
remained disabled.

If application settings are to be changed, it is usually wise to put the
restoring commands in an event handler, e.g:

Sub Whatever(0
On Error Goto XIT

Application.EnableEvents = False
'Your code

XIT:
Application.EnableEvents = True
End Sub

---
Regards,
Norman


"Jim May" wrote in message
news:KZ1af.3320$wC.2122@dukeread06...
Norman,
Yes, somehow my Application.EnableEvents was set to FALSE; Not sure how,
but anyway..
Q? - Although I have the line:
Cancel = True
Code continues to next line where
Application.EnableEvents = True << This does Run - doesn't it?

Appreciate the answer,,
Jim

= True
"Norman Jones" wrote in message
...
Hi Jim,

Your code works for me.

If you mean that no print preview window is displayed and the 'hidden'
text is printed, it may be that you have inadvertently turned events off.

In the immediate window, try:

? Application.EnableEvents

If the value is false, then:

Application.EnableEvents = True

---
Regards,
Norman



"Jim May" wrote in message
news:Zs1af.3318$wC.3164@dukeread06...
I've been toying with thing the past 20 minutes
And it is refusing to work, any observations?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Sheets("Sheet1").Range("C13").Font.ColorIndex = 2
Sheets("Sheet1").Range("C18").Font.ColorIndex = 2
ActiveSheet.PrintPreview
Sheets("Sheet1").Range("C13").Font.ColorIndex = 1
Sheets("Sheet1").Range("C18").Font.ColorIndex = 1
Cancel = True
Application.EnableEvents = True
End Sub

Intention, obviously is to hide (from printing) cells C13 and C18.
TIA,