HERBERS Excel-Forum - die Beispiele

Thema: Seitenumbruch ermitteln und Übertrag erstellen

Home

Gruppe

Druck

Problem

Wie kann ich in einer längeren Liste den Seitenumbruch ermitteln und in der Zelle rechts neben der Wertezelle in der letzten Zeile einen Übertrag eintragen lassen?

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

Sub Seitenumbruch()
   Dim varPB As Variant
   Dim iPage As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   iPage = 1
   Do While IsError(varPB) = False
      varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
      If IsError(varPB) Then
         Exit Sub
      Else
         Cells(varPB - 1, 2) = Application.Sum(Range(Cells(1, 1), _
            Cells(varPB - 1, 1)))
      End If
      iPage = iPage + 1
      Cells(iRowL, 2) = Application.Sum(Range(Cells(1, 1), Cells(iRowL, 1)))
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Umbruch

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? Zeilenumbruch
Druckprobleme.... Zeilenumbruch im Kommentar
Tabellenblätter Ausdruck gruppieren Drucken mit VBA
Umbruch? Bestimmte Zeilen/ Spalten nicht mitdrucken
Gescheiter Umbruch 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 Zeilenumbruch im VBA Code
Druckeinstellungen für mehrere Drucke übernehmen Grafik drucken
UserForm Caption mit Textumbruch?! 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
Automatischer Seitenumbruch 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