Tengo diseñado un reporte en Access. ¿Cómo hago para 
imprimirlo por medio de una aplicación realizada en Visual 
Basic?


JUAN M AFAN DE RIBERA
======================

Esta rutina imprimirá un informe en una base de datos de 
Access. Se le han de pasar como argumentos el nombre de la 
base de datos "nomBD" y el nombre del 
informe "nomInforme". A la rutina le deberías poner un 
control de error por si la base está ya abierta (entonces 
deberías usar el método "GetObject" en vez 
de "CreateObject") y para controlar que los argumentos 
pasados sean correctos, pero esa es la idea - 
Automatización :-)

Sub imprimirInformeExterno _
    (nomBD As String, _
     nomInforme As String)

    Dim App As Object

    Set App = CreateObject("Access.Application")
    App.OpenCurrentDatabase nomBD
    App.DoCmd.OpenReport nomInforme
    App.CloseCurrentDatabase
    App.Quit
    Set App = Nothing

End Sub