Visual Basic - Imprimir informe Access

Hola a Todos/as, tengo un problema que no se como resolverlo, tengo que imprimir por impresora si puede ser de manera transparente (quiero decir que casi no se note que se abre el access), la ultima página de un informe de Access desde VB 6.0.

Ahora mismo estoy imprimiendo variables que están en una base de datos de Access directamente por VB, pero con este informe todo quedaría un poco más presentable.

La impresora es de agujas, y esta conectada al puerto LPT1.

Gracias.

Buen dia hermano...
espero que este codigo te sirva para lo que quieres

command1-click()

Dim strArchivo, _
acApp

strArchivo = "C:\Sistema\BDproyecto.mdb" 'ubicacio de base de datos

' creo un objeto Access
Set acApp = CreateObject("Access.Application")

' puedo mostrarlo o no
acApp.Visible = False
' abro la base de datos
acApp.OpenCurrentDatabase strArchivo

' Imprimo el informe

acApp.DoCmd.OpenReport "Cliente_Proveedor" 'tabla, reporte o informe a imprimir


' cierro y salgo

acApp.Quit

Set acApp = Nothing

Private Sub Command1_Click()

'incluir la referencia "Microsoft Access Object Library" al proyecto

Set oAcces = New Access.Application
'oAcces.Visible = False
oAcces.OpenCurrentDatabase "nombre_base_de_datos.mdb"
oAcces.Visible = False
oAcces.DoCmd.OpenReport "nombre_reporte", acViewNormal

oAcces.CloseCurrentDatabase
oAcces.Quit
Set oAcces = Nothing

End Sub

Imprime el reporte sin mostrar la ventana de access (solo un instante)
Imprime el reporte en la impresora seleccionada en el reporte.

jjaaaaa esta chida gracias me sirvio

Me faltó poner en las declaraciones del form:

Public oAcces As Access.Application

Muchas gracias a todos, lo probaré.

Pau

Me falta la manera de hacer que solo imprima la ultima pagina, se puede hacer de algun modo?

PAU

Vamos de nuevo:

Public oAcces As Access.Application

Private Sub Command1_Click()

'incluir la referencia "Microsoft Access Object Library" al proyecto

Dim npgs as string

Set oAcces = New Access.Application
'oAcces.Visible = False
oAcces.OpenCurrentDatabase "nombre_base_de_datos.mdb"
oAcces.Visible = False
oAcces.DoCmd.OpenReport "nombre_reporte", acViewPreview

npgs = Reports("nombre_reporte").paginas.Value
oAcces.DoCmd.PrintOut acPages, npgs, npgs

oAcces.CloseCurrentDatabase
oAcces.Quit
Set oAcces = Nothing

End Sub

El reporte debe tener un textbox llamado paginas con su propiedad OrigenDelControl = [Páginas]
El textbox pude tener su propiedad visible = False para que no se imprima.

Imprime el reporte sin mostrar la ventana de access (solo un instante)
Imprime el reporte en la impresora seleccionada en el reporte.

Cordial saludo,

Me podrían informar si esta instrucción sirve así la máquina en donde estén ejecutando la tarea no tenga Acces instalado, necesito hacer esto mismo pero con esta limitante

No revivan mensajes viejos.

Ese post tiene 12 años

quiciera saber como se emprime los reportes en acces