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

Sub PrintExcelWorksheet()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\至\Excel文件.xlsx")
    
    ' 指定要打印的工作表
    Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
    
    ' 显示打印对话框
    xlApp.Dialogs(xlDialogPrint).Show
    
    ' 打印工作表
    xlWorksheet.PrintOut
    
    ' 关闭Excel工作簿
    xlWorkbook.Close SaveChanges:=False
    
    ' 退出Excel应用程序
    xlApp.Quit
    
    ' 释放对象变量
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub