怎么将列表框(LIST)里面已经选定的值实现打印预览功能

yanwei82123300

怎么将列表框(LIST)里面已经选定的值实现打印预览功能？
我有一个窗体里面有一个列表框，我想选中其中一行，（culumn（5）为条件，我想以此为条件进行报表打印，请帮助，谢谢


我的目的是想以列表框（culumn（5）为条件，进行报表的打印！

yanwei82123300

tmtony 谢谢帮助！！

tmtony

对，报表的数据来源，就不要使用form! 这些了

yanwei82123300

tmtony 老师是这样写对吗？DoCmd.OpenReport stDocName, lnkcriteria

tmtony

DoCmd.OpenReport stDocName后面有个where 参数  ,把条件传过去

yanwei82123300

roych 老师谢谢帮助，您的一句代码非常管用：DoCmd.OpenReport stDocName, acPreview,,lnkcriteria
现在还有一个小问题，如果直接打印是否可以去掉代码中的acPreview即可呢？

roych

确定是否单选。如果多选的话，应当设置好数据源后再处理，大体可以设置成条件打印筛选：
DoCmd.OpenReport stDocName, acPreview,,lnkcriteria
由于无附件，所以不好调试，之前我在帖子《化整为零——也谈报表打印》里略有提及，请参考窗体按钮的代码。

yanwei82123300

我刚刚查了查好像查询中需要加入条件，我试了试好像不行：[forms]![frmPaiChan]!PaiChanList.Column(9)
请大家看看

yanwei82123300

我写了一段代码但是系统不按照条件执行，将数据全部带出，请帮助看看，谢谢
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim lnkcriteria As String
    Dim stDocName As String

    lnkcriteria = "[MONumber] = '" & Me.PaiChanList.Column(9) & "'"
    stDocName = "rptMOPickListHeader"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
   
End Sub