如何顯示打印對話框並在同一屏幕上顯示預覽

Question

我想模擬Ctrl-P在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)是在存在特定命令沒有對象模型的情況下有用的方法。