Userform Can't seem to work right
 

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

Userform Can't seem to work right
 

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
-----Original Message-----
try this:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Sheets("ZSDQT002LATEST").PrintPreview
Unload Me
exit sub
ElseIf OptionButton2.Value = True Then
Application.GetSaveAsFilename
End If

End Sub


----- juan wrote: -----

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

.

Userform Can't seem to work right
 

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.



--
Regards,
Tom Ogilvy


"Juan" wrote in message
...
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
-----Original Message-----
try this:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Sheets("ZSDQT002LATEST").PrintPreview
Unload Me
exit sub
ElseIf OptionButton2.Value = True Then
Application.GetSaveAsFilename
End If

End Sub


----- juan wrote: -----

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

.

Userform Can't seem to work right
 

Hello Tom
thanks alot this works. Appreciate the help.

Juan
-----Original Message-----
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.



--
Regards,
Tom Ogilvy


"Juan" wrote in message
...
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
-----Original Message-----
try this:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Sheets("ZSDQT002LATEST").PrintPreview
Unload Me
exit sub
ElseIf OptionButton2.Value = True Then
Application.GetSaveAsFilename
End If

End Sub


----- juan wrote: -----

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

.



.