Hola estimados y super amigos del foro, un cliente me llama diciendo que le sucede que al usar el boton de imprimir informe se le cambia la base de datos de nombre, el caso es que he ido a verlo y es cierto, se pone como DB1.mdb...el caso es que a mi no me pasa y el procedimiento es este...alguién le ha sucedido?¿?
'imprime informe
Private Sub UltraButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton2.Click
Try
copiaintrointro2()
Dim oAccess As Access.Application
'Start a new instance of Access for Automation:
' oAccess = New Access.ApplicationClass()
oAccess = New Access.Application
'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:="C:\Ges\Gppe sion.mdb", Exclusive:=False)
'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()
Catch
MessageBox.Show("Tiene problemas con su visor de documentos en Windows reinstale su paquete office 2003")
End Try
End Sub
