Herbers Excel-Forum - das Archiv
vba code für bestimmte Zeilen Drucken
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
- vba code für bestimmte Zeilen Drucken von Thorsten vom 08.01.2007 13:48:44
- AW: vba code für bestimmte Zeilen Drucken - von fcs am 08.01.2007 14:41:28
- AW: vba code für bestimmte Zeilen Drucken - von Daniel Eisert am 08.01.2007 16:09:03
 |
Betrifft: vba code für bestimmte Zeilen Drucken
von: Thorsten
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
 |
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
|
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 SubGruß, Daniel
| |