Vba Excel 365打印预览

我正在Windows 7 Home 64位上使用Excel 365。当我从Excel用户界面打开打印预览时，我会看到一个窗口，其中包含以下选项：

在此窗口中，我可以预览整个打印文件、调整页边距、选择要使用的打印机等。我想从VBA访问此窗口和这些选项。但是，当我使用：

ActiveWorkbook.Sheets("SheetName").PrintOut Preview:=True

或：

我得到一个窗口，其中包含如下选项：

我只能查看打印文件的第一页，无法更改打印机。我试过这个：

Application.Dialogs(xlDialogPrint).Show

但它仍然无法显示现代Excel 365打印预览对话框，也不允许我定义要打印的内容

我做错了什么？
如何获取新的365类型打印预览

顺便说一句-使用Word 365 VBA中的.PrintPreview方法，如您所料，会弹出365 PrintPreview对话框。

尝试以下操作：

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

参考：本工作簿第649行：

---

Hmmm-我今天早些时候回应了这个问题，但似乎没有出现！Opps-看起来像enter键将其发布。Hmmm Ahh-移动输入。。。无论如何-非常感谢您提供此解决方案…@RZB这不能回答您的问题吗？我已退回到使用“ActiveWorkbook.Sheets（“SheetName”）。打印输出预览：=True”。在使用Application.commandbar.ExecuteMso时，我无法停止VBA的运行，也无法控制“打印活动工作表/打印选择”选项。此外，它还为用户提供了过多的工作表访问权限。感谢Excel Hero.–RZB

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"