Access - imprimir hoja de calculo

Private Sub cmdImprimir_Click()

    ' Ruta del archivo de Excel

    Dim rutaArchivo As String

    rutaArchivo = "C:\Ruta\Del\Archivo\Excel.xlsx"

    ' Crear objeto Excel

    Dim objExcel As Object

    Set objExcel = CreateObject("Excel.Application")

    ' Abrir archivo de Excel

    Dim objWorkbook As Object

    Set objWorkbook = objExcel.Workbooks.Open(rutaArchivo)

    ' Imprimir hoja de cálculo

    objWorkbook.Sheets("Nombre de la Hoja de Cálculo").PrintOut

    ' Cerrar archivo de Excel y objeto Excel

    objWorkbook.Close False

    objExcel.Quit

    Set objWorkbook = Nothing

    Set objExcel = Nothing

End Sub