Office: Nur befüllte Seiten drucken

@ Hallo Karin,

Wetten doch?

 

Der 1. Zellbereich ist falsch - ändere diesen Teil wie folgt:

Range("C2:C5,L2:L5,U2:U5,AD2:AD5,AM2:AM5,AV2:AV5,BN2:BN5,BW2:BW5,CF2:CF5")

Du kannst ja sicherheitshalber alle Zellbereiche, in die etwas eingetragen wird (bzw. die leer sein müssen damit nicht gedruckt wird), im Code noch einmal überprüfen.

Beachte auch, dass der Code davon ausgeht, dass es keine leeren Seiten ZWISCHENDURCH geben darf.

---

 

@Klaus-Dieter,

Jain, trotzdem muss irgendwie sichergestellt werden, dass eben nur die Anzahl an gefüllten Formularen gedruckt wird. Und da spielt es keine Rolle, ob die Daten per Formel in die Formulare übernommen werden oder ob sie direkt von Hand eingetragen werden - nur der Weg zur Ermittlung der Anzahl unterscheidet sich.

---

 

Hallo Karin,

ich gehe von einem Formular aus, das aus einer Datenliste befüllt wird, solange es gültige Daten gibt. Mit Formeln würde ich so etwas niemals lösen, sondern mit einem Makro.

 

Das hatte ich so nicht verstanden.

---

 

Hallo Karin,

hatte ich mir dann schon gedacht.

 

Hallo Klaus, hast du da eine Beispieldatei wie so etwas aussehen könnte bzw. funktioniert?
Weil ich merke das das Excel immer etwas langsamer wird (logisch mit dieser Menge).

 

Hast du meine Codeänderung denn schon mal getestet?

---

 

Ja, diese funktioniert auch soweit danke.
Muss es nur noch irgendwie hinbekommen, dass die ersten 3 Register immer gedruckt werden. Und wenn die Register KG 1-9 anfangen, dass die dann gedruckt werden je nachdem ob diese befüllt worden sind. Wie gesagt, es fehlt mir etwas schwer da ich noch nie mit Markos so zu tun hatte.

 

Mit folgendem Code ist das realisierbar:

Code:

Sub Drucken()
    Dim rngBereich As Range
    Dim rngBlatt As Range
    Dim intZaehler As Integer
    Dim wksTab As Worksheet
    Set rngBereich = Range("C2:C5,L2:L5,U2:U5,AD2:AD5,AM2:AM5,AV2:AV5,BN2:BN5,BW2:BW5,CF2:CF5")
    For Each wksTab In Worksheets
        If wksTab.Name = "Deckblatt" Or wksTab.Name = "Inhaltsverzeichnis" Or wksTab.Name = "Zusammenstellung - Gesamt" Then
            wksTab.PrintPreview
        ElseIf Right(wksTab.Name, 2) = "AN" Then
            For Each rngBlatt In rngBereich.Areas
                If Application.CountIf(wksTab.Range(rngBlatt.Address), "<>") = 4 Then intZaehler = intZaehler + 1
            Next rngBlatt
            If intZaehler > 0 Then
                wksTab.PageSetup.PrintArea = wksTab.Range(wksTab.Cells(1, 1), wksTab.Cells(81, intZaehler * 9)).Address
                wksTab.PrintPreview
                Worksheets(wksTab.Index - 1).PrintPreview
            End If
        End If
        intZaehler = 0
    Next wksTab
End Sub

Absolute Bedingung dabei ist, dass du deine Mappe wie folgt aufbaust:

Blatt 1: Deckblatt
Blatt 2: Inhaltsverzeichnis
Blatt 3: Zusammenstellung - Gesamt

und anschließend immer zuerst Blatt "Zusammenstellung - KGx" und danach "Zusammenstellung - KGx - AN" - mit anderen Worten also immer die beiden zusammengehörigen Blätter unmittelbar hintereinander, wobei das mit der Endung AN immer das nachfolgende sein muss. Der Code geht nämlich (nach den ersten 3 Blättern) immer zuerst die Blätter mit "AN" durch, stellt fest wie viele Seiten davon gedruckt werden müssen bzw. ob überhaupt gedruckt werden muss, druckt diese dann und anschließend das unmittelbar davor angeordnete Blatt (da beide ja zusammengehören). Falls keine Seiten ausgefüllt sind werden beide Blätter selbstverständlich nicht gedruckt.

---

 

Ok ok. hab das jetzt probiert und es funktioniert so wie ich es mir vorstelle. Muss noch die Bedingung der Zellen ändern, da nicht zb. C2:C5 relevant ist sondern C7:C12.

Und wenn ich fertig bin, muss ich immer auf Makro ausführen klicken oder? Normal über den Button drucken wird das nicht funktionieren?

 

Du kannst im Deckblatt z.B. eine Schaltfläche aus den Formular-Steuerelementen erstellen. Anschließend Rechtsklick auf diese Schaltfläche -> Makro zuweisen -> Ok.

---

 

Du bist spitze. Vielen Dank - ich probiere das dann mal aus - sieht aber so aus als würd es genau so funktionieren, wie ich mir das vorstelle. Sonst melde ich mich nochmals. Danke danke nochmals ! :)

 

Hallo nochmals, meinst du du kannst das Makro auch so umschreiben auf die "offizielle Datei? Selbes System nur mit mehreren Register, oder weißt du wie ich es selbst ändern kann?

 

soo... passt alles. Eine Sache wär noch, ich habe oft eine Leer-Seite dabei (bei den KG-AN) Also wenn eine Seite ausgefüllt wurde - bekomme ich immer 2 Seiten. Und das zieht sich dann durch. Kann man das noch lösen?