Nachfragen UserForm
31.05.2019 11:25:24
Michael
Hallo Onur
Habe deine Datei ausprobiert. Es gibt damit aber ein paar Probleme. Wenn ich die Datei öffne, wird sie minimiert und nur die UserForm wird angezeit. Soweit - so gut. Andere Excel Dateien lassen sich danach nicht mehr öffnen und das kleine "Rad" am Mauszeiger ist wie wild am Drehen.
Habe folgenden Code bei Google gefunden und ausprobiert
In VBA unter "Diese Arbeitsmappe"
Option Explicit
Private Sub Workbook_Open()
Userform1.Show vbModeless
End Sub
Das funktioniert zwar, ist aber auch nicht wirklich zufriedenstellend. Aber vielleicht kann man ja darauf aufbauen. Ist es möglich in VBA unter "Diese Arbeitsmappe" weitere Parameter einzugeben?
Ziel wäre das die UserForm
1)fest in einem leeren Blatt oben links verankert ist
2)das die Mappe an die Größe der UserForm angepasst wird
3)sämtliche Menüleisten oberhalb des Blattes, außer min max und schließen, ausgeblendet werden
4)ist es möglich dieser Excel Mappe ein anders Miniatur Symbol zu geben? Damit man die Datei von anderen unterscheiden kann. Evtl. ein Druckersymbol.
5)und am wichtigsten. All diese Anpassungen sollen sich natürlich nur auf diese eine Mappe auswirken. Andere Excel Dateien dürfen davon nicht betroffen werden, auch nicht bei gleichzeitiger Verwendung
Noch eine Frage zur Drucker Bestimmung. Habe ich deinen Code so korrekt angepasst? Bin zu Hause und kann es hier leider nicht ausprobieren.
Private Sub CommandButton2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
_
Single, ByVal Y As Single)
' NOM Drucken
Dim strPrinter As String
strPrinter = Application.ActivePrinter "Brother MFC 9140" 'Aktuellen Druckernamen _
speichern
Dim anz As Integer
anz = 1
If Button = 2 Then anz = InputBox("Anzahl?")
Application.ActivePrinter = "Zebra ZM4"
Sheets("Sticker").PrintOut From:=1, To:=1, Copies:=anz, Collate _
:=True, IgnorePrintAreas:=False
Application.ActivePrinter = strPrinter
End Sub
Viele Fragen und viele Grüße
Michael