Excel Locks up when vba runs

[erutherford]

This has happened before because I didn't "unload a userform during the execution of the code. When that doesn't appear to be the answer this time. Has to be something pretty simple, just not seeing it. It doesn't matter where I unload the forms, excel locks up at the printpreview. Thanks for reading!

<
Sheets("Entries").Range("J:J").EntireColumn.Hidden = True
Sheets("Entries").Range("K:K").EntireColumn.Hidden = False
Sheets("Entries").Range("A2:I52", "K2:K52").PrintPreview
Sheets("Entries").Range("J:J").EntireColumn.Hidden = False
Sheets("Entries").Range("K:K").EntireColumn.Hidden = True
Sheets("Entries").Range("L:L").EntireColumn.Hidden = True
'Unload UserForm11
'Unload UserForm12

 

[rollis13]

The code you attached doesn't cause any issue so you need to look elsewhere. See if you can attach a dummy file (same layout and macros as original) without sensible data.

 

[erutherford]

If I take out the print preview line, it doesn't lock up.

 

[rollis13]

I'll try to rephrase my answer: your code works perfectly WITH the Print Preview line in my dummy file, that's why I said to look elsewhere in your project for the cause of your issue.

 

[erutherford]

Needed to unload the form first, then all works well. I thought I tried this but obviously didn't have it in the right spot. Thanks "rollis13" for the nudge.

Private Sub CommandButton3_Click() 'Prints Packet Chklst
Unload UserForm12
Sheets("Entries").Range("J:J").EntireColumn.Hidden = True
Sheets("Entries").Range("L:L").EntireColumn.Hidden = False
Sheets("Entries").Range("A2:J52", "L2:L52").PrintPreview
Sheets("Entries").Range("J:J").EntireColumn.Hidden = False
Sheets("Entries").Range("L:L").EntireColumn.Hidden = True
UserForm12.Show
End Sub

 

[rollis13]

You're welcome.