ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Print Preview (https://www.excelbanter.com/excel-discussion-misc-queries/28249-print-preview.html)

Greg

Print Preview
 
Hi all, I am currently writing a program where I am just using userforms.
I am going to have the application as hidden if you know what I mean. What
I am asking is how to be able to use print preview. I have tried this but I
cant seem to make it work. The trouble is it is stalling the program
because it will not show the print preview over the top of the userform.

How can I make this work. Here is the basic code I am using

Sheets("PEGS").Select
ActiveWindow.SelectedSheets.PrintPreview

Will this work when the application is not visible?

Thanks

Greg



dominicb


Good morning Greg

This should work OK, but if you have already tested it and have it
crash on you, did you have a userform open? Make sure you hide or
unload your userform before calling the print preview.

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=374757


Dave Peterson

I think I'd make the application visible before the printpreview, too.

Then hide it again after.

When I tried your code, the printpreview window was also hidden.

Greg wrote:

Hi all, I am currently writing a program where I am just using userforms.
I am going to have the application as hidden if you know what I mean. What
I am asking is how to be able to use print preview. I have tried this but I
cant seem to make it work. The trouble is it is stalling the program
because it will not show the print preview over the top of the userform.

How can I make this work. Here is the basic code I am using

Sheets("PEGS").Select
ActiveWindow.SelectedSheets.PrintPreview

Will this work when the application is not visible?

Thanks

Greg


--

Dave Peterson

Greg

Thanks for that is it possible to get the program to resume from the same
userform which called for the preview or do I just have to have the
splashscreen show again?

Greg
"Dave Peterson" wrote in message
...
I think I'd make the application visible before the printpreview, too.

Then hide it again after.

When I tried your code, the printpreview window was also hidden.

Greg wrote:

Hi all, I am currently writing a program where I am just using
userforms.
I am going to have the application as hidden if you know what I mean.
What
I am asking is how to be able to use print preview. I have tried this
but I
cant seem to make it work. The trouble is it is stalling the program
because it will not show the print preview over the top of the userform.

How can I make this work. Here is the basic code I am using

Sheets("PEGS").Select
ActiveWindow.SelectedSheets.PrintPreview

Will this work when the application is not visible?

Thanks

Greg


--

Dave Peterson




Dave Peterson

This kind of thing worked ok for me:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Application.Visible = True
ThisWorkbook.Worksheets("sheet1").PrintPreview
Application.Visible = False
Me.Caption = "Back from Print Preview"
Me.Show
End Sub

So just hiding and then showing should do what you want.

Greg wrote:

Thanks for that is it possible to get the program to resume from the same
userform which called for the preview or do I just have to have the
splashscreen show again?

Greg
"Dave Peterson" wrote in message
...
I think I'd make the application visible before the printpreview, too.

Then hide it again after.

When I tried your code, the printpreview window was also hidden.

Greg wrote:

Hi all, I am currently writing a program where I am just using
userforms.
I am going to have the application as hidden if you know what I mean.
What
I am asking is how to be able to use print preview. I have tried this
but I
cant seem to make it work. The trouble is it is stalling the program
because it will not show the print preview over the top of the userform.

How can I make this work. Here is the basic code I am using

Sheets("PEGS").Select
ActiveWindow.SelectedSheets.PrintPreview

Will this work when the application is not visible?

Thanks

Greg


--

Dave Peterson


--

Dave Peterson

Greg

Thanks Dave will give it a go

Greg
"Dave Peterson" wrote in message
...
This kind of thing worked ok for me:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Application.Visible = True
ThisWorkbook.Worksheets("sheet1").PrintPreview
Application.Visible = False
Me.Caption = "Back from Print Preview"
Me.Show
End Sub

So just hiding and then showing should do what you want.

Greg wrote:

Thanks for that is it possible to get the program to resume from the same
userform which called for the preview or do I just have to have the
splashscreen show again?

Greg
"Dave Peterson" wrote in message
...
I think I'd make the application visible before the printpreview, too.

Then hide it again after.

When I tried your code, the printpreview window was also hidden.

Greg wrote:

Hi all, I am currently writing a program where I am just using
userforms.
I am going to have the application as hidden if you know what I mean.
What
I am asking is how to be able to use print preview. I have tried this
but I
cant seem to make it work. The trouble is it is stalling the program
because it will not show the print preview over the top of the
userform.

How can I make this work. Here is the basic code I am using

Sheets("PEGS").Select
ActiveWindow.SelectedSheets.PrintPreview

Will this work when the application is not visible?

Thanks

Greg

--

Dave Peterson


--

Dave Peterson




Greg B

Thanks everyone it works great no crashing just exactly perfect.

Greg
"Greg" wrote in message
...
Thanks Dave will give it a go

Greg
"Dave Peterson" wrote in message
...
This kind of thing worked ok for me:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Application.Visible = True
ThisWorkbook.Worksheets("sheet1").PrintPreview
Application.Visible = False
Me.Caption = "Back from Print Preview"
Me.Show
End Sub

So just hiding and then showing should do what you want.

Greg wrote:

Thanks for that is it possible to get the program to resume from the

same
userform which called for the preview or do I just have to have the
splashscreen show again?

Greg
"Dave Peterson" wrote in message
...
I think I'd make the application visible before the printpreview, too.

Then hide it again after.

When I tried your code, the printpreview window was also hidden.

Greg wrote:

Hi all, I am currently writing a program where I am just using
userforms.
I am going to have the application as hidden if you know what I

mean.
What
I am asking is how to be able to use print preview. I have tried

this
but I
cant seem to make it work. The trouble is it is stalling the

program
because it will not show the print preview over the top of the
userform.

How can I make this work. Here is the basic code I am using

Sheets("PEGS").Select
ActiveWindow.SelectedSheets.PrintPreview

Will this work when the application is not visible?

Thanks

Greg

--

Dave Peterson


--

Dave Peterson







All times are GMT +1. The time now is 10:16 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com