How to print database using datagrid

[raymund.climaco.7]

Private Sub Command1_Click()
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2

dbName = "C:\Users\user\Desktop\SVSPTODA REGISTRATION SYSTEM\SVSPREGDB.mdb"
rptName = "MyReportName"
Preview = acPreview 'acNormal

With objAccess
    .OpenCurrentDatabase filepath:=SVSPGEGDB
    If Preview = acPreview Then
       .Visible = True
       .DoCmd.OpenReport rptName, Preview
    Else
       .DoCmd.OpenReport rptName
    End If
End With
End Sub

why i cant print my database please help im using visual manager ans use ms acess to connect my database to datagrid only print command i cant use.