Userform schließt nicht
12.05.2004 06:43:22
Herbert
Ich habe eine UF mit der ich die Anzahl von Ausdrucken steuern kann. Danach möchte ich die UF schließen ( mit Unload Me) aber sie bleibt offen ....?
Wo ist mein "Aussteiger"?
Option Explicit
Dim druckanzahl As Byte
Private Sub CommandButton1_Click()
Dim c As Byte
For c = 1 To 4
If Controls("OptionButton" & c) Then
druckanzahl = c
Exit For
End If
Next
Application.ActivePrinter = "Brother MFC9030 auf BMFC:" 'Drucken
ActiveWindow.SelectedSheets.PrintOut Copies:=druckanzahl, ActivePrinter:= _
"Brother MFC9030 auf BMFC:", Collate:=True
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Danke für Ideen im Voraus
Herbert
Anzeige