Как отобразить диалоговое окно печати и отобразить предварительный просмотр на том же экране

Question

Я пытаюсь подражать в Excel 2013, где диалоговое окно печати отображается слева с предварительным просмотром печати справа.

(Хотя где предварительный просмотр показывает, я всегда должен нажать "Show Print Preview" первого - я не могу найти способ, чтобы заставить предварительный просмотр, чтобы показать каждый раз).

Я попытался следующие:

Application.Dialogs(xlDialogPrint).Show 

Это показывает диалоговое окно в стиле старого, где нужно нажать «Предварительный просмотр» кнопку

ActiveSheet.PrintPreview 

Это показывает предварительный просмотр, но не позволяет принтер, который необходимо изменить с того же экрана

Answer 1

Что-то вроде этого?

Option Explicit 
Sub Example() 
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint") 
End Sub 

CommandBars.ExecuteMso Method (Link)полезен метод, в тех случаях, когда нет объектной модели для конкретной команды.