Userform Can't seem to work right

[juan]

Hello,
have userform with two Option buttons and two command
buttons one for OK and Cancel.
Here's the code for the OK button:
Private Sub CommandButton1_Click()

' Dim MyButtons As Object

If OptionButton1.Value = True Then
Sheets("ZSDQT002LATEST").PrintPreview
UserForm1.Hide
ElseIf OptionButton2.Value = True Then
Application.GetSaveAsFilename
End If
End Sub
When I select the Print Preview option and click OK it
goes to Print Preview, but the Userform doesn't close and
can't close it and excel gets stuck. So I have to End
program. Does anyone have idea why this is happening.
Thanks,
Juan

 

[Juan]

Hello Chris,
its still doing the same. I do go to the Preview, but the
userform still shows and it get stuck. I can't do
anything. Can't evern close it manually or can't even use
excel. So I have to terminate.
Not sure why is doing it. When I select the other option
to save, I do get it to work fine. Doesn't get stuck. So
not sure why when I want to preview and stay here it get
stuck.

Any other advise?

Thanks,

juan

 

[Tom Ogilvy]

Private Sub CommandButton1_Click()
Dim fName as Variant
' Dim MyButtons As Object
userform1.hide
If OptionButton1.Value = True Then
Sheets("ZSDQT002LATEST").PrintPreview
ElseIf OptionButton2.Value = True Then

fname =Application.GetSaveAsFilename
if fname <> false then
ThisWorkbook.SaveAs fName
end if

End If
End Sub

You code stops on the printpreview command until you close printpreview, so
your code never gets to the Userform1.Hide command until print preview is
closed. Changing the order as shown should solve the problem.

Also, doing Application.GetSaveAsFilename does not save the file. It just
returns the name selected by the user. You then have to execute SaveAs with
the returned value to actually save the file under that name.

 

[jUAN]

Hello Tom
thanks alot this works. Appreciate the help.

Juan