Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

PageBreaks per Makro festlegen

PageBreaks per Makro festlegen
22.03.2006 15:58:15
Sebastian
Hallo,
bin wieder mal an die Grenzen meines VBA Wissens gestossen. Kann mir jemand sagen, wie man die Page Breaks in einem Makro festlegen. Habe bis jetzt folgendes Makro:
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$138"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Jetzt will ich noch alle Page Breaks löschen und die Page Breaks so definieren, dass mein Druckbereich genau auf einer Seite ausgedruckt wird.
Hoffe es kannmir jemand weiterhelfen.
Grüße Sebastian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Druckbereich 1 Seite hoch und breit
22.03.2006 16:23:00
Beate
Hallo Sebastian,
Sub Makro1()
    ActiveSheet.ResetAllPageBreaks
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$AK$138"
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Anmerkung; Sind aber viele Spalten und Zeilen für 1 Blatt!
Gruß,
Beate
Anzeige
AW: Druckbereich 1 Seite hoch und breit
22.03.2006 16:29:26
Sebastian
Hi Beate danke für das Makro. Klappt einwandfrei genau so wie ich wollte. Mit den den Zeilen und Spalten hast du recht - geht aber leider nicht anders. Schönen Tag noch.
Gruß Sebastian

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige