此主题相关图片如下：20190924090757.png
参考下这个？自用的，将窗口信息，用标签机打印。
1.窗口afterload事件
Dim dyj As WinForm.ComboBox = e.Form.Controls("ComboBox2")
For Each p As String In InstalledPrinters
dyj.Items.Add(p)
Next
2.打印按钮事件
If e.Form.Controls("DateTimePicker2").value Is Nothing Or e.Form.Controls("ComboBox1").text = "" Or e.Form.Controls("ComboBox2").text = "" Then
MessageBox.Show("日期,拆封人,打印机型号不能为空", "提示")
Else
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")
Doc.PrinterName = pr.Value
'Doc.PrinterName = "ZDesigner GK888t"
doc.AutoRotate = False
doc.Print()
'doc.Preview()
Next
End If
End If
3.主要还是设置控制面板里打印机具体的页面参数，不规则的规格，用自定义添加
[此贴子已经被作者于2019/9/24 9:28:41编辑过]
加好友 
发短信
Post By：2019/9/24 9:22:00 [显示全部帖子]
