Imprimir relatório do Access diretamente através do VB.

[digital1984 0]

Imprimir / Abrir relatório do Access diretamente através do VB.Alguém tem como fazer isso!

[jolienai 0]

Abrindo Relatórios do Access pelo VBPara usar este código, é necessário fazer uma referência à biblioteca de automação do Access, em Project/References. 'No evento desejado:Dim sCaminho As StringDim objAccess As Access.Application'Cria uma instância do AccessSet objAccess = New Access.Application'Caminho do arquivo de banco de dadossCaminho = App.Path & "\Banco.MDB"If Right$(App.Path,1) = "\" Then sCaminho = App.Path & "Banco.MDB"End IfWith objAccess .Visible = False 'O Access firará invisível .OpenCurrentDatabase filepath:=sCaminho .DoCmd.OpenReport "Relatório", acViewNormalEnd WithSet objAccess = Nothing

[digital1984 0]

OBRIGADO DESDE JÁ ,VOU FAZER O TESTE