VB IMPRIMIR RELATORIO Q ESTA FEITO NO ACESS

IVOFABIANO 22/04/2004 17:57:43
#22041 Resposta escolhida

Faça referencia à  Micosoft Access 9.0 Object Library ...

Chamada da função :

imprime_rela ("nome do seu relatorio")

Função :

Public Sub imprime_rela(rela As String)

'On Error GoTo Erro

Dim RelatorioAccess As Object

Set RelatorioAccess = CreateObject("Access.Application")

With RelatorioAccess
.OpenCurrentDatabase filepath:=caminho_bd
.DoCmd.OpenReport ReportName:=rela
End With

Exit Sub

erro:

MsgBox "Erro no Processo de Relatório" & vbCrLf & _
" Descrição do erro: " & Err.Description, vbExclamation, prod

End Sub



Abraços