怎么在窗体中的“打印按钮”控件打印报表

Public Function PrintReport(View As AcView)
    On Error GoTo ErrorHandler

    Dim strWhere As String
    strWhere = "[你的主键]=" & SQLText(Me.sfrList![你的主键])

    DoCmd.OpenReport "你的报表名称", View, , strWhere

ExitHere:
    Exit Function

ErrorHandler:
    Select Case Err.Number
    Case errOpenActionWasCanceled, errOperationCanceledByUser
    Case Else
        RDPErrorHandler Me.Name & ": Sub PrintReport()"
    End Select
End Function

然后你上面的代码才能调用。