VBA 调用打印成功后，光标无法自动回到文本框内

Li元芳

各位专家，新年好，请专家帮忙解决个小问题：

vba 截取字符后，调用打印成功后，光标无法回到form的文本框内，请问下如何解决，请专家高抬贵手，指导下，谢谢您。

a18b88

试试是否达到要求目的？

a18b88

附件： 截取111.rar (14.01 KB, 下载次数: 5)

2023-1-30 11:06 上传

点击文件名下载附件

Li元芳

你好，师傅，还是没解决，我就是连续扫描产品码，每次都打印一次。第一次扫描完，并打印后，界面被刷新，光标就没有自动到form 内的文本框了，都要人工手动点击才回到文本框内。请指导下，不知道如何解决，是不是可以做个循环重新启动一次form 界面呢？，万分感谢

截图

这是打印一次方式：
ActiveWindow.SelectedSheets.PrintOut Copies:=1

这个执行完成后，光标没有回到 form 内的文本框了

a18b88

Li元芳 发表于 2023-1-30 16:43
你好，师傅，还是没解决，我就是连续扫描产品码，每次都打印一次。第一次扫描完，并打印后，界面被刷新，光 ...

你再试试：Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Call aaa
    Call fff
    With TextBox1
        If Len(Trim(TextBox1.Text)) = 11 Then
            If KeyCode = vbKeyReturn Then
                Range("a" & Cells(1).End(3).Row).Offset(0).Value = Mid(.Text, 8, 4)
                .Text = ""
               
                ActiveWindow.SelectedSheets.PrintOut Copies:=1
                Call 光标复位
               
            End If
        ElseIf Len(Trim(TextBox1.Text)) <> 11 Then
            If KeyCode = vbKeyReturn Then
                MsgBox ("此号码    ") & .Text & ("     错误，")
                Cancel = True
            End If
        End If
    End With
   
End Sub

'重置单元格数据

Sub aaa()
    Range("A:A").ClearContents
End Sub

'与系统时间同步

Sub fff()
    [a7] = WorksheetFunction.Text(Now(), "yyyy-mm-dd h:mm:ss")
    'Application.OnTime Now + TimeValue("00:00:01"), "与系统时间同步"
End Sub

a18b88

Li元芳 发表于 2023-1-30 16:43
你好，师傅，还是没解决，我就是连续扫描产品码，每次都打印一次。第一次扫描完，并打印后，界面被刷新，光 ...

你再试试， 截取111.rar (13.64 KB, 下载次数: 4)

2023-1-30 17:32 上传

点击文件名下载附件

Li元芳

感谢师傅的耐心指导帮助，学生找到问题的所在，有解决方案了。


1、问题根因是打印时弹出了窗体，导致 userform  被隐藏了

解决方式：

打印一次后，重新加载窗体即可；


                ActiveWindow.SelectedSheets.PrintOut Copies:=1
                Call killForm



'卸载任意窗体， 重新加载
Sub killForm()
    Unload Me
    UserForm1.Show
End Sub



问题完全解决，非常感谢师傅的指导帮助，让学生茅塞顿开，又学到找问题所在，思考解决方案，也感谢平台给予的资源。谢谢

Li元芳

感谢师傅指导，学生已经解决了，

ActiveWindow.SelectedSheets.PrintOut Copies:=1
call killForm

Sub killForm()
    Unload Me
    UserForm1.Show
End Sub

万分感谢

Li元芳

感谢师傅的耐心指导，学生找到解决方案了

光标焦点丢失，因为打印跳转导致，userform 被隐藏了，通过如下方法重新加载 userform 即可；

                ActiveWindow.SelectedSheets.PrintOut Copies:=1
                Call killForm

模块：
Sub killForm()
    Unload Me
    UserForm1.Show
End Sub