Listbox Auswahl Drucken

Forumthread: Listbox Auswahl Drucken

08.04.2016 23:18:26

Michael

Guten Abend, ich brauche mal wieder eure Hilfe!
Kann man den Code unten so ändern, dass die Überschriften mit ausgedruckt werden und das ganze mittig auf dem Blatt erscheint? Eventuell noch in Tabellenform und jede 2. Zeile farblich?
Gruß Michael
' DRUCKEN

Private Sub CommandButton1_Click()
Dim zeLB As Long, spLB As Long
Dim zeTB As Long, spTB As Long
Dim allesDrucken As Boolean
' Zellen leeren
Range("Druckvorlage!A2:P1000") = ""
' Querformat festlegen
Worksheets("Druckvorlage").PageSetup.Orientation = xlLandscape
'--- Drucker auswählen
Application.Dialogs(xlDialogPrinterSetup).Show
'-- Prüfen, ob alles gedruckt werden muss
For zeLB = 0 To ListBox1.ListCount - 1
allesDrucken = allesDrucken Or ListGeb.Selected(zeLB)
Next
zeTB = 1
'--- selektierte Listboxeinträge in Zellen schreiben
For zeLB = 0 To ListGeb.ListCount - 1
If ListGeb.Selected(zeLB) Or Not allesDrucken Then
zeTB = zeTB + 1
For spLB = 0 To ListGeb.ColumnCount - 1
Sheets("Druckvorlage").Cells(zeTB, spLB + 1) = ListGeb.List(zeLB, spLB)
Next
End If
Next
Sheets("Druckvorlage").Visible = True
' Drucke Tabellenblatt
Worksheets("Druckvorlage").PrintOut
Sheets("Druckvorlage").Visible = False
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox Auswahl Drucken

09.04.2016 11:02:43

Arthur
AW: Listbox Auswahl Drucken

10.04.2016 11:40:53

Michael

AW: Listbox Auswahl Drucken

09.04.2016 11:02:43

Arthur

Hallo Michael.
Ob die Überschriften gedruckt werden hängt davon ab, ob sie im Druckbereich liegen. Vielleicht den vorher noch einstellen (ActiveSheet.PageSetup.PrintArea = ""). Damit die Zeilen sich farblich unterscheiden kannst du die bedingte Formatierung nutzen. Bedingung =REST(ZEILE();2).
Gruß, Arthur.

AW: Listbox Auswahl Drucken

10.04.2016 11:40:53

Michael

Hallo Arthur, ich doof habe mal wieder zu kompliziert gedacht..... Ich wollte das mit VBA programmieren, was aber unnötig ist. Ich kann ja wie du schon sagst, das Tabellenblatt formatieren wie ich es brauche.... und die Daten per VBA dann einfügen und Drucken.
Vielen Dank für den Denkanstoss.
Gruß Michael

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei und gehe zu dem Tabellenblatt, das die Listbox enthält.
Füge einen Button hinzu, um den Druckvorgang zu starten. Klicke mit der rechten Maustaste auf den Button und wähle „Code anzeigen“.

Kopiere den folgenden VBA-Code in das Codefenster:

Private Sub CommandButton1_Click()
   Dim zeLB As Long, spLB As Long
   Dim zeTB As Long, spTB As Long
   Dim allesDrucken As Boolean

   ' Zellen leeren
   Range("Druckvorlage!A2:P1000") = ""

   ' Querformat festlegen
   Worksheets("Druckvorlage").PageSetup.Orientation = xlLandscape

   ' Drucker auswählen
   Application.Dialogs(xlDialogPrinterSetup).Show

   ' Prüfen, ob alles gedruckt werden muss
   For zeLB = 0 To ListBox1.ListCount - 1
       allesDrucken = allesDrucken Or ListBox1.Selected(zeLB)
   Next

   zeTB = 1

   ' Selektierte Listboxeinträge in Zellen schreiben
   For zeLB = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(zeLB) Or Not allesDrucken Then
           zeTB = zeTB + 1
           For spLB = 0 To ListBox1.ColumnCount - 1
               Sheets("Druckvorlage").Cells(zeTB, spLB + 1) = ListBox1.List(zeLB, spLB)
           Next
       End If
   Next

   ' Überschrift hinzufügen
   Sheets("Druckvorlage").Cells(1, 1) = "Überschrift 1"
   Sheets("Druckvorlage").Cells(1, 2) = "Überschrift 2"

   Sheets("Druckvorlage").Visible = True

   ' Drucke Tabellenblatt
   Worksheets("Druckvorlage").PrintOut
   Sheets("Druckvorlage").Visible = False
End Sub

Ändere den Code, um die Überschriften und die Mittelausrichtung hinzuzufügen. Setze die Formatierungen für die Tabelle nach dem Drucken, um die Lesbarkeit zu verbessern.

Häufige Fehler und Lösungen

Problem: Die Überschriften werden nicht gedruckt.
- Lösung: Stelle sicher, dass die Überschriften innerhalb des Druckbereichs liegen. Verwende den Befehl ActiveSheet.PageSetup.PrintArea = "" vor dem Drucken.
Problem: Die Farben der Zeilen sind nicht korrekt.
- Lösung: Nutze die bedingte Formatierung. Setze die Regel =REST(ZEILE();2)=0, um jede zweite Zeile farblich zu unterscheiden.

Alternative Methoden

Wenn Du eine einfache Lösung ohne VBA suchst, kannst Du die Daten manuell kopieren und in ein neues Tabellenblatt einfügen. Formatierungen wie Farben und Überschriften lassen sich dann einfacher anpassen. Eine weitere Möglichkeit ist die Verwendung von Excel-Tabellen, die automatisch das Drucklayout anpassen.

Praktische Beispiele

Hier ist ein Beispiel, wie Du eine Listbox mit Daten füllen kannst:

Erstelle eine Listbox auf deinem Arbeitsblatt.

Füge einige Daten in die Listbox ein, beispielsweise aus einer Datenquelle:

Private Sub UserForm_Initialize()
   ListBox1.AddItem "Eintrag 1"
   ListBox1.AddItem "Eintrag 2"
   ListBox1.AddItem "Eintrag 3"
End Sub

Nutze den oben beschriebenen Druckcode, um die Auswahl zu drucken.

Tipps für Profis

Druckbereich festlegen: Stelle sicher, dass der Druckbereich richtig gesetzt ist, um nur die benötigten Daten auszudrucken.
Benutzerdefinierte Formatierungen: Verwende VBA, um benutzerdefinierte Formatierungen vor dem Drucken anzuwenden.
Automatisierung: Überlege, ob Du den Druckvorgang automatisieren kannst, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Wie kann ich die Listbox in ein anderes Blatt übertragen?
Du kannst die Daten der Listbox ganz einfach in ein anderes Blatt kopieren, indem Du den Zielbereich im Code anpasst.

2. Was muss ich tun, wenn mein Drucker nicht erkannt wird?
Stelle sicher, dass der Druckertreiber installiert ist und der Drucker korrekt mit deinem Computer verbunden ist. Du kannst auch versuchen, den Drucker neu zu starten.

3. Kann ich mehrere Listboxen gleichzeitig drucken?
Ja, Du kannst den Code anpassen, um die Auswahl aus mehreren Listboxen in einem einzigen Druckvorgang zu kombinieren. Achte darauf, die Daten in die Zellen zu schreiben, bevor Du den Druckbefehl ausführst.

Beliebteste Forumthreads (12 Monate)