1. 一次打印多张的方法,给你一个参考,我做的是设置打印某一窗口,手工选择打印数量及手工选择打印机型号。
Dim Val As Integer = 1
If InputValue(Val, "批量打印", "请输入要打印的份数:") Then
For i As Integer = 1 To val
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim pr As WinForm.ComboBox = e.Form.Controls("ComboBox2") '自己做一个COMBOBOX做为打印机择选型号
Doc.PrinterName = pr.Value
'Doc.PrinterName = "ZDesigner GK888t" '这个固定的型号已经作废
doc.AutoRotate = False
doc.Print()
'doc.Preview() '不预览,直接打印
Next
End If
2. 条码打印速度,一般在标签打印机里面调的。
此主题相关图片如下:snipaste_2019-12-31_14-49-42.jpg