Differentfirstpage?
11.01.2018 12:05:37
Manuel
Hier nochmals mein Code.
Ich bringe es leider nicht auf die Reihe die Kopfzeile/Fusszeile der 1. Seite zu befüllen ohne "1.Seite anders" funktionierts.
Sub Tagesbericht_Format4() 'kopf und fusszeile
Dim TB1, TB2
Set TB1 = Sheets("Übersicht").PageSetup
Set TB2 = ThisWorkbook.Sheets(5).PageSetup
With TB2
.differentfirstpageheaderfooter = True
.FirstPage.LeftHeader = _
"&""Arial,Fett""&4" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&8 Veronica" & Chr(10) & _
_
_
"Strasse 10/13" & Chr(10) & "6020 Innsbruck"
.FirstPage.CenterHeader = "&""Arial,Fett""&20TAGESBERICHT" & Chr(10) & "&11vom"
.FirstPage.LeftFooter = TB1.LeftFooter
.FirstPage.CenterFooter = TB1.CenterFooter
.FirstPage.RightFooter = TB1.RightFooter
.LeftFooter = TB1.LeftFooter
.CenterFooter = TB1.CenterFooter
.RightFooter = TB1.RightFooter
End With
With ActiveSheet.PageSetup
.FirstPage.RightHeaderPicture.Filename = _
"H:\Manuel\Bilder\Logo.jpg"
.FirstPage.RightHeader = "&G"
With ActiveSheet.PageSetup.FirstPage.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
With ActiveSheet.PageSetup
.HeaderPicture.Filename = _
"H:\Manuel\Bilder\Logo.jpg"
.RightHeader = "&G"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
With ActiveSheet.PageSetup
.ScaleWithDocHeaderFooter = False
End With
End With
End Sub
Hat jemand eine Idee?Bitte um dringende Hilfe!
Danke euch im voraus!!!