HERBERS Excel-Forum - die Beispiele

Thema: Kopfzeile in Buchform drucken

Home

Gruppe

Druck

Problem

Bei Büchern sind die Kopfzeilen in der Regel jeweils links und rechts angeordnet. Wie kann ich dieses Layout bei Excel übernehmen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub MyOldHeader()
   Dim iCount As Integer, iCounter As Integer
   Dim bln As Boolean
   bln = True
   iCount = ExecuteExcel4Macro("get.document(50)")
   For iCounter = 1 To iCount
      With ActiveSheet.PageSetup
         If bln = True Then
            .LeftHeader = "Header"
            .RightHeader = ""
          Else
            .LeftHeader = ""
            .RightHeader = "Header"
          End If
      End With
      ActiveWindow.SelectedSheets.PrintOut _
         From:=iCounter, To:=iCounter, Copies:=1
      bln = Not bln
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile

PDF Drucken VBA Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen Bilder in Registerblatt drucken
PDF eventuell Ausdruck sperren? Druckprobleme....
Tabellenblätter Ausdruck gruppieren Drucken mit VBA
Bestimmte Zeilen/ Spalten nicht mitdrucken Diagramme DIN A3 drucken
Automatischen Andruck auf Standartdrucker erzeugen Druckerauswahl
Blätter autom. ein-/ausblenden + drucken Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung Arbeitsmappendruck
Abfrage ob Druckbereich zu groß für Seitenbreite Druck PDF-Datei
Fehler 1004 beim Druck einer PDF - mit Screenshot Druckeinstellungen für mehrere Drucke übernehmen
Grafik drucken Mit Change() o. Calculate() Filtern und Drucken
Druckparameter an neue Datei Button zum Ausdrucken
Druckparameter an Datei mitgeben Makro für ereignisabh. Druck verschiedener Seiten
Excel Seriendruck im PDF-Format Per VBA drucken - Adobe PDF on ne0x
Drucken, nur wenn Bedingung erfüllt ist! variablen Druckbereich definieren
Mit Makro Virtuelle Drucker (PDF) ansteuern Standarddrucker festsetzen??
Wann zuletzt ausgedruckt Excel druckt keine Bilder!
sql Ausdruck like Excel Druckmakro - VBA Experten gesucht
CommandButton nicht mit ausdrucken Druckvorschau
Druckerdialog mehrere Sheets farbig ausdrucken, weshalb ...
Laufzeitfehler Nr. 9 bei Druckerauswahl Tabelle drucken
UserForm als PDF o. Fax ausdrucken Druckbefehl hinter CommandButton festlegen?
Druckmakro in Excel @ Josef Ehrensberger einzelnen Reiter von Multipages ausdrucken
Seitenumbrüche unter Druck-Command Button ... Drucken mit wenn bedingung