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

是通过使用Excel对象模型中的PrintOut方法来实现的。下面是完善且全面的答案：

在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

此代码片段中，我们首先创建一个Excel应用程序对象（xlApp），然后使用该对象的Workbooks.Open方法打开Excel工作簿，并通过Worksheets属性获取要打印的工作表（xlWorksheet）。然后，通过xlApp.Dialogs(xlDialogPrint).Show显示打印对话框，让用户设置打印参数。最后，我们使用xlWorksheet.PrintOut方法打印工作表。之后，关闭Excel工作簿和退出Excel应用程序，并释放相关的对象变量。

这种方法可以方便地在MS Access VBA中打印Excel工作表，并提供了更多的灵活性和控制权，例如可以在打印前调整打印区域、打印样式等。

腾讯云提供了云计算服务，其中包括云服务器、云数据库、云存储等产品，可以帮助用户在云上进行计算、存储和数据处理等操作。您可以访问腾讯云官方网站（https://cloud.tencent.com/）以获取更多关于腾讯云的详细信息。