ActiveSheet.PrintPreview

[Marc]

Hello-

I've searched the web and believe this cannot be done without a whole bunch of code and some SendKeys workarounds, but was wondering if anyone has a solution.

When I'm in print preview I can zoom by hitting the Enter Key, clicking the Zoom key or clicking anywhere on the preview image.

I'd like my view to be in zoom mode after I run the print preview code below.

ActiveSheet.PrintPreview

 

[jmthompson]

Try

ActiveSheet.PrintPreview
ActiveWindow.ActivePane.View.Zoom = True

 

[Marc]

Thanks for the reply. I'm running 2003 and the View Property does not appear to be available.

The only Properties and Methods that appear after 'ActivePane' are:

Activate
Application
Creator
Index
LaregScroll
Parent
ScrollColumn
ScrollIntoView
ScrollRow
SmallScroll
VisibleRange

I messed around with some of them to no avail.

Can anyone offer any other possible solution?