图1下表是关联表中兴计划.中兴任务，我想在此打印中兴任务表末勾选的行，打印代码如下。但每次只打印中兴计划。中兴任务表当前选定的行（1条记录）图2是中兴任务表，已经选中但不打印。

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

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

打印挤塑代码

Tables("中兴任务").Filter = "[工序] = \'绝缘\' And [打印] = False OR [工序] = \'护套\' And [打印] = False"
If Tables("中兴任务").Rows.Count = 0 Then \'如果是一个空表
    MessageBox.Show("没有要打印的数据!", "提示")
    Return \'那么返回
Else
\'选定筛选的表
    With Tables("中兴任务")
        .Select(0,0, .Rows.Count -1, .Cols.Count -1)
    End With
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\中兴挤塑任务.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\\中兴挤塑任务.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\中兴挤塑任务.xls"
Proc.Start()
For Each r As Row In Tables("中兴任务").Rows
r("打印") = True
Next

 你的模板是怎么设计的？两个表分开，还是用关联表的方式？

 尽量做个小例子上来测试。

混合设计的,我要打印的是通过关联表选定的所有末勾选的

 你中兴任务表，选定了多少行数据，就会打印多少行数据的。

 如果有问题，做个例子上来看看。

我是在图1的表中操作，想打印图2的选定行，结果打了图1的选定行。是不是上面代码只能打印当前表的行?