旗帜标签制作，刀型标签制作，网络标签制作，自动生成标签

本文链接：https://blog.csdn.net/VB973490770/article/details/141176927

旗帜标签制作，刀型标签制作，网络标签制作，自动生成标签

旗帜标签自动制作

网线标签的制作非常让人头疼，网线标签和旗帜标签用标签打印机非常慢，而且价格昂贵，用A4纸打印标签虽然快速，节省资源但是排版确实大问题，总是对不齐，浪费非常多的标签纸，往往1毫米的误差就导致整张纸作废，很是让人头疼，而且浪费非常多的时间来排版。

现在我们就这个问题，创造软件，让软件自动根据标签纸的尺寸和规律自动生成文本框，自动排版，只需要测量十来个参数就可以适配你购买的标签纸。

简单测量几个点的直线距离输入文本框，就可以自动根据你的购买的A4标签纸自动生成旗帜标签，一次设置终身使用。

下边就分享给大家核心部分源代码，大家可以二次开发和优化。

Private Sub cmd_ChuangJianWenDang_Click()
'创建旗帜标签
    Dim ExcelPath$
    Dim DataArray() As Variant
    Dim wb As Workbook '必须引入excel库
    Dim ws As Worksheet
    
    Dim FieldName As String, SZ_FieldIndex() As Variant, iFieldIndex%
    Dim BoxWidth As Double, BoxHeight As Double
    Dim Txt_FountSize As Double
    Dim i%, j%, jj%, J1%, J2%, Jx%, Jy%
    Dim ZBJX#, SBJY#, Zbjx1#, Sbjy1#, StrX, StrY, JianGeX#, JianGeY#, X1#, Y1#, X2#, Y2#
    Dim StrRow As Long, EndRow As Long
    Dim NoOfPage%, BookMarkName$, BuChang%
    ExcelPath = T_ExcelPath.Text
    ' 打开Excel文件
    Set wb = Workbooks.Open(ExcelPath)
    Set ws = wb.Sheets(1)
    
    ' 确定字段数据范围
    Dim LastCol As Long
    LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    '文本框宽度13mm，高度40mm
    'xy,起始坐标
    '每行每列的间隔
    BoxWidth = T_BoxWidth.Text
    BoxHeight = T_BoxHeight.Text
    ZBJX = T_ZBJX.Text
    SBJY = T_SBJY.Text
    Zbjx1 = T_ZBJX1.Text
    Sbjy1 = T_SBJy1.Text
    
    StrX = T_StrX.Text
    StrY = T_StrY.Text
    
    JianGeX = T_JianGeX.Text
    JianGeY = T_JianGeY.Text
    
    StrRow = T_StrRow.Text
    EndRow = T_EndRow.Text
    
    '根据字段内容，确定要打印的字段所在的列号
    ReDim SZ_FieldIndex(1 To listZiDuan.ListCount)
    
    DataArray = ReadExcel2SZ(ExcelPath, 1, 1, 1, LastCol)
    iFieldIndex = 1
    For j = 1 To listZiDuan.ListCount
        ' 查找字段在数组中的列索引
        For i = 1 To UBound(DataArray, 2)
            If DataArray(1, i) = listZiDuan.List(j - 1) Then