Lo he intentado con este codigo
Código:
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