Herbers Excel-Forum - das Archiv

Zeile 8 immer mitdrucken - da Überschrift

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

Betrifft: Zeile 8 immer mitdrucken - da Überschrift
von: Thorsten

Geschrieben am: 08.01.2007 18:09:12
Hallo,
kann man in folgenden Befehl noch einfügen, dass die Zeile 8 immer mitgedrukct wird ? Ab Zeile 9 sind dann alle Daten drin. Besteht eigentlich auch die Möglichkeit nur die Spalten ABCFGund Z zu drucken?
Private Sub CommandButton1_Click()
Columns("Z:Z").AutoFilter Field:=1, Criteria1:="=offen"
ActiveSheet.PrintOut Copies:=1
Selection.AutoFilter
End Sub

Vielen Dank und viele Grüße
Thorsten
Bild

Betrifft: AW: Zeile 8 immer mitdrucken - da Überschrift
von: Daniel Eisert

Geschrieben am: 08.01.2007 18:32:03
Hallo
ja, geht alles
- Zeile 8 mitdrucken:
Columns("Z:Z").AutoFilter Field:=1, Criteria1:="=offen", Operator:=xlOr, Criteria2:="=Überschrift"
Bei "Überschrift" natürlich deinen Text reinsetzen
- Spalten nicht mitdrucken:
Columns("h:y").hidden = true
(nach dem drucken mit "= false" natürlich wieder einblenden
Gruß, Daniel
 Bild