Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
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, |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
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, |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
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, |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
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, |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
I tried an interesting thing.. (to better understand what's going on in the
mind of Excel) I thought.. Why are we even showing Line 2 Application.EnableEvents = False and Line 9 Application.EnableEvents = True so I commented them both out and Clicked on the print-preview button as before. But nothing happened. The Print-Preview click did nothing. Q? - Why is that? Major breakthrough when I comprehend this!! TIA, Jim "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, |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
Hi Jim,
I thought.. Why are we even showing Line 2 Application.EnableEvents = False and Line 9 Application.EnableEvents = True Events are turned off to prevent the line: ActiveSheet.PrintPreview from generating a new BeforePrint event. so I commented them both out and Clicked on the print-preview button as before. But nothing happened With events enabled, the Cancel instruction stops the preview window from being displayed. On the basis that a picture is worth a thousand words, try putting break points on each linr of the code. Then issue a print (preview) instruction. Try this both with the EventsEnabled lines commented and not commented. --- Regards, Norman "Jim May" wrote in message news:Pi2af.3321$wC.2561@dukeread06... I tried an interesting thing.. (to better understand what's going on in the mind of Excel) I thought.. Why are we even showing Line 2 Application.EnableEvents = False and Line 9 Application.EnableEvents = True so I commented them both out and Clicked on the print-preview button as before. But nothing happened. The Print-Preview click did nothing. Q? - Why is that? Major breakthrough when I comprehend this!! TIA, Jim "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, |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why No Work?
Norman,
Thanks - Gotta get to work right now; Will study over this tonight -- appreciate your explanation. Jim "Norman Jones" wrote in message ... Hi Jim, I thought.. Why are we even showing Line 2 Application.EnableEvents = False and Line 9 Application.EnableEvents = True Events are turned off to prevent the line: ActiveSheet.PrintPreview from generating a new BeforePrint event. so I commented them both out and Clicked on the print-preview button as before. But nothing happened With events enabled, the Cancel instruction stops the preview window from being displayed. On the basis that a picture is worth a thousand words, try putting break points on each linr of the code. Then issue a print (preview) instruction. Try this both with the EventsEnabled lines commented and not commented. --- Regards, Norman "Jim May" wrote in message news:Pi2af.3321$wC.2561@dukeread06... I tried an interesting thing.. (to better understand what's going on in the mind of Excel) I thought.. Why are we even showing Line 2 Application.EnableEvents = False and Line 9 Application.EnableEvents = True so I commented them both out and Clicked on the print-preview button as before. But nothing happened. The Print-Preview click did nothing. Q? - Why is that? Major breakthrough when I comprehend this!! TIA, Jim "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, |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to update a column in a work based on another work sheet | New Users to Excel | |||
how can i automatically generate work order numbers from work orde | Excel Discussion (Misc queries) | |||
flash object dont work in my excel work sheet | Excel Discussion (Misc queries) | |||
Counting dates in multiple work sheets and work books | Excel Discussion (Misc queries) | |||
Is there away to keep "auto save" from jumping to the first work sheet in the work book? | New Users to Excel |