Print Preview hangs

J

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?
 
C

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 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
J

James Cooke

Thank you Chip, this works.
james
Chip Pearson said:
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 [email protected]
Click to expand...
 
Top