Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Start and Open in Page Break PreView
I have an attorney who wants all spreadsheets opened in PageBreak Preview.
Does anyone have an Auto_Open macro that not only opens all spreadsheets this way, but creates a new workbook when Excel is opened and shows the view as well as any new workbooks created? Thanks much |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Start and Open in Page Break PreView
Using the pagebreak view of a newly created workbook doesn't make a lot of sense
to me. Try it to see what it does. I wouldn't use it. But this will do what you ask (both opening existing workbooks and creating new workbooks). Start a new workbook copy this code into the ThisWorkbook module. Option Explicit Public WithEvents xlApp As Excel.Application Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub Workbook_Close() Set xlApp = Nothing End Sub Private Sub xlApp_NewWorkbook(ByVal Wb As Workbook) Dim myWindow As Window For Each myWindow In Wb.Windows myWindow.View = xlPageBreakPreview Next myWindow End Sub Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook) Dim myWindow As Window For Each myWindow In Wb.Windows myWindow.View = xlPageBreakPreview Next myWindow End Sub Now save this workbook in your XLStart folder. Then close excel and restart excel. If you don't want the new workbook to be affected, just delete this portion: Private Sub xlApp_NewWorkbook(ByVal Wb As Workbook) Dim myWindow As Window For Each myWindow In Wb.Windows myWindow.View = xlPageBreakPreview Next myWindow End Sub Sue Hughes wrote: I have an attorney who wants all spreadsheets opened in PageBreak Preview. Does anyone have an Auto_Open macro that not only opens all spreadsheets this way, but creates a new workbook when Excel is opened and shows the view as well as any new workbooks created? Thanks much -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I do page breaks when view menu doesnt page break preview | Excel Discussion (Misc queries) | |||
change page number watermark in page break preview | Excel Discussion (Misc queries) | |||
change and/or remove page number watermark in page break preview | Excel Discussion (Misc queries) | |||
print preview v page break preview | Excel Discussion (Misc queries) | |||
Hiding the page number in page break preview background. | Excel Discussion (Misc queries) |