Vollbild

[Andyle]

Hallo an alle.

ich öffne meine Arbeitsmappe im Vollbild

Code:

Private Sub Workbook_Open()
 
If [c_vollbild] Then

Application.DisplayFullScreen = True

End If

Über einen Button erstelle ich eine Druckvorschau
Diese hat dann allerdings im Vollbild keine Menüleiste.
somit muss ich über
Application.DisplayFullScreen = False 
aus dem Vollbild aussteigen.

Gibt es eine Möglichkeit, wenn If [c_vollbild] Then  WHAR ist, nach dem Drucken bzw. beenden wieder in den Vollbildmodus zu wechseln?

Code:

Private Sub CommandButton5_Click()
'Barcode drucken

If Application.DisplayFullScreen Then
Application.DisplayFullScreen = False
End If

        Sheets("Label").Range("B17") = "" 'Einzelentnahme
        Sheets("Label").Range("B18") = ""

Dim lZeile As Long
   
    'Nur wenn ein Eintrag selektiert/markiert ist
    If ListBox1.ListIndex >= 0 Then
          
        'Die Zeilennummer des Datensatzes steht in der ersten ausgeblendeten Spalte der Liste,
        'somit können wir direkt zugreifen.
        lZeile = ListBox1.List(ListBox1.ListIndex, 0)
       
            Sheets("Label").Range("C4") = CStr(shProdukte.Cells(lZeile, 2).Text) 'Produkt-ID
            Sheets("Label").Range("B2") = CStr(shProdukte.Cells(lZeile, 5).Text) 'Produktname
            Sheets("Label").Range("B3") = CStr(shProdukte.Cells(lZeile, 6).Text) 'Produktbeschreibung
            Sheets("Label").Range("F4") = CStr(shProdukte.Cells(lZeile, 7).Text) 'Lagerort
            Sheets("Label").Range("J2") = CStr(shProdukte.Cells(lZeile, 3).Text) 'EAN
           
        If MsgBox("Label mit Einzelentnahme drucken?", vbYesNo + vbQuestion, "Einzelentnahme") = vbYes Then
        Sheets("Label").Range("B17") = "Bitte nur Einzelentnahme!" 'Einzelentnahme
        Sheets("Label").Range("B18") = "Artikel bitte auch einzeln buchen!"
        End If
           
    End If
   
    Unload Me
   
    Sheets("Label").Visible = True
    Sheets("Label").PrintPreview 'Vorschau
    Sheets("Label").Visible = False

End Sub

[Oberschlumpf]

Hi,

verwende doch nach deinem Druckbefehl einfach wieder...

Code:

Application.DisplayFullScreen = True

...und das bei Bedarf auch in Kombi mit deiner If-Bedingung.
Oder was hab ich vllt noch nicht verstanden?

Ciao
Thorsten

[Oberschlumpf]

hey, du musst nich antworten, ob ich helfen konnte (oder nich), aber es wäre schon cool, wenn du es tun würdest

[Andyle]

Hi. Bin erst heute zum Einbau gekommen!
Es funzt!
Danke