Herbers Excel-Forum - das Archiv

vba code für bestimmte Zeilen Drucken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: vba code für bestimmte Zeilen Drucken
von: Thorsten

Geschrieben am: 08.01.2007 13:48:44
Hallo,
habe mir jetzt den Button mit folgenden Code angelegt.
Private Sub CommandButton1_Click()
ActiveSheet.PrintOut Copies:=1
End Sub

Dieser druckt das ganze Sheet - gibt es einen Code, den man einfügen kann, der nur die Zeilen druckt, die in der Spalte P den Wert OFFEN stehen haben.
Vielen Dank
Thorsten
Bild

Betrifft: AW: vba code für bestimmte Zeilen Drucken
von: fcs

Geschrieben am: 08.01.2007 14:41:28
Hallo Thorsten,
hier ein angepasster Code, ggf. muss du noch die Startzeile ändern, ab der das Makro vor dem Drucken das ausblenden der Zeilen beginnen soll.
Gruß
Franz
Private Sub CommandButton1_Click()
Dim wks As Worksheet, Zeile As Long
Set wks = ActiveSheet
wks.Rows.Hidden = False 'Alle Zeilen einblenden
'Zeilen ab Zeile 5, die nicht Eintrag "OFFEN" haben ausblenden
For Zeile = 5 To wks.Cells(wks.Rows.Count, "P").End(xlUp).Row
If wks.Cells(Zeile, "P").Value <> "OFFEN" Then
wks.Cells(Zeile, "P").EntireRow.Hidden = True
End If
Next
'Blatt drucken
ActiveSheet.PrintOut Copies:=1
wks.Rows.Hidden = False  'Alle Zeilen wieder einblenden
End Sub

Bild

Betrifft: AW: vba code für bestimmte Zeilen Drucken
von: Daniel Eisert

Geschrieben am: 08.01.2007 16:09:03
Hallo
ja, allerdings wird so die erste Zeile immer mit ausgedruckt (was aber meistens wegen der Spaltenüberschrift erwünscht ist)
Private Sub CommandButton1_Click()
Columns("P:P").AutoFilter Field:=1, Criteria1:="=offen"
ActiveSheet.PrintOut Copies:=1
selection.autofilter
End Sub

Gruß, Daniel
 Bild
Excel-Beispiele zum Thema "vba code für bestimmte Zeilen Drucken"
Befindet sich die aktive Zelle in einem bestimmten Bereich? Werte eins bestimmten Monats summieren
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen Alle Links zu einer bestimmten Arbeitsmappe löschen
Anzahl eines bestimmten Wochentages im Monat Alle Dateien ab einem bestimmten Datum listen
Daten eines bestimmten Jahres filtern Word mit bestimmtem Dokument starten
Bestimmte Anzahl von Zeichen zulassen Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen