Kopf- und Fusszeile abgetrennt durch eine Linie
23.07.2014 19:22:46
Tobias
Ich bin daran eine Ecxelvorlage zu entwerfen in welcher die Kopf und Fusszeile komplett mit VBA ausgefüllt wird. Die Vorlage sollte für A3 und A4 hoch und quer gehen. Die Kopf- und Fusszeile sollen vom Dokumententext durch eine Linie getrennt werden. VBA ist deshalb nötig weil wir ein paar Metadaten direkt von unserem IMS (Intregierten Management System) in die Excel Vorlage einlesen möchten.
Untenstehend findest du ein Bild von der Momentanen Excelvorlage:
Die Abtrennlinie ist momentan mit Hilfe eines eingebunden Linienbild gelöst. Diese Variante löst folgende Probleme aus:
- Bild muss seperat bei uns im Laufwerk gespeichert werden.
- Die Linie endet nicht am Ende der Kopf- und Fusszeile sondern wird bis 5mm an den Blattrand gedruckt.
- Wenn im Excel die Saklierung verändert wird deckt das Linienbild nicht mehr die ganze Seite ab.
Ich suche nach einer Lösung mit welcher die oben geschilderten Probleme eliminiert sind, sich der Abtrennstrich automtisch der Seitenbreit anpasst und die Vorlage sollte ohne eine Hilfsdatei (Bildstrich) auskommen.
Untenstehend ist der Momentane verwendete VBA Code.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next
ActiveSheet.PageSetup.LeftHeader = "&""Arial""&12" & ActiveWorkbook. _
CustomDocumentProperties("IMS docname").Value
ActiveSheet.PageSetup.RightHeader = "&""arial,bold""&12Firmenname"
ActiveSheet.PageSetup.LeftFooter = "&L&06Freigabedatum: " & ActiveWorkbook. _
CustomDocumentProperties("IMS validfrom").Value & vbCr & "&L&06Druckdatum : " & "&D"
ActiveSheet.PageSetup.RightFooter = "&R&06Version: n.a." _
& vbCr & "&R&06Status: " & ActiveWorkbook.CustomDocumentProperties("IMS status").Value
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.CenterFooter = vbCr & "&G" & vbCr & "&06&P/&N" & vbCr & "&06Vor der _
_
Anwendung des Dokuments ist sicherzustellen, dass die gültige Version vorliegt"
.CenterFooterPicture.Filename = "G:\04 - Prozessbeschreibungen\01 Managementsystem\10 _
IMS Dokumente\01 Aktuell\Linie_für_Ecxelvorlage_IMS.JPG"
End With
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.CenterHeader = vbCr & "&G"
.CenterHeaderPicture.Filename = "G:\04 - Prozessbeschreibungen\01 Managementsystem\10 _
IMS Dokumente\01 Aktuell\Linie_für_Ecxelvorlage_IMS.JPG"
End With
End Sub