I have problem printing with current record, here is the code that I been using
Private Sub CmdPrintECN_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "rptItem"
strCriteria = "[Item_number]='" & Forms!items_log.[Txtitem_number] & "'"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End Sub
Private Sub CmdPrintECN_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "rptItem"
strCriteria = "[Item_number]='" & Forms!items_log.[Txtitem_number] & "'"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End Sub