"Fehler" bei minimieren - maximieren
21.07.2006 09:09:44
selma
mit Eurer Hilfe habe ich für das Minimieren und Maximieren folgenden Code erhalten:
Private Sub UserForm_Activate()
Set objForm = New clsUserform
With objForm
.MaxButton = False
.MinButton = True
.BorderStyle = xlAenderbar
.Create Wirtschaftlichkeit
End With
Call SetWindowPos(FindWindow(vbNullString, Me.Caption), HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub
Ich habe ein Button um den Drucker umzustellen mit folgendem Code:
Private Sub CommandButton24_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub
Aufgrund des Codes Minimieren-Maximieren kann ich den Drucker nicht mehr umstellen, da die Multipage permanent im Vordergrund steht.
Wer kann mir hier helfen?
Viele Grüsse
selma
Anzeige