Visual Basic - Imprimir informe Access

Life is soft - evento anual de software empresarial
 
Vista:

Imprimir informe Access

Publicado por Pau Torras (3 intervenciones) el 30/05/2007 08:26:21
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir informe Access

Publicado por Excelence!!! (22 intervenciones) el 30/05/2007 14:50:11
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Imprimir informe Access

Publicado por fernando (102 intervenciones) el 30/05/2007 14:53:37
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir informe Access

Publicado por queena (1 intervención) el 11/06/2012 22:13:32
jjaaaaa esta chida gracias me sirvio
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Imprimir informe Access

Publicado por fernando (102 intervenciones) el 30/05/2007 15:07:09
Me faltó poner en las declaraciones del form:

Public oAcces As Access.Application
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir informe Access

Publicado por Pau (3 intervenciones) el 30/05/2007 17:40:01
Muchas gracias a todos, lo probaré.

Pau
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Me falta algo

Publicado por Pau (3 intervenciones) el 30/05/2007 18:14:03
Me falta la manera de hacer que solo imprima la ultima pagina, se puede hacer de algun modo?

PAU
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Me falta algo

Publicado por fernando (102 intervenciones) el 31/05/2007 01:59:10
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Me falta algo

Publicado por Jairo Anibal (1 intervención) el 11/01/2019 02:16:00
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 247
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Me falta algo

Publicado por Cesar (122 intervenciones) el 11/01/2019 02:44:16
No revivan mensajes viejos.

Ese post tiene 12 años
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir informe Access

Publicado por trinidad (1 intervención) el 18/06/2007 16:26:51
quiciera saber como se emprime los reportes en acces
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar