Stampare un Report di Access da VB 6

[Marcowa]

Ciao a tutti,
mi chiedo se è possibile stampare un report di access da un form di VB senza quindi creare un report con DataReport o un form di stampa.
Buon Lavoro

[vipe]

Ciao,
a memoria


Set oApp = New Access.Application ' apre access
oApp.OpenCurrentDatabase "dbNomePath" ' apre il db
If Err <> 0 Then
MsgBox Err.Description
GoTo ERRORLABEL
else
' Apre il report, lo stampa e lo chiude
' gestire errori report o disabilitare il resume next
AxsApp.DoCmd.OpenReport "NomeReport", acViewPreview
AxsApp.DoCmd.PrintOut
'qui di solito inserisco 1-2 sec di attesa
AxsApp.DoCmd.Close acReport, "NomeReport", acSaveNo
End If

ERRORLABEL:
' qui chiude il db e Access
AxsApp.CloseCurrentDatabase
AxsApp.DoCmd.Quit
End If