标题: 选定报表后如何打印当前的一条记录 [打印本页] 作者: val 时间: 2004-2-26 21:58 标题: 选定报表后如何打印当前的一条记录 选定报表后如何打印当前的一条记录作者: val 时间: 2004-2-26 22:02
以下代码如何修改
Sub form_open()
Dim a As AccessObject
For Each a In CurrentProject.AllReports
'Debug.Print a.Name
listbox0.RowSource = listbox0.RowSource & a.Name & ";"
Next
End Sub
Private Sub listbox0_dblclick()
DoCmd.OpenReport listbox0.Value
End Sub 作者: WTM1 时间: 2004-7-1 19:22
不麻烦了!直接作个宏使用PrintOut,选定范围!这样在报表中插入宏就可以实现报表当前数据的打印,去看看![em01]作者: val 时间: 2004-9-14 21:46
ok作者: elong 时间: 2009-8-12 12:59