怎样在打印当前窗体的内容在报表上

wyz

首先创建一个报表引用当前窗体中的数据，然后在当窗体中加入一个‘打印预览’命令，然后修改命令：

Private Sub Command47_Click()
On Error GoTo Err_Command47_Click
   

    Dim stDocName As String
    Dim strFilter As String(修改时加入)

    stDocName = "窗体名"
    strFilter = "[##]（指定唯一索引） = Forms![窗体名]![##]"
    DoCmd.OpenReport stDocName, acPreview, , strFilter（修改时加入）
  
   
Exit_Command47_Click:
    Exit Sub

Err_Command47_Click:
    MsgBox Err.Description
    Resume Exit_Command47_Click
   
End Sub
[em23][em23][em23][em23][em23][em23][em23][em05][em05][em05][em05][em05]