如何使用vba在PrintPreview中启用“打印”按钮

Question

I'm using below code in Workbook_Open() event:

Application.Dialogs(xlDialogPrintPreview).Show

at very first time when I click on enable content then preview page is opened but Print option is disabled

Answer 1

That is because you are using the Legacy version of print preview.

Similar question was asked on the official Microsoft forums here

The best reply quoted here:

Hi

By deault the option for settiing print area, rows to repeat and columns to repeat are greyed out if you display the Page Setup dialog via the Print option. "I go to print and go to Page Setup".

I would suggest using the Print Titles button on the Page Layout tab in the ribbon to make the neessary changes.

As you are a veteran of previous versions this greying out was the case if you activated Page Setup from the Print Preview options but not through File, Page Setup. In the shuffling of the user interface from 2007 onwards, File, Print is effectively the equivalent of the old Print Preview and the Page Setup options in the Page Layout tab the equivalent of the "old" File Page Setup.

Hope this helps

So to sum it up

I'd probably recommend the following code instead: Obviously may need some tweaking depending on your desired functionality. It's not clear what exactly you're trying to achieve.

Private Sub to_pagelayout()
   ActiveWidow.View = xlPageLayoutView
End Sub

Produces the following result

As for switching actual ribbon tabs, I think that is best reserved for a separate question. I'll also leave the link to the official documentation here

Answer 2

You can alternatively use

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

which is the same as pressing File › Print.

---

Since it seems that this odd behavior only occurs when macros were disabled before:

Define "trusted locations" or digitally sign your VBA code with a trusted certificate to solve this issue. Digitally signed code or code in trusted locations is executed without any message (with the accordingly set properties in the Trust Center).

It's anyway a good idea to sign your own/company code to get rid of these messages for trusted code and make people sensitive to that message again (so that it is not clicked away carelessly).

Answer 3

Same strange behavior on Excel 2007.

Workaround: use Application.OnTime

Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:00"), "PrintPreviewOnWorkbookOpen"

End Sub

And the Sub PrintPreviewOnWorkbookOpen in a module

Public Sub PrintPreviewOnWorkbookOpen()

  ThisWorkbook.PrintPreview

End Sub