Using VBA to show Print Preview Screen Layout as shown in the Screenshot

[sureworkis]

Hello,

Working on Office 2021. Both the below methods does not show the Print Preview Screen Layout that I want:-

Application.Dialogs(xlDialogPrint).Show

ActiveWindow.SelectedSheets.PrintOut Preview:=True

May I know how do I achieve that? Thank you in advance.

 

[jkpieterse]

How about the good 'ol:

Sendkeys "^p"

 

[sureworkis]

How about the good 'ol:

Sendkeys "^p"

Hello jkpieterse,

Thanks for the reply.

Was thinking not to use the sendkeys method but this will be the last resort then.

 

[jkpieterse]

I was lazy. This should also do the trick:

application.CommandBars.executemso "PrintPreviewAndPrint"

 

[sureworkis]

I was lazy. This should also do the trick:

application.CommandBars.executemso "PrintPreviewAndPrint"

Bravo, you are GREAT, SIR! I was too silly to miss out this command too!.

One last question, if you are able to help further. When in the preview screen, the default ZOOM is in full page mode. How do I set it to Page Width layout as shown in my attached screenshot?