Print Preview
"Dave Peterson" wrote:
Try hiding the userform first:
Private Sub CommandButton6_Click()
me.hide
with worksheets(1)
.visible = xlsheetvisible
.PrintPreview
.visible = xlsheethidden
end with
Me.show
End Sub
Eddie_SP wrote:
My UserForm takes the whole screen. I have many CommandButtons, and one of
them is "Print Preview".
I don't want the user to see the sheet (it's an "auto_open"), all controls
will be done by using the UserForm.
I have this:
Private Sub CommandButton6_Click()
On Error Resume Next
Worksheets(1).Select
ActiveSheet.PrintPreview
Me.Hide
End Sub
But it's not working. It freezes Excel, and all I have to do is Ctrl + Alt +
Del.
Can some help me? I tried searching the past topics, but none of them really
helped me.
--
Dave Peterson
|