Macro to show and stop at the File:Print view

[KFE916]

Hi,
I feel like this should be easy, but after googling like crazy I'm not finding the correct solution. I would like to have a simple macro that will take the user to the traditional print preview for the current worksheet so they can review, make changes to the page setup if needed, and then click the print on their own. The worksheet will have a different name every time as this will be a template they copy. And they will be printer to different printers often. I've found the macro that takes the user to a modified print preview, but it's not the one we want because we want them to be able to verify or choose the option to print selected area. Or can that be built into the macro with it still going to and stopping at print preview?

 

[Trebor76]

Hi KFE916,

Welcome to MrExcel!!

The following macro has two options for you to try (I have put their source link next to each command):

Option Explicit
Sub MyPrintPreview()

    Application.Dialogs(xlDialogPrint).Show 'https://excelribbon.tips.net/T010321_Displaying_the_Print_Dialog_Box_in_a_Macro.html
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint") 'https://stackoverflow.com/questions/35835084/how-to-show-print-dialog-box-and-print-preview-on-same-screen

End Sub

Regards,

Robert

 

[KFE916]

Hi KFE916,

Welcome to MrExcel!!

The following macro has two options for you to try (I have put their source link next to each command):

Option Explicit
Sub MyPrintPreview()

    Application.Dialogs(xlDialogPrint).Show 'https://excelribbon.tips.net/T010321_Displaying_the_Print_Dialog_Box_in_a_Macro.html
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint") 'https://stackoverflow.com/questions/35835084/how-to-show-print-dialog-box-and-print-preview-on-same-screen

End Sub

Regards,

Robert

That second one worked perfectly! Thank you Robert for making one of our users extremely happy to have this exact option.

 

[Trebor76]

That second one worked perfectly! Thank you Robert for making one of our users extremely happy to have this exact option.

Thanks for letting us know and you're welcome