Dim i,j As Integer
Dim sd As WinForm.CheckBox = e.Form.Controls("CheckBox1") '是否打印双份
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
If sd.Checked = True Then
i=2
Else
i=1
End If
'打印已经选择的列
Dim jhr As new List(of Row)
jhr = Tables("表a").GetCheckedRows
If jhr.Count = "0" Then
MessageBox.Show("请选择需要打印的行!")
Else
For Each r As Row In Tables("表a").GetCheckedRows
For j=1 To i
doc.Print()
Next
Next
End If
纸质是按照打印的行数进去了,出现第一条有数据,后面的打印的是空白的。
想实现功能:用户通过表复选框选择多行记录后,点打印,在打印窗口界面有个是否打印双份,如果是双份每条记录打2张,一条记录打印完后自动打印下一跳记录
求帮!