主题：打印问题

图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