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

cpf76123

我试了好多种方法就是找不到，，
那位高手可指点一二。。。。。

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]

逸致1

老兄，“暗淡的”“绳”“亚”是什么意思？
这句话“首先创建一个报表引用当前窗体中的数据”中的“[B]数据[/B]”是什么意思？

[此贴子已经被作者于2003-5-3 19:14:50编辑过]