- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]连接西铁城CL-S631条码标签印刷机 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141204)
-- 发布时间：2019/9/24 8:42:00
-- [求助]连接西铁城CL-S631条码标签印刷机
老师，
FOXTABLE 怎么 设置能将打印结果 传到 西铁城CL-S631条码标签印刷机 打印条码
-- 发布时间：2019/9/24 8:46:00
--
不是和普通打印机一样，直接打印的么？
-- 发布时间：2019/9/24 9:06:00
--
看看他们有没有库文件吧，前几天刚整了一个TSC 244的标签打印机，用他们的库文件调用打印机和设置纸张的方式吧，普通的纸张常不对。
-- 发布时间：2019/9/24 9:22:00
--
此主题相关图片如下：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编辑过]
-- 发布时间：2019/9/24 9:26:00
--
此主题相关图片如下：斑马gk888t设置参数1.png
此主题相关图片如下：斑马gk888t设置参数2.png
-- 发布时间：2019/9/24 13:35:00
--
多谢 我试试