form with print preview

[raw]

Hi guys back again

I have a user form with 3 options buttons and one command button you
press when you have selected one

Option button 1. is a print a worksheet out (that works fine)

option button 3. is a return to main sheet (that works fine)

It is the second option button i have that has problems it is a print
preview options
I recorded a macro to show a print preview of the worksheet but when
you select this in goes in to the print preview but the form remains in
the print preview page and it crashes excel!!!!

He is my code

Private Sub CommandButton1_Click()
If OptionButton1 Then
Sheets("mini worksheet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("mini input").Select
ElseIf OptionButton2 Then
Sheets("mini worksheet").Select
ActiveWindow.SelectedSheets.printpreview
ElseIf OptionButton3 Then
Sheets("Heroal main page ").Select
End If

End Sub

Can you help

Thanks

 

[dominicb]

Good evening raw

The print preview window is a completely different kettle of fish to
the normal worksheet view window I'm afraid, and as such is completely
incompatible with userforms.

There is a way around it, and that it is to close the userform before
the print preview command is invoked. Once you call the print preview
window, control of the macro appears to be lost as Excel moves out of
its normal environment, and as such your macro would have to terminate
as the print preciew command is executed.

HTH

DominicB

 

[PaulD]

: Hi guys back again
:
: I have a user form with 3 options buttons and one command button you
: press when you have selected one
:
: Option button 1. is a print a worksheet out (that works fine)
:
: option button 3. is a return to main sheet (that works fine)
:
: It is the second option button i have that has problems it is a print
preview options
: I recorded a macro to show a print preview of the worksheet but when
: you select this in goes in to the print preview but the form remains in
: the print preview page and it crashes excel!!!!
:
: He is my code
:
: Private Sub CommandButton1_Click()
: If OptionButton1 Then
: Sheets("mini worksheet").Select
: ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
: Sheets("mini input").Select
: ElseIf OptionButton2 Then
: Sheets("mini worksheet").Select

Me.Hide '<---Add this line here*******

: ActiveWindow.SelectedSheets.printpreview
: ElseIf OptionButton3 Then
: Sheets("Heroal main page ").Select
: End If
:
: End Sub
:
: Can you help
:
: Thanks
:
: --
: raw