向专家求助：

在下图中的窗口的表中（位置1），选定行，然后点击打印预览按钮，希望在弹出的预览窗口中（位置2）只显示选定的行的内容，而不是表中的全部，请教如何实现？多谢了！

此主题相关图片如下：图1.jpg

 你可以先对表格进行筛选，然后再生成打印窗口。

1、表格显示复选框勾选数据

http://www.foxtable.com/webhelp/scr/1635.htm

2、点击打印前，筛选数据

Dim t As Table = Tables("表A")
Dim idxs As String = "-1,"
For Each r As Row In t.GetCheckedRows
    idxs &= r("_Identify") & ","
Next
t.Filter = "_Identify in (" & idxs.trim(",") & ")"