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