老师，需要打印工艺卡，打印多份，需要循环执行打印代码，我不会设计循环，麻烦您看看。谢谢指导！if 如果“零件目录表”的“”选择“列有选中的 then
'-----------------------------循环开始------------------------------------
Tables("零件目录表").Filter = "选择 = True"
'-----------------------------打印按钮------------------------------------
Dim cmb1 As winform.combobox = e.Form.controls("cmbprinters")
Dim doc1 As PrintDoc = e.Form.GernatePrintDoc()
If cmb1.value <> "默认打印机" Then
Doc1.printername = cmb1.value
End If
doc1.Print()
'-----------------------------反选-------------------------------------
Tables("零件目录表").current("选择") = False
Tables("零件目录表").current("打印") = True
if 如果“零件目录表”的“”选择“列没有有选中的 then
Forms("打印工艺卡").Close()
[此贴子已经被作者于2022/10/19 10:04:23编辑过]
加好友 
发短信
Post By：2022/10/19 10:03:00 [显示全部帖子]
