Herbers Excel-Forum - das Archiv
unterschiedliche Kopf- und Fusszeile
- unterschiedliche Kopf- und Fusszeile von Anne vom 19.02.2005 12:05:19
- AW: unterschiedliche Kopf- und Fusszeile - von th.heinrich am 19.02.2005 13:53:04
- AW: unterschiedliche Kopfdenken - von Katrin am 19.02.2005 15:11:35
- AW: unterschiedliche Kopfdenken - von Katrin am 19.02.2005 15:11:35
- AW: unterschiedliche Kopf- und Fusszeile - von K.Rola am 19.02.2005 14:12:39
- AW: unterschiedliche Kopf- und Fusszeile - von Anne am 19.02.2005 16:26:07
- AW: unterschiedliche Kopf- und Fusszeile - von Anne am 19.02.2005 16:26:07
 |
Betrifft: unterschiedliche Kopf- und Fusszeile
von: Anne
hallo,
habe in einer Tabelle ein Blatt, welches u.U. mehrere Seiten hat. Wie kann ich steuern, dass beim Druck dieses Tabellenblattet bei der ersten Seite nur eine Kopfzeile und bei den restlichen Seiten nur die Fusszeile erscheint?
 |
Betrifft: AW: unterschiedliche Kopf- und Fusszeile
von: th.heinrich
Geschrieben am: 19.02.2005 13:53:04
hallo Anne,
das scheint etwas kompliziert zu sein, folgendes zur Kopfzeile
https://www.herber.de/index.html?https://www.herber.de/mailing/116900h.htm
gruss thomas
|
Betrifft: AW: unterschiedliche Kopfdenken
von: Katrin
Geschrieben am: 19.02.2005 15:11:35
Ich liebe dich wemm du nicht da bist schatz
|
Betrifft: AW: unterschiedliche Kopf- und Fusszeile
von: K.Rola
Geschrieben am: 19.02.2005 14:12:39
Hallo,
so z.B.:
Option Explicit
Sub Drucken()
Dim ws As Worksheet, S As Integer, i As Integer
Set ws = Sheets("Tabelle1")
S = ExecuteExcel4Macro("Get.Document(50)")
With ws.PageSetup
.LeftHeader = ""
.CenterHeader = "Rabdudai"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
For i = 1 To S
If i > 1 Then
ws.PageSetup.CenterHeader = ""
ws.PageSetup.CenterFooter = "Schnuppeldiduppeldi"
End If
ws.PrintOut from:=i, To:=i
Next
End SubGruß K.Rola
|
Betrifft: AW: unterschiedliche Kopf- und Fusszeile
von: Anne
Geschrieben am: 19.02.2005 16:26:07
Vielen Dank für eure Hilfe!
Ich habe sogar noch verschiedene If-Funktionen eingebaut und es hat trotzdem prima geklappt!!
Gruß Anne
| |