标签打印程序进度显示求助：用Label模拟计数递增

数据老陈

2026-8-3

问题分析与修改方案

你的代码核心问题是同步循环阻塞了UI线程，而且每次循环重复启动Timer，导致Timer还没来得及触发更新，循环就已经跑完，Label直接显示最终数值。下面是调整后的代码逻辑，用Timer控制打印和进度更新的节奏：

修改要点

将打印总数、当前计数、起始编号设为类级变量，让Timer事件可访问
按钮点击事件仅做初始化工作，启动Timer
把打印逻辑和进度更新移到Timer的Tick事件中，每次Tick处理一次打印并更新Label

修改后的代码

' 定义类级变量，供Timer事件访问
Private toPrintTotal As Integer
Private currentPrintCount As Integer
Private currentStartNo As Integer

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
    ' 打印按钮：初始化参数，启动Timer
    toPrintTotal = Me.NumericUpDown2.Value
    currentPrintCount = 0
    ' 将输入的起始号转为整数，避免字符串运算异常
    Integer.TryParse(TextBox2.Text, currentStartNo)
    
    ' 设置Timer间隔（1秒触发一次）并启动
    Timer1.Interval = 1000
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim RetVal As Object
    Dim TopPos As String = "375,200"
    Dim InfoPos As String = "360,260"
    
    ' 检查是否完成所有打印，完成则停止Timer
    If currentPrintCount >= toPrintTotal Then
        Timer1.Stop()
        Return
    End If
    
    ' 执行单次打印
    RetVal = RDP.PrintRawData("^XA^LL450^PQ" & arrCust(4) & "^CFB,30^FO" & TopPos & "^FD" & arrCust(5) & currentStartNo & "^FS^FO" & InfoPos & "^FD" & arrCust(2) & "^FS^XZ")
    
    ' 更新进度Label
    Label4.Text = currentStartNo.ToString()
    
    ' 更新计数，准备下一次打印
    currentPrintCount += 1
    currentStartNo += 1
End Sub