Print Preview hangs

  • Thread starter Thread starter James Cooke
  • Start date Start date
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?
 
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 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
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 (e-mail address removed)
Click to expand...
 
Back
Top