[problema] Imprimir relatório access pelo VB

[jleites]

Boas

Estou aqui com um problema, queria dar uma ordem para imprimir um determinado relatório do access usando o VB.

Uso o visual studio 2007 e já encontrei algumas coisas na net acerca do que quero fazer, mas quando transponho o código para o VB não reconhece as funções, por exemplo:

Option Explicit        
Private acc As Access.Application    

Private Sub Command1_Click()    
Dim view As Long    
Set acc = New Access.Application    
acc.OpenCurrentDatabase ("C:\TEST.mdb")    
acc.DoCmd.OpenReport "ReportName", acViewNormal 'acViewNormal means the report is just printed.    
acc.CloseCurrentDatabase    
Set acc = Nothing    
End Sub

mas ele da-me erro na linha 2, dizendo que o Access.Application não está definido.

ou então este:

Sub print_dialog()
On Error GoTo ErrorHandler
DoCmd.OpenReport "Report1", acViewPreview
'Opens print dialog for current screen (report in this case):
DoCmd.RunCommand acCmdPrint
ErrorHandler:
If Err.Number <> 0 And Err.Number <> 2501 Then
	MsgBox "Error: " & Err.Number & vbNewLine & Err.Description
	Exit Sub
End If
End Sub

mas também não reconhece o DoCmd

Cumps

[nelsonr]

Boas,

Visual Studio 2007, tens a certeza? Ou Office 2007?

E estás a fazer em que VB, 6? ou .NET?

Isso foi copiado de VBA? Não sei se dá para fazer em VB6, mas experimenta adicionar uma referência no projecto a "MS Access xx.0 Object Library"