Bild in Kopfzeile, wieso funzt es nicht...
01.11.2007 15:09:00
Rolf
Auszug aus meinem Code:
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "EXTERNER BERICHT ""LAND"""
.CenterHeader = "&D um &T"
***************.RightHeaderPicture
***************.Filename = "N:\Dokumentationen\Vorlagen\CP Logo_Signete_FaxVorlagen\CP-Signete_ab_04.2007\CP Pumpen farbig.tif"
.LeftFooter = "(c) Berichtmanager"
.CenterFooter = "Seite &P von &N Seite(n)"
.RightFooter = "Diese Informationen dürfen Dritten nicht zugänglich gemacht werden."
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Um die Zeilem mit den *** vordran geht es.
Denn da erscheint kein Bild, sondern nur der Text, den ich vorher mal da drin (rechts oben) hatte.
Wieso funktioniert es nicht? Habe es auch mal mit einem jpg und andern Bildern versucht, selbes Ergebnis.
Danke für die Hinweise!
Rolf