[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.

[RhinoBull]

After you open report use DoCmd.PrintOut method with appropriate parameter: acPages, acPrintAll or acSelection.
Close report and access itself if no longer needed.

[nawaray]

Can you give me a sample of the coding please? And will this print the current record?

[nawaray]

can some one help please, i need it for my project

[nawaray]

solved the issue

[Nightwalker83]

How did you solve the problem?

[nawaray]

i used this code:

Dim strDocName As String
Dim strWhere As String
    strDocName = "MyReport"
    strWhere = "[serial]=" & Me!txtserial
    DoCmd.OpenReport strDocName, acPreview, , strWhere

[RhinoBull]

That won't print report; like I said if you need to send it to printer then use DoCmd.PrintOut after opening report.