Setfocus nach Druck
29.07.2021 10:48:03
Tim
ich benötige bitte eure Hilfe bei meinem Problem mit "Setfocus" auf einer Userform. Das Problem besteht darin, dass nachdem das Makro den print gestartet hat, der Fokus nicht mehr auf der Userform liegt und man wieder in die Textbox klicken muss.
Mein folgender Versuch ist bisher gescheitert, wie kann man das Problem lösen?
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Ziel.Value = "Test" Then
With Sheets("Druck")
.PageSetup.PrintArea = "$A$1:$A$6"
'Drucken:
'Application.Dialogs(xlDialogPrinterSetup).Show
.PrintOut ActivePrinter:="LABEL"
'Druckbereich aufheben:
.PageSetup.PrintArea = ""
End With
TextBox1.SetFocus
TextBox1.SelStart = 0
Cancel = True
End If
If TextBox1.Text = "" Then
TextBox1.SetFocus
TextBox1.SelStart = 0
Cancel = True
Else
Cancel = False
End If
End Sub
Anzeige