VBA打印按钮，但用于打印设置，而不是打印预览

此代码当前不会打印隐藏工作表的预览

Private Sub CommandButton2_Click()
Application.Calculate
Sheet3.Visible = True
Sheet3.PrintOut preview:=True
Sheet3.Visible = False
End Sub

此代码将启动打印设置

有没有一种方法可以合并这些代码，这样就可以打印一张隐藏的表单，即Sheet3，从而保持表单的隐藏

[示例图像]（）

---

提前谢谢你

预览：=False

？

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")