标签打印软件 源代码 「第7辑」Excel VBA调用Bar

hi,大家好,最近比较忙,好久没有更新了标签打印软件 源代码,今天给大家分享一个非常实用的技能--VBA调用打印标签。

好处,不言而喻,就是根据自己的需求标签打印软件 源代码,利用VBA调用程序,通过标签打印机打印标签,可以最大限度的提高工作效率。

准备:

电脑

安装有的电脑,破解版的也可以

设计好模板

打印机(可以是标签打印机或者文件打印机)

正式开始:

先在上制作好想要的标签模板,如下是我为了这个教程专门做的模板.

裕宝标签打印_打印标签软件 label v_标签打印软件 源代码

模板中变化的数据设置变量:Var1,Var2,Var3,Var4,Var5,这些变量的值将由excel中单元格来赋值。

保存模板,记住保存路径

先测试一样用打印模板是否成功,要确保成功

新建Excel,并copy本文提供的代码

在sheet1中准备相关数据

裕宝标签打印_打印标签软件 label v_标签打印软件 源代码

以上准备完毕后,就可以测试打印了,请参考一下GIF。

如果测试代码时出现以下错误提示:

出现以上错误提示,说明需要引用 10.1控件。

打印出来的标签如下图:

裕宝标签打印_标签打印软件 源代码_打印标签软件 label v

Gif参考:

VBA打印Gif:

代码:

Sub ()

Dim As String

裕宝标签打印_打印标签软件 label v_标签打印软件 源代码

Dim btApp As .

Dim As .Format

= "C:\CPS\ File\Lexmark RFID\bb.btw"

Set btApp = (".")

btApp.Visible = False

Set = btApp.Formats.Open()

.ue "Var1", Sheet1.Range("B2")

标签打印软件 源代码_打印标签软件 label v_裕宝标签打印

.ue "Var2", Sheet1.Range("B3")

.ue "Var3", Sheet1.Range("B4")

.ue "Var4", Sheet1.Range("B5")

.ue "Var5", Sheet1.Range("B6")

..el = 1 'ÉèÖôòÓ¡µÄ·ÖÊý

.

.Close

btApp.Quit

End Sub

好了,大家试试吧!

在线咨询