Hallo zusammen,
das folgende Makro druckt mir bestimmte Blätter meiner
Arbeitsmappe ohne weitere Abfrage:
Sub Drucken_alles()
Dim N As Integer
Dim Blaetter As Variant
Dim Zellen As Variant
Blaetter = Array(„Blatt1“, „Blatt2“, „Blatt3“, …, „Blatt16“)
Zellen = Array(„E5“, „C11“, „C12“, …, „C27“)
For N = 0 To UBound(Blaetter)
If Sheets(„Blatt1“).Range(Zellen(N)) „“ Then
Worksheets(Blaetter(N)).PrintOut
End If
Next N
End Sub
Gibt es eine Möglichkeit, eine Druckvorschau dazwischen zu basteln,
um dann zu sagen: Drucken oder Abbrechen? Oder führt das hier zu weit?
Würde mich freuen, wenn jemand helfen könnte.
Gruß
Rolf
Hallo Rolf,
versuch es mal so:
Sub Drucken\_alles()
Dim N As Integer
Dim Blaetter As Variant
Dim Zellen As Variant
Blaetter = Array("Blatt1", "Blatt2", "Blatt3")
Zellen = Array("E5", "C11", "C12")
For N = 0 To UBound(Blaetter)
If Sheets("Blatt1").Range(Zellen(N)) "" Then
Worksheets(Blaetter(N)).PrintPreview
End If
Next N
End Sub
So wird die Druckvorschau aufgerufen, ohne daß gedruckt wird. In der Druckvorschau selber gibt es einen Button „drucken“, entweder den anklicken oder die Vorschau wieder schließen.
Du kannst zwar nachdem Du die Vorschau aufgerufen hast, auch noch ein Formular aufrufen, welches dann einen Button zum Druck und einen zweiten Button zum Abbrechen enthält, allerdings wird dieses Formular nicht angezeigt, solange die Vorschau geöffnet ist. In diesem Fall müßtest Du zunächst die Vorschau wieder schließen, und dann in dem Formular entweder auf drucken oder abbrechen klicken.
Hoffe, daß es weiterhilft.
Grüße,
Kerstin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Kerstin,
vielen Dank, das ist fast das, was ich gesucht habe, aber bei
dieser Version müßte ich bei 13 zu druckenden Arbeitsblättern
nach jeder Vorschauseite wieder den Druckbefehl geben. Das wollte
ich ja vermeiden.
Ich hatte mir vorgestellt, daß er alle über die Routine ermittelten
Seiten untereinander in die Voransicht bringt. Aber wo ich das
jetzt so sehe, ist das logisch: er kann ja wohl nicht mehrere
Arbeitsblätter in EINE Voransicht bringen.
Trotzdem danke, daß Du Dir nen Kopf gemacht hast.
Gruß und ne schöne Woche
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]