显示打印对话框以从MS Access VBA打印Excel工作表

Question

我想通过单击MS Access表单上的按钮来打印存储在本地计算机路径中的Excel工作表（单工作表）。出于某些业务原因，我需要提供灵活性以显示“打印设置”对话框，如果我们从外部打印Excel表格，通常会出现该对话框，以便用户可以选择打印机，选择要打印的纸张部分，要打印的副本等。我目前有如下所示的代码：-

Private Sub cmdPrint_Click()
    'wks is already set to Excel sheet which needs to be printed
    wks.PrintOut
End Sub

我也尝试使用如下所示的方法，但不确定如何将Printout方法与xlDialogPrint连接起来

 ExcelApp.Dialogs(xlDialogPrint).Show

我正在努力用什么代码在MS Access VBA中做到这一点。

Answer 1

以下代码将打开Excel，然后打开打印界面，使用户可以选择打印任何具有焦点的纸张。

Sub PrintSheet()
Dim xl As Excel.Application, wb As Excel.Workbook
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("C:\filepath\filename.xlsx")
xl.Visible = True
xl.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub