Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application Events / App_WorkbookOpen
Hello all,
What I´m trying to do: Everytime I open an existing Workbook I want the PrintSettings for all the sheets to be Draft. I cannot do this in the printersettings directly because of restrictions. What I came up with so far: In my Personal.xls I did the following: - I created a new class module: Class1 - I wrote in Class1: Public WithEvents App As Application - I wrote in Class1: Private Sub App_WorkbookOpen(ByVal WB As Excel.Workbook) Dim page As Worksheet For Each page In Worksheets page.PageSetup.Draft = True Next page End Sub This doesn´t do the trick... can anyone tell me why not? thanks Fries |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application Events / App_WorkbookOpen
Fries,
You have to enable application events. I do this by adding this line in my Workbook_Open event (for Personal.xls) Set AppClass.App = Application assuming the class is named AppClass. Have you done this? That workbook event can also be run from the VBE by clicking in the event code and run. -- HTH RP (remove nothere from the email address if mailing direct) "Fries" wrote in message om... Hello all, What I´m trying to do: Everytime I open an existing Workbook I want the PrintSettings for all the sheets to be Draft. I cannot do this in the printersettings directly because of restrictions. What I came up with so far: In my Personal.xls I did the following: - I created a new class module: Class1 - I wrote in Class1: Public WithEvents App As Application - I wrote in Class1: Private Sub App_WorkbookOpen(ByVal WB As Excel.Workbook) Dim page As Worksheet For Each page In Worksheets page.PageSetup.Draft = True Next page End Sub This doesn´t do the trick... can anyone tell me why not? thanks Fries |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application Events / App_WorkbookOpen
You need to create an instance of Class1 in a normal code module,
and then set the App variable to the Application. E.g., Dim AppClass As Class1 Set AppClass.App = Application -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Fries" wrote in message om... Hello all, What I´m trying to do: Everytime I open an existing Workbook I want the PrintSettings for all the sheets to be Draft. I cannot do this in the printersettings directly because of restrictions. What I came up with so far: In my Personal.xls I did the following: - I created a new class module: Class1 - I wrote in Class1: Public WithEvents App As Application - I wrote in Class1: Private Sub App_WorkbookOpen(ByVal WB As Excel.Workbook) Dim page As Worksheet For Each page In Worksheets page.PageSetup.Draft = True Next page End Sub This doesn´t do the trick... can anyone tell me why not? thanks Fries |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application Events / App_WorkbookOpen
Dim AppClass As Class1
Set AppClass.App = Application should be Dim AppClass As Class1 Set AppClass = New Class1 Set AppClass.App = Application -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Chip Pearson" wrote in message ... You need to create an instance of Class1 in a normal code module, and then set the App variable to the Application. E.g., Dim AppClass As Class1 Set AppClass.App = Application -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Fries" wrote in message om... Hello all, What I´m trying to do: Everytime I open an existing Workbook I want the PrintSettings for all the sheets to be Draft. I cannot do this in the printersettings directly because of restrictions. What I came up with so far: In my Personal.xls I did the following: - I created a new class module: Class1 - I wrote in Class1: Public WithEvents App As Application - I wrote in Class1: Private Sub App_WorkbookOpen(ByVal WB As Excel.Workbook) Dim page As Worksheet For Each page In Worksheets page.PageSetup.Draft = True Next page End Sub This doesn´t do the trick... can anyone tell me why not? thanks Fries |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application Events / App_WorkbookOpen
missed the line
Dim AppClass as clsAppEvents my class is called clsAppEvents -- HTH RP (remove nothere from the email address if mailing direct) "Bob Phillips" wrote in message ... Fries, You have to enable application events. I do this by adding this line in my Workbook_Open event (for Personal.xls) Set AppClass.App = Application assuming the class is named AppClass. Have you done this? That workbook event can also be run from the VBE by clicking in the event code and run. -- HTH RP (remove nothere from the email address if mailing direct) "Fries" wrote in message om... Hello all, What I´m trying to do: Everytime I open an existing Workbook I want the PrintSettings for all the sheets to be Draft. I cannot do this in the printersettings directly because of restrictions. What I came up with so far: In my Personal.xls I did the following: - I created a new class module: Class1 - I wrote in Class1: Public WithEvents App As Application - I wrote in Class1: Private Sub App_WorkbookOpen(ByVal WB As Excel.Workbook) Dim page As Worksheet For Each page In Worksheets page.PageSetup.Draft = True Next page End Sub This doesn´t do the trick... can anyone tell me why not? thanks Fries |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application Events / App_WorkbookOpen
Hey Chip and Bob,
thanks for the help, got it working now. Fries In article , says... Dim AppClass As Class1 Set AppClass.App = Application should be Dim AppClass As Class1 Set AppClass = New Class1 Set AppClass.App = Application |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application Level Events Question | Excel Programming | |||
Application level events no longer execute | Excel Programming | |||
Just having App_WorkbookOpen crashes Excel | Excel Programming | |||
Using Application Events | Excel Programming | |||
How-To - Forwarding Excel 2000 events to .Net application | Excel Programming |