[新手项]无模块打印机调用+离线二维码生成可用作标签打印

KD飞飞

引用一个dllQRCodeWin32.dll

用以生成QRCode格式的二维码
使用第二个窗口直接以组件的形式绘画出70x50的标签样式
使用快照的形式截取窗口所有内容
输出后载入并打印
本源码借鉴论坛内实用源码，综合编制
纯手搓
无模块，代码极简，非常适合新手研究原生默认打印机（TSCTTP244PRO这种）打印一张标签的情况
附件是DLL和源码
下面是实际标签打印效果


如果不想下载，回复后可见源码，共计30行代码，新手入局工业企业标签打印或一般打印的超级福音

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_打印_被选择

变量名	类 型	静态	数组	备 注
图片号	整数型

写到文件 (取运行目录 () ＋ “\temp.bmp”, 快照 (窗口1.取窗口句柄 (), 窗口1.宽度, 窗口1.高度))
图片号 ＝ 载入图片 (取运行目录 () ＋ “\temp.bmp”)
打印机1.开始打印 (假, , -1, 0, 700, 500)
打印机1.画图片 (图片号, 0, 0, 700, 500, , )
打印机1.结束打印 ()

子程序名	返回值类型	公开	备 注
_生成二维码_被选择

初值 ()
输出bmp (取运行目录 () ＋ “\a.bmp”)
图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\a.bmp”)

子程序名	返回值类型	公开	备 注
初值

设置文本 (编辑框2.内容)
设置图像大小 (150, 150)
设置前景色 (255, 255, 255)
设置背景色 (0, 0, 0)
条码参数 (0, 0, 5)
外形设置 (0.16, 0, 0)
' 外形设置 0.11要略高于设置图像大小的矩形尺寸的100倍

子程序名	返回值类型	公开	备 注
_窗口1_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (打印菜单, , )

子程序名	返回值类型	公开	备 注
_外形框1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (打印菜单, , )

子程序名	返回值类型	公开	备 注
_退出_被选择

销毁 ()

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _打印_被选择<br /> .局部变量 图片号, 整数型<br /> <br /> 写到文件 (取运行目录 () ＋ “\temp.bmp”, 快照 (窗口1.取窗口句柄 (), 窗口1.宽度, 窗口1.高度))<br /> 图片号 ＝ 载入图片 (取运行目录 () ＋ “\temp.bmp”)<br /> 打印机1.开始打印 (假, , -1, 0, 700, 500)<br /> 打印机1.画图片 (图片号, 0, 0, 700, 500, , )<br /> 打印机1.结束打印 ()<br /> <br /> .子程序 _生成二维码_被选择<br /> <br /> 初值 ()<br /> 输出bmp (取运行目录 () ＋ “\a.bmp”)<br /> 图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\a.bmp”)<br /> <br /> .子程序 初值<br /> <br /> 设置文本 (编辑框2.内容)<br /> 设置图像大小 (150, 150)<br /> 设置前景色 (255, 255, 255)<br /> 设置背景色 (0, 0, 0)<br /> 条码参数 (0, 0, 5)<br /> 外形设置 (0.16, 0, 0)<br /> ' 外形设置 0.11要略高于设置图像大小的矩形尺寸的100倍<br /> <br /> .子程序 _窗口1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (打印菜单, , )<br /> <br /> .子程序 _外形框1_鼠标右键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (打印菜单, , )<br /> <br /> .子程序 _退出_被选择<br /> <br /> 销毁 ()

最终梦想

普通的A5 A4打印呢 连打之类的 能不能搞一搞

我的yyy123

学习学习

a30578

感谢分享，很给力！~

XJxaiojing

这个分享太棒啦，感谢！

ajia0011

ajia0011 发表于 2025-3-19 14:28
大佬，有生成条形码的么？我们这只有条形码

补充内容 (2025-3-19 23:20):

是的.都是条条的那种

ajia0011

大佬，有生成条形码的么？我们这只有条形码

补充内容 (2025-3-19 23:20):
是的.都是条条的那种

please

感谢分享，支持开源！！！

kyo9766

KD飞飞 发表于 2025-3-18 17:51
输出的这种形式不能很好的绘画标签，我这种快照形式就是把界面当成标签编辑器了，所见即所得了{ ...

这个确实方便很多，也不需要定位了，只要组件设置好位置就行

亿万

        感谢分享