使用vb.net调用bartender并打印标签

题目

1.项目调用第三方dll，使用bartender软件制作标签

2.输入内部批号信息，可根据内部批号带出其他基本信息，并体现在标签上

3.根据标签内容，可显示条形码，二维码等信息，并可用BarCode 扫描内容，并显示正确

4.数量计算规则：标签个数= 打印批号的当前数量 / 1000 （一箱数量）

代码

Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim datestr As Date = Date.Nowdatestr = datestr.ToStri``ng("yyyy/MM/dd")Dim btapp As BarTender.ApplicationDim btFormat As BarTender.Formatbtapp = New BarTender.ApplicationDim ds As New SqlClient.SqlConnectionDim dm As New SqlClient.SqlCommandds.ConnectionString = "Data Source=服务器名;Initial Catalog=数据表;User ID=***;Password=****;"dm.Connection = dsdm.CommandText = "select  CUSTENG ,***,CustLotNo ,CustProduct,CurrentQTY  from WIPLOT where *** = '" & TextBox1.Text & "'  "Dim dataAdapter As New SqlClient.SqlDataAdapterdataAdapter.SelectCommand = dmDim mydataset As New DataSet()ds.Open()dataAdapter.SelectCommand.ExecuteNonQuery()dataAdapter.Fill(mydataset, "wiplot")Dim s As IntegerIf mydataset.Tables("wiplot").Rows(0).ItemArray(4) Mod 1000 = 0 Thens = mydataset.Tables("wiplot").Rows(0).ItemArray(4) \ 1000Elses = Fix(mydataset.Tables("wiplot").Rows(0).ItemArray(4) \ 1000 + 1)End IfTextBox2.Text = sIf mydataset.Tables("wiplot").Rows(0).ItemArray(4) Mod 1000 = 0 ThenFor i = 1 To sDim cust = mydataset.Tables("wiplot").Rows(0).Item("CUSTENG").ToStringDim ilot = mydataset.Tables("wiplot").Rows(0).ItemArray(1).ToStringDim clot = mydataset.Tables("wiplot").Rows(0).ItemArray(2).ToStringDim cprod = mydataset.Tables("wiplot").Rows(0).ItemArray(3).ToStringDim BID As String = cprod + "," + ilot + "," + cprod + "," & 1000Dim Box_No = i & "/" & sbtFormat = btapp.Formats.Open("C:\Users\Administrator\Desktop\实习计划\2022-02-23\H-inlabel.btw", False, "")btFormat.PrintSetup.NumberSerializedLabels = 2btFormat.SetNamedSubStringValue("cust", cust)btFormat.SetNamedSubStringValue("ilot", ilot)btFormat.SetNamedSubStringValue("clot", clot)btFormat.SetNamedSubStringValue("cprod", cprod)btFormat.SetNamedSubStringValue("BID", BID)btFormat.SetNamedSubStringValue("Indate", datestr)btFormat.SetNamedSubStringValue("Box_No", Box_No)btFormat.PrintOut(True, False)NextElseFor i = 1 To sDim cust = mydataset.Tables("wiplot").Rows(0).ItemArray(0).ToStringDim ilot = mydataset.Tables("wiplot").Rows(0).ItemArray(1).ToStringDim clot = mydataset.Tables("wiplot").Rows(0).ItemArray(2).ToStringDim cprod = mydataset.Tables("wiplot").Rows(0).ItemArray(3).ToStringDim BID As StringDim Box_No = i & "/" & sIf i = s ThenBID = cprod + "," + ilot + "," + cprod + "," & mydataset.Tables("wiplot").Rows(0).ItemArray(4) Mod 1000btFormat = btapp.Formats.Open("C:\Users\Administrator\Desktop\实习计划\2022-02-23\H-inlabel.btw", False, "")btFormat.PrintSetup.NumberSerializedLabels = 2btFormat.SetNamedSubStringValue("cust", cust)btFormat.SetNamedSubStringValue("ilot", ilot)btFormat.SetNamedSubStringValue("clot", clot)btFormat.SetNamedSubStringValue("cprod", cprod)btFormat.SetNamedSubStringValue("BID", BID)btFormat.SetNamedSubStringValue("Indate", datestr)btFormat.SetNamedSubStringValue("Box_No", Box_No)btFormat.PrintOut(True, False)Exit ForEnd IfBID = cprod + "," + ilot + "," + cprod + "," & 1000btFormat = btapp.Formats.Open("C:\Users\Administrator\Desktop\实习计划\2022-02-23\H-***.btw", False, "")btFormat.PrintSetup.NumberSerializedLabels = 2btFormat.SetNamedSubStringValue("cust", cust)btFormat.SetNamedSubStringValue("ilot", ilot)btFormat.SetNamedSubStringValue("clot", clot)btFormat.SetNamedSubStringValue("cprod", cprod)btFormat.SetNamedSubStringValue("BID", BID)btFormat.SetNamedSubStringValue("Indate", datestr)btFormat.SetNamedSubStringValue("Box_No", Box_No)btFormat.PrintOut(True, False)NextEnd IfbtFormat.Close()btapp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)End Sub
End Class

使用vb.net调用bartender并打印标签相关推荐

c#调用bartender模板打印标签
1.首先,电脑要安装Bartender软件. 在C#代码中添加引用,添加COM组件选择本地浏览,选择Bartender安装目录下的SDK文件夹(C:\Program Files\Seagull\Ba ...
C# 调用BarTender打印标签报错
在C#调用BarTender时,我本想在winform程序上,增加一个输入框,让用户可以自己输入打印张数,如下图代码如下 //打开标签文档btFormat = btApp.Formats.Open( ...
怎么用BarTender批量打印标签
2019独角兽企业重金招聘Python工程师标准>>> 关于使用BarTender条码打印软件打印标签,很多小伙伴最关心的问题之一,莫过于如何实现BarTender批量打印标签.为了 ...
JAVA调用Bartender进行标签打印（可本地用打印机客户端进行测试打印，【云上的项目】可通过WebSocket进行通讯进行打印）
用Java编写一个打印标签客户端点击运行启动会打开首页可以点击预览打印点击打印可测试成功打印机结果前端用的是thymeleaf 代码片段 <!DOCTYPE html> < ...
vb获得mysql的值,VB.NET调用MySQL存储过程并获得返回值的方法
本文实例讲述了VB.NET调用MySQL存储过程并获得返回值的方法.分享给大家供大家参考.具体实现方法如下: Dim myConnectionString As String = "Data ...
在VB 中调用动态连接库
在VB 中调用动态连接库 2001-11-08· · ··yesky 1 2 3 4 5 6 7 8 下一页作为一种简单易用的Windows开发环境,Visual Basic从一推出就受到了广 ...
matlab编译dll vb调用,用matlab的deploytool生成DLL，VB无法调用的问题
matla使用的版本是2010a,VB6,例子来自一篇论文.练习时成功用deploytool函数生成了DLL,但最后在VB中调用时却报错,不知哪位大大知道是什么原因?谢谢! 参考的例子如下第一步 ...
用VB轻松调用其他程序
我们编写程序时,有时会遇到在一个程序中调用并控制另一个程序执行的情况,在一些编程语言中实现起来较为繁琐,但如果用VB编写时,则可轻松实现.下面我就以在程序中调用"计算器"为例,总结 ...
【C#】C#调用Bartender模板打印
Bartender版本:Bartender 2016(11.0.7.3.3146) Bartender下载 http://www.ddooo.com/softdown/142454.htm 或链接: ...
Vb下调用Help文件 (转)
Vb下调用Help文件 (转)[@more@] VB的应用程序帮助文件非常方便,只要对对象App的属性HelpFile赋值即可.现支持的格式有两种.chm与.hlp 例: app.helpfile ...

使用vb.net调用bartender并打印标签

题目

代码

使用vb.net调用bartender并打印标签相关推荐

最新文章

热门文章