Test Foro de elhacker.net SMF 2.1

hola me gustaria saber como imprimir una tabla una vez creada o abierta con ADO.

Lo he intentado con este codigo

Private Sub mnuimprimir_Click()
Set msaccess = CreateObject("access.application")
msaccess.opencurrentdatabase (CommonDialog1.FileName)
msaccess.docmd.openreport "peliculas", acviewnormal
msaccess.closecurrentdatabase
Set msaccess = Nothing
End Sub


pero claro lo que busca es un informe para imprimirlo y mi programa solo crea tablas no informes.

gracias, un saludo