西门子HMI通过VB脚本控制打印机进行标签打印
项目背景:
使用了触控一体机安装Wincc RT Advanced来替代TP1200触摸屏,工位本身需要控制斑马打印机打印标签,兼容5种不同的产品标签,标签可修改样式和内容
之前使用过PLC通过发送打印文件内容方式进行控制打印机,客户修改样式和内容比较麻烦,修改过后都要PLC进行对应
本次想通过VB脚本来完成打印任务,PLC变量触发VB脚本,脚本内驱动打印事件,PC机打印标签文件
硬件:
触控一体机,斑马打印机GT820,通过USB线连接并装好驱动
软件:
触控一体机装Win7 64bit
安装标签编辑软件BarTender
安装WinCC RT Advanced
标签样本(内容纯属虚构,如有侵权请及时联络)
变动字符:
年月日:23-03-10
序列号:00001
不同的产品标签格式有所不同,需要提供不同的标签模板
模板名称:F01R00X089 共10位字符
设计思路:
PLC建立变量:TypeName作为模板名称
PLC建立变量:SerialNumber作为流水号Int
在PC机上保存固定文件夹,txt作为Database来源
PLC触发Cmd_Print,VB脚本触发打印动作
打印完成,提供Status_PrintDone
VB脚本代码修改txt内容,日期和流水号,同时更换模板,启动打印机
打印机通过USB与PC相连,执行打印就像打印Word一样,这里执行打印的内容为Bartender文件
1.按照标签模板先建立起文件
2.设置数据库Database
右键->数据库设置
选择数据库类型
选择文件,新建好txt文件,内部写入内容用英文逗号隔开
选择文件格式,引号和逗号混用
字段名称,大3行,完成设置
连接属性,就是刚才Database文件关联的过程,可以选择配置连接重新进行关联
查看字段,可以看到三个字段
记录浏览器可以查看目前txt内的数据
③字段的数据库关联(以日期为例)
点中日期->右键属性
数据源还未设置,点击进行设置
选择数据库字段
选择字段1,点击完成
文本内容与数据库Database数据关联完成
④其他关联重复③操作,字段选择不同
程序代码:
Sub Print()
'************************************************************************************
'*** Module: Print
'***
'*** Copyright HouJinKu, ShangHai
'***
'*** Function: Print Bartender file to Printer GT820 of Zebra
'***
' *** Datum: 04.10.2022
' ***
' *** Author: Hou jinku
' ***
' *** last change: V1.0 initial creation
' *** V1.1 Adaptation to: Date\Serial number\TypeName
' ***
' ************************************************************************************)
On Error Resume Next
HmiRuntime.SmartTags("PrintDone") = False
'Counter+
Dim aCounter
aCounter = HmiRuntime.SmartTags("Counter")
If aCounter>999 Then
aCounter=0
End If
'Serial number
Dim aSerialNumber,Str5,aPrintNum
aSerialNumber = HmiRuntime.SmartTags("SerialNumber")
Str5=String(5,"0")
aPrintNum=Right(Str5 & aSerialNumber, 5)
'Date
Dim aYear,aMonth,,aDay,aDate
aYear = Right(Year(Now),2)
aMonth = Right("00"& Month(Now),2)
aDay = Right("00"& aDay,2)
aDate=aYear & "-" & aMonth & "-" & aDay
'TypeName
Dim aTypeName
aTypeName = HmiRuntime.SmartTags("TypeName")
'Database
Dim fso, f,typeNo
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.CreateTextFile("E:\Printer\Database.txt", True) 'Over old
f.Write(aDate & ",")
f.Write(aPrintNum & ",")
f.Write("xxx")
f.Close()
Set f = Nothing
Set fso = Nothing
Dim btApp, btFormat,btPrint
Set btApp = CreateObject("BarTender.Application")
btApp.Visible = False
Set btFormat = btApp.Formats.Open("E:\Printer\" & TypeName & ".btw",False,"")
Set btPrint = btFormat.PrintOut(True,False)
btFormat.Close
uit
Set btApp = Nothing
aCounter=aCounter+1
HmiRuntime.SmartTags("Counter") = aCounter
HmiRuntime.SmartTags("PrintDone") = True
End Sub
HMI变量中数值更改调用VB脚本Print
所以PLC程序触发一次ON,再触发OFF,每次变化一次
PLC触发及收到结果的关键流程步
记录上次触发的状态
根据上次状态进行下次触发
客户要更改模板,打开Bartender软件可直接修改和保存,换型时TypeName更改打印模板与之对应