Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

in Zeile 1-3 Überschriften--Druck auf allen Seiten

in Zeile 1-3 Überschriften--Druck auf allen Seiten
20.07.2005 12:48:32
Peter
Hallo liebe Helfer,
mit nachstehendem Code drucke ich diese Liste aus, es klappt auch einwandfrei. Aber in den Zeilen 1 bis 3 stehen Spaltenüberschriften usw; diese werden nur auf der ersten Seite mit ausgedruckt.
Wie kann ich diese automatisch auf jeder Seite mit ausdrucken lassen?

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
If ComboBox1.Value = 2003 Then
Worksheets("2003").Visible = True
Worksheets("2003").Activate
With Worksheets("2003").PageSetup
.Orientation = xlLandscape
End With
With Worksheets("2003").PageSetup
If Range("A963").Value <> "" Then
.PrintArea = "A1:H999"
ElseIf Range("A926").Value <> "" Then
.PrintArea = "A1:H962"
ElseIf Range("A889").Value <> "" Then
.PrintArea = "A1:925"
ElseIf Range("A852").Value <> "" Then
.PrintArea = "A1:H888"
ElseIf Range("A815").Value <> "" Then
.PrintArea = "A1:H851"
ElseIf Range("A778").Value <> "" Then
.PrintArea = "A1:H814"
ElseIf Range("A741").Value <> "" Then
.PrintArea = "A1:H777"
ElseIf Range("A704").Value <> "" Then
.PrintArea = "A1:H740"
ElseIf Range("A667").Value <> "" Then
.PrintArea = "A1:H703"
ElseIf Range("A630").Value <> "" Then
.PrintArea = "A1:H666"
ElseIf Range("A593").Value <> "" Then
.PrintArea = "A1:H629"
ElseIf Range("A556").Value <> "" Then
.PrintArea = "A1:H592"
ElseIf Range("A519").Value <> "" Then
.PrintArea = "A1:H555"
ElseIf Range("A482").Value <> "" Then
.PrintArea = "A1:H518"
ElseIf Range("A445").Value <> "" Then
.PrintArea = "A1:H481"
ElseIf Range("A408").Value <> "" Then
.PrintArea = "A1:H444"
ElseIf Range("A371").Value <> "" Then
.PrintArea = "A1:H407"
ElseIf Range("A334").Value <> "" Then
.PrintArea = "A1:H370"
ElseIf Range("A297").Value <> "" Then
.PrintArea = "A1:H333"
ElseIf Range("A260").Value <> "" Then
.PrintArea = "A1:H296"
ElseIf Range("A223").Value <> "" Then
.PrintArea = "A1:H259"
ElseIf Range("A186").Value <> "" Then
.PrintArea = "A1:H222"
ElseIf Range("A149").Value <> "" Then
.PrintArea = "A1:H185"
ElseIf Range("A112").Value <> "" Then
.PrintArea = "A1:H148"
ElseIf Range("A75").Value <> "" Then
.PrintArea = "A1:H111"
ElseIf Range("A37").Value <> "" Then
.PrintArea = "A1:H74"
ElseIf Range("A4").Value <> "" Then
.PrintArea = "A1:H36"
End If
End With
Worksheets("2003").PrintOut Copies:=1
Worksheets("2003").Visible = xlVeryHidden
Sheets("Bearbeitung").Activate
End If
End Sub

Vielen Dank für Hilfe
Peter S.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Zeile 1-3 Überschriften--Druck auf allen Seiten
20.07.2005 12:50:53
Hajo_Zi
Hallo Peter,
Datei, Seite einrichten, Tabelle, Wiederholungszeilen.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Danke Hajo---habe es in VBA integriert
20.07.2005 13:59:01
Peter
Hallo Hajo,
vielen Dank, Du hast den entscheidenden Gedankenanstoß gebracht; ich habe folgende Zeile in den VBA-Code integriert:
.PrintTitleRows = "$1:$3"
Klappt bestens und is einfacher, da es sehr viele Tabellen gibt die angesprochen werden können.
Gruß
Peter S.
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige