关于窗体报表打印问题

lyd888888

我在窗体中做了一个打印按钮，要求当我录入完一条记录入按打印可以调用表格打印这条记录，代码如下：

Private Sub 命令18_Click()
On Error GoTo Err_命令18_Click

    Dim stDocName As String

    stDocName = "付款通知单"
    DoCmd.OpenReport stDocName, acNormal

Exit_命令18_Click:
    Exit Sub

Err_命令18_Click:
    MsgBox Err.Description
    Resume Exit_命令18_Click
   
End Sub
但是当我按打印后，里面所有数据全部都打印出来了，我要求只打印当前输入的这条记录，怎么处理，谢谢

lyd888888

已经关联了，现在要求直接打印当前的记录，麻烦高手是不是需增加一些代码

lyd888888

针对我这个代码怎么修改呀

lyd888888

示例，麻烦帮忙改一下