imprimir informe de access 2003 desde vb6

[ernestoelunico]

un saludo a todos

la pregunta es yo uso una base de datos con diversas tablas en access 2003

en access e diseñado los informes de unas consultas referente a las tablas
yo quiciera saber si se pueden imprimir dichos informes desde vb6 por medio de un boton comamdo y si se puede la previsulalizacion.....esto ultimo no tan necesario pero imprimir si

de ante mando muchas gracias

[vlad]

Nop, no creo que podas "jalar" los informes que creaste en Acces  para imprimirlos en VB6, tendrías que recrearlos usando DataGrid, ListView, etc. o cualquier otro control necesario.

Despues de todo por algo es que existe Access

[ernestoelunico]

al crear el datagrid se puede imprimir el contenido que hay en el objeto en este caso el informe en de access 2003

y como enlazo solo el infomre al datagrid, o usando otro objeto???

[ernestoelunico]

ya haya como imprimirlo desde access 2003

esta es la respuesta

cree un macro en access 2003
si no sabes como hacerlo te dejo un tuto muy chido
[spoiler]hacer macros en access 2003[/spoiler]
luego llamas a acces y luego le pedis que te ejecute el macro con la siguiente instruccion

[spoiler]

Private Sub Command1_Click()
Dim oAccess As New Access.Application
With oAccess
    .OpenCurrentDatabase (App.Path & "\TuBasedeDatos.mdb")
    .DoCmd.RunMacro "Macro1"
    .CloseCurrentDatabase
End With
End Sub

[/spoiler]

y luego ya esta 

[ernestoelunico]

lo unico es que quiciera previsualizarlo antes de ejecutarlo no se si podria hacerlo mendiante algun objeto arriba ya mensionado o una diferente en eso si necesito ayuda pero no abro otro tema porq ya existia pero esta bloqueo

[ernestoelunico]

preguntando se llega a roma me dijero una vez
tengo ya la forma de verlo en vista preliminar pero no me resulta no se q me falta
o que hago mal
codigo

Dim objAccess As New Access.Application
Private Sub Command1_Click()

With objAccess
    .OpenCurrentDatabase (App.Path & "\Default User\Default.mdb"), False, "registros123"
    .DoCmd.RunMacro "Vistaacc"
    .CloseCurrentDatabase
End With

End Sub

en la base de Datos Hice lo siguiente

1º En diseño del informe le pones las propiedades 'Emergente' y 'Modal' = Sí

2º En diseño de la macro:
Acción:.............................. AbrirInforme
Nombre del informe:......... <el nombre que le hayas dado>
Vista:................................ Vista preliminar
Modo de la ventana:......... Diálogo

No hay más.

el problema es q me abre una ventana de access como cuando quieres abrir un archivo y te pregunta si estas seguro que la quieres abrir porq pueda q tenga codigo malisioso se supone q esto no deberia de verlo el ususario y le doy q si abrir solo cierra la ventana y no me muestra nada
en q estare fallando no estoy seguro
s 

[ernestoelunico]

Dim objAccess As New Access.Application
Private Sub Command1_Click()

With objAccess
    .OpenCurrentDatabase (App.Path & "\Default User\Default.mdb"), False, "clave"
    .DoCmd.OpenReport "reporte", acPreview
    .CloseCurrentDatabase
End With

End Sub

ya intente usar esto pero tampo funciono

[ernestoelunico]

tengo una forma de hacerla pero para eso necesito crear un objeto usando getobjet pero mi base de datos en access tiene contraseña como hago para abrirla

pero por lo visto creare otro tema ya que me parece que los communiters no entran por este lado

saludos