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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)