Imprimir informe de access en vb6
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
Gracias
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
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