Postada em 13/12/2005 11:48 hs
Alguém sabe como abrir um relatório do ACCESS?
Eu uso esse código, mas ele manda direto para a impressora.
Dim RelatorioAccess As Object
Set RelatorioAccess = CreateObject("Access.Application")
With RelatorioAccess
.OpenCurrentDatabase filepath:=App.Path & "Banco.MDB"
.DoCmd.OpenReport ReportName:="AmigoCadastrado"
End With
|
