Print Preview through command button/Shape

[azad092]

Hi
i have a data entry sheet including an interface sheet. on the interface sheet, I want to see the print preview for each sheet through clicking on the button/shape name for example
by clicking on Shape 1>> I want to see the sheet1 print preview
by clicking on Shape 2>> I want to see the sheet2 print preview
by clicking on Shape 3>> I want to see the sheet3 print preview
and so on....
Please guide me what I have to do

 

[CephasOz]

Hi azad092. You can see the Print Preview for Sheet1 by: ThisWorkbook.Worksheets("Sheet1").PrintPreview

Have you already put buttons on the interface worksheet, or do you need to know how to do that?

(Also, "Emergencies" starts with an "E".)

 

[azad092]

Hi azad092. You can see the Print Preview for Sheet1 by: ThisWorkbook.Worksheets("Sheet1").PrintPreview

Have you already put buttons on the interface worksheet, or do you need to know how to do that?

(Also, "Emergencies" starts with an "E".)

thanks for reply... i try it

 

[azad092]

thanks for reply... i try it

thanks for the correction..... but how and where I put the code to the specific shape(Report)

 

[CephasOz]

If you create a macro for the Sheet1 preview like so (placing it in a normal module):

Sub PPSheet1()
    ThisWorkbook.Worksheets("Sheet1").PrintPreview
End Sub

then you can right-click the shape for the Sheet1 print preview on your worksheet, select "Assign Macro", then choose "PPSheet1" as the macro. After doing that, if you click somewhere on the worksheet, then click the shape, you will see the print preview.

 

[azad092]

If you create a macro for the Sheet1 preview like so (placing it in a normal module):

Sub PPSheet1()
    ThisWorkbook.Worksheets("Sheet1").PrintPreview
End Sub

then you can right-click the shape for the Sheet1 print preview on your worksheet, select "Assign Macro", then choose "PPSheet1" as the macro. After doing that, if you click somewhere on the worksheet, then click the shape, you will see the print preview.

thanks a lot ....

 

[CephasOz]

Glad to help.

 

[azad092]

Glad to help.

hi
dear i am also facing a problem when i am using the following code
Private Sub Label1_Click()
ThisWorkbook.Worksheets("G Report").PrintPreview
rpftForm Unload
End Sub
the problem is that the userform also displayed in the print preview window and could not be closed. i want that when I click on the label to show the print preview the userform should be unload

 

[Jaafar Tribak]

the problem is that the userform also displayed in the print preview window and could not be closed. i want that when I click on the label to show the print preview the userform should be unload

Are you calling the PrintPreview Macro from a Label on a UserForm ?

 

[azad092]

Are you calling the PrintPreview Macro from a Label on a UserForm ?

thanks for reply
yes....form label