Access - Imprimir medianto Código

Sub ImprimirHojas()

    Dim excelApp As Object

    Dim excelWorkbook As Object

    Dim excelSheet As Object

    ' Crea una instancia de Excel

    Set excelApp = CreateObject("Excel.Application")

    ' Abre el archivo de Excel que contiene las hojas que deseas imprimir

    Set excelWorkbook = excelApp.Workbooks.Open("RutaDelArchivo.xlsx")

    ' Activa la hoja o hojas que deseas imprimir

    Set excelSheet = excelWorkbook.Sheets("Hoja1") ' Cambia "Hoja1" por el nombre de la hoja deseada

    excelSheet.PrintOut ' Imprime la hoja activa

    ' Especifica el número de copias que deseas imprimir

    excelWorkbook.PrintOut Copies:=2 ' Cambia "2" por el número de copias deseado

    ' Cierra el archivo de Excel sin guardar los cambios

    excelWorkbook.Close SaveChanges:=False

    ' Cierra la instancia de Excel

    excelApp.Quit

    ' Limpia los objetos

    Set excelSheet = Nothing

    Set excelWorkbook = Nothing

    Set excelApp = Nothing

End Sub