在打印报表时，很多情况需打印窗体中的当前记录。

法一：

网友们大多采用此法。例子见： http://www.accessoft.com/bbs/showtopic.asp?id=4766

豆豆老师的回贴中事例代码：

  　Dim stDocName As String

       stDocName = "表1"

       DoCmd.OpenReport 　stDocName, acNormal, , "编号='" & Me.编号 & "'"

通过“编号”的值来查询打印窗体中的当前页。

法二：

１、利用向导创建打印、预览命令按纽。

利用向导生成报表后，去掉数据源。（数据源不取消，会有重复记录）

２、将报表中所有文本框的数据来源改为“＝[Forms]![窗体名称]！窗体中的标签名”。

此法优点：不用修改向导生成的代码，较适合初学者。窗体中，没有ID、编号等标识当前记录的字段，用本法较好，用法一易打印出多条记录。

此法缺点：当报表中字段较多时，修改较麻烦。

点击下载此附件