选定报表后如何打印当前的一条记录

val

选定报表后如何打印当前的一条记录

val

以下代码如何修改

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

不麻烦了！直接作个宏使用PrintOut，选定范围！这样在报表中插入宏就可以实现报表当前数据的打印，去看看！[em01]

val

ok

elong