Good afternoon.

I have a user form which will allow a user to select print preview t
view the document. The problem I have run into is that after the use
has viewed the document in print preview, I don't know how to make ge
the user back to a userform. Right now the basic code is:

Private Sub PreviewGOF_Click()

SetupComplete.Hide

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$40"
ActiveWindow.SelectedSheets.PrintPreview

End Sub

Any ideas on how I might get back to the userform when the user select
the close option in print preview? Also, any ideas on how to customiz
the menu bar in print preview? I would only like to have the followin
options: zoom, print, close.

Thanks in advance for any assistance!
cheers,
d

--
toocol
-----------------------------------------------------------------------
toocold's Profile: http://www.excelforum.com/member.php...fo&userid=3160
View this thread: http://www.excelforum.com/showthread.php?threadid=53165

ActiveWindow.SelectedSheets.PrintPreview False

is about the best you can do

Look at SetFocus method.

--
Regards,
Tom Ogilvy


"toocold" wrote:


Good afternoon.

I have a user form which will allow a user to select print preview to
view the document. The problem I have run into is that after the user
has viewed the document in print preview, I don't know how to make get
the user back to a userform. Right now the basic code is:

Private Sub PreviewGOF_Click()

SetupComplete.Hide

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$40"
ActiveWindow.SelectedSheets.PrintPreview

End Sub

Any ideas on how I might get back to the userform when the user selects
the close option in print preview? Also, any ideas on how to customize
the menu bar in print preview? I would only like to have the following
options: zoom, print, close.

Thanks in advance for any assistance!
cheers,
dw


--
toocold
------------------------------------------------------------------------
toocold's Profile: http://www.excelforum.com/member.php...o&userid=31608
View this thread: http://www.excelforum.com/showthread...hreadid=531654

If you are showing it modally (the default), maybe it is as simple as:

Private Sub PreviewGOF_Click()

SetupComplete.Hide

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$40"
ActiveWindow.SelectedSheets.PrintPreview
SetupComplete.Show
End Sub

--
Regards,
Tom Ogilvy


"toocold" wrote:


Good afternoon.

I have a user form which will allow a user to select print preview to
view the document. The problem I have run into is that after the user
has viewed the document in print preview, I don't know how to make get
the user back to a userform. Right now the basic code is:

Private Sub PreviewGOF_Click()

SetupComplete.Hide

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$40"
ActiveWindow.SelectedSheets.PrintPreview

End Sub

Any ideas on how I might get back to the userform when the user selects
the close option in print preview? Also, any ideas on how to customize
the menu bar in print preview? I would only like to have the following
options: zoom, print, close.

Thanks in advance for any assistance!
cheers,
dw


--
toocold
------------------------------------------------------------------------
toocold's Profile: http://www.excelforum.com/member.php...o&userid=31608
View this thread: http://www.excelforum.com/showthread...hreadid=531654

Thanks Tom,

So far, so good!
Cheers,
dw


--
toocold
------------------------------------------------------------------------
toocold's Profile: http://www.excelforum.com/member.php...o&userid=31608
View this thread: http://www.excelforum.com/showthread...hreadid=531654