Print Preview hangs

[James Cooke]

Hi all

When I run this code:

Dim MWB As Workbook
Dim Sht As Worksheet
Set MWB = Workbooks.Open("c:\Development\AtRisk Excel
Project\MigrationReport.xls")
Set Sht = MWB.Sheets("FirstMigration")
Sht.PrintPreview

The preview opens behind my VBA form, but then everything hangs. I have to
use task manager to terminate excel. Printing without previewing works fine.
OS is Windows 2000.

Any idreas?

 

[Chip Pearson]

James,

You need to Hide the userform prior to calling PrintPreview, and the Show
the form when PrintPreview returns. E.g.,

Set Sht = MWB.Sheets("FirstMigration")
Me.Hide '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sht.PrintPreview
Me.Show ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

 

[James Cooke]

Thank you Chip, this works.
james

James,

You need to Hide the userform prior to calling PrintPreview, and the Show
the form when PrintPreview returns. E.g.,

Set Sht = MWB.Sheets("FirstMigration")
Me.Hide '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sht.PrintPreview
Me.Show ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com (e-mail address removed)