Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

460 - Imprimir un reporte de Access desde visual basic

Ejemplo que accede mediante automatización a un reporte de Microsoft Access para imprimirlo utilizando el método OpenReport del objeto DoCmd

(El ejemplo usa la base de dato Nwind,mdb e imprime el reporte llamado Factura )

Controles :

un Commandbutton

Código fuente en el formulario

Option Explicit '1 - ruta de la bd 2 - el nombre del reporte ''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Imprimir_Reporte_de_Access( _ Path_Bd As String, _ Nombre_Reporte As String) On Error GoTo Error_reporte Dim Access As Object ' verifica la ruta If Len(Dir(Path_Bd)) = 0 Then MsgBox "Ruta de la base de datos inválida", vbCritical End If ' crea el objeto para acceder al reporte de Access Set Access = CreateObject("Access.Application") With Access ' abre la base de datos con el método OpenCurrentDatabase .OpenCurrentDatabase (Path_Bd) ' abre el reporte con el método OpenReport para imprimirlo .DoCmd.OpenReport Nombre_Reporte, 0 .CloseCurrentDatabase ' cierra la base de datos abierta End With ' libera los recursos Set Access = Nothing Exit Sub Error_reporte: MsgBox Err.Description, vbCritical, Err.Number End Sub Private Sub Command1_Click() Dim ruta As String ruta = "C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.mdb" Call Imprimir_Reporte_de_Access(ruta, "factura") End Sub Private Sub Form_Load() Command1.Caption = "Imprimir" End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb