Excel标签打印应用：PrintOut后TextBox/UserForm失焦问题求助

嘿，这个连续扫描打印的场景我太熟了，之前帮不少人处理过PrintOut后窗体丢焦点的坑，给你几个亲测有效的方案：

方案1：基础版 - 打印后直接切回焦点 #

最简单的办法就是在打印完成后，主动把焦点切回你的输入框。注意要先激活窗体再设置文本框焦点，不然有时候会失效：

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 扫描枪一般会自动发送回车，所以用回车触发打印
    If KeyCode = vbKeyReturn Then
        ' 执行你的打印逻辑（这里替换成你实际的打印代码）
        ActiveSheet.PrintOut
        
        ' 关键步骤：强制切回焦点
        Me.Activate ' 先激活整个UserForm
        TextBox1.SetFocus ' 把焦点定位到输入框
        TextBox1.Text = "" ' 清空内容，方便下一次扫描
        KeyCode = 0 ' 屏蔽回车的默认行为，避免窗体跳动
        
    End If
End Sub

方案2：进阶版 - 用Windows API强制置顶焦点 #

如果基础版不管用（比如有些打印机驱动会弹出状态窗口抢走焦点），可以用Windows API直接把窗体带到前台，百分百稳：

首先在UserForm的代码模块顶部（所有Sub之外）声明API函数：

Private Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As Boolean
Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

然后修改KeyDown事件的代码：

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        ActiveSheet.PrintOut
        
        ' 通过窗体标题找到窗口句柄，强制置顶
        Dim formHwnd As LongPtr
        formHwnd = FindWindow(vbNullString, Me.Caption) ' 这里的Me.Caption是你的UserForm标题
        
        If formHwnd <> 0 Then
            SetForegroundWindow formHwnd ' 把窗体带到前台
            TextBox1.SetFocus ' 定位到输入框
            TextBox1.Text = ""
        End If
        
        KeyCode = 0
    End If
End Sub

方案3：应对顽固打印机驱动 - 加延迟 #

如果打印机驱动会弹出临时窗口（比如打印进度条），可以加个短延迟，等窗口消失后再切焦点：

先声明Sleep API（同样放在模块顶部）：

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

然后在打印后加延迟：

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        ActiveSheet.PrintOut
        
        ' 延迟500毫秒（可根据实际情况调整）
        Sleep 500
        
        Me.Activate
        TextBox1.SetFocus
        TextBox1.Text = ""
        KeyCode = 0
    End If
End Sub

补充说明 #

出现这个问题的核心原因是：PrintOut命令会触发系统打印流程，期间Excel窗口或打印相关的系统窗口会抢占焦点，导致你的UserForm失去前台控制权。上面的方法都是通过主动干预，强制把焦点拉回你的输入框，保证连续扫描的流畅性。

内容的提问来源于stack exchange，提问作者Barbaaz