Imprimir informe de access en vb6

hueva
01 de Octubre del 2004
Como se hace para inprimir un informe de access mediante visual, un ejemplo de como usar la libreria de acces me vendrí de maravillas.
Gracias

juan
01 de Octubre del 2004
Te envio este ejemplo. Necesitas activar la referencia a la MS Access object library. en el proyecto hay un form y un boton.

EJEMPLO:

Public objAccess As New Access.Application

Public cnConnection As ADODB.Connection

Private Sub Command1_Click()

On Error GoTo error

objAccess.OpenCurrentDatabase App.Path & "bd1.mdb", False
objAccess.Visible = True
objAccess.DoCmd.OpenReport "rptNombres", acViewPreview

Exit Sub

error:
If Err <> 0 Then
MsgBox App.Path & "/bd1.mdb" & "Error: " & Err.Description
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
objAccess.CloseCurrentDatabase

Set objAccess = Nothing
End Sub