Hallo,
ich hab momentan ein paar Fragen bezüglich eines Druckbefehls, bei denen ihr mir sicherlich wieder helfen könnt.
Ich möchte einen Teil meiner Arbeitsmappe über eine Schaltfläche drucken lassen.
Das kann ich ja durch folgenden Befehl:
ThisWorkbook.PrintOut 4, 8
Was entspricht nun diesen Zahlen? Versteht sich darunter Tabelle4-Tabelle8 (egal wie viele Seiten diese Tabellen enthalten) oder Seite4-Seite8 (beginnend bei Tabelle1, wenn diese 4 Seiten enthält, dann beginnt der Druck hier)?
Mit folgendem Code lässt sich die letzte Seite der Mappe ermitteln (aus Recherche):
Dim Obergrenze As Integer
Obergrenze = ExecuteExcel4Macro("Get.Document(50)")
Den kann ich auch in den Printout-Befehl einbinden, sodass immer bis zur letzten Seite in der Mappe gedruckt wird.
Bei Printout habe ich versucht, eine Msgbox einzubauen, um die Gesamtanzahl der Druckseiten angezeigt zu bekommen. Bisher habe ich es aber nur so hinbekommen, dass die Meldung lautet "Seite 4 bis 8", nich aber "Anzahl der Seiten: 6". (Oder je nachdem, wie viele Seiten die Tabellen enthalten). Wie kann ich das umsetzen?
Und zu guter Letzt, wie kann ich den Druckdialog ausblenden, der immer kurz vor dem drucken eingeblendet wird und gleich wieder weg ist?
Freue mich über jede Antwort!
Gruß
Kira