Hallo Udo...wenn schon denn schon
Peter
Hi Udo,
nach dem Rüffel von gestern hab ich mich dann etwas tiefer damit beschäftigt; damit dein Hinweis auch funzt und den gewünschten Erfolg bringt nunmehr mein Vorschlag für einen vollständigen Code; die Variablen müssen natürlich individuell angepasst werden:
Sub Festlegen()
Application.ScreenUpdating = False
ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
"C:\Obedience\Bilder\HSV-Logo.bmp"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 45
.Width = 39.75
End With
ActiveSheet.PageSetup.LeftFooterPicture.Filename = _
"C:\Obedience\Bilder\pJs.bmp"
With ActiveSheet.PageSetup.LeftFooterPicture
.Height = 31.5
.Width = 72.75
End With
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$50"
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Fett""&14Starterliste Obedience"
.CenterHeader = "&""Arial,Fett""&14" & Sheets("Bearbeitung").Range("B70").Value
.RightHeader = "&G"
.LeftFooter = "&G &""Bauhaus 93,Standard""&11easy- obedience"
.CenterFooter = "Lizenz: " & Sheets("Bearbeitung").Range("B60").Value
.RightFooter = "Seite: &P von &N"
.LeftMargin = Application.InchesToPoints(0.72)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.22)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 84
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.ScreenUpdating = True
End Sub
Das mit dem 'VBA nur mit Makrorekorder' entspricht nicht ganz den Tatsachen; nachdem ich mich nunmehr auch schon 1 1/2 Jahre mit VBA-Einsatz rumprügele, habe sogar ich einen annehmbaren Standard erreicht. Allerdings möchte ich mich nicht mit dem Prädikat 'VBA gut' schmücken.
Hier vielleicht ein Vorschlag an Hans: Die Qualifizierungs-Standards um einen Punkt ergänzen, der dann so etwa wäre: 'VBA Fortgeschrittener'
Danke Dir
Peter S.