主题：[求助]在预览窗口中只显示选定行的内容

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

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(",") & ")"