[RESOLVED] print button

[nawaray]

hi ,

i have a form that has records like: name, cpr, phone num, description , etc) , i want to put a print button, when i click on the print button i want it to print the current record i stopped at as a report in access, how can i do this?


Thankx in advance

Private Sub cmdreport_Click()
 'Form5.Show
 'Form3.Hide
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2
dbName = "\\10.70.34.7\it2\PMEW\PROJECTS\Billing System\revenue\rev system\LoginExample\Users.mdb"
rptName = "viewreport"
Preview = acPreview 'acNormal

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

this code is working, but i want it to print the current record.