Claro que si se puede, el codigo queda asi:
Código:
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "Ruta de la Base de Datos"
appAccess.DoCmd.OpenReport "Nombre del Reporte", , , "Condicion para Imprimirlo"
' Ejemplo: Imprimir la factura #100:
appAccess.DoCmd.OpenReport "factura", , , "nfactura=100"
Espero te sirva
Saludos
