VBA Druckbereichsproblem
13.03.2014 12:53:26
Philipp
ich möchte mithilfe eines Makros den Druck einzelner Zeilen einer Tabelle realisieren. Ich habe mir jetzt schon eine Schleife geschrieben die herausfiltern welche Zeilen gedruckt werden sollen und diese informationen in eine Stringvariable schreibt. Die stringvariable sieht dann am Ende zum Beispiel so aus:
bereich = "C9:S9,C10:S10,C11:S11,C13:S13,C15:S15"
Das ganze funktioniert ganz gut. Um dann den Druckbereich festzulegen nutze ich dann:
Sheets("*****").PageSetup.PrintArea = bereich
danach wird per
Application.Dialogs(xlDialogPrint).Show
der Druckdialog aufgerufen.
Jetzt zu meinem eigentlichen Problem:
Es tauchen zwar im Druckfenster genau die richtigen Zeilen auf, jedoch sind immer nur zusammenhängende Zeilen auf einer Seite, sobald eine freizeile kommt wird auf die nächste Seite gedruckt.
Im Beispiel hätte man dann zum Beispiel Zeilen 9,10,12 auf Seite 1
Zeile 13 auf seite 2
und Zeile 15 auf Seite 3.
Nun meine Frage: Wie bekomme ich das weg? Ich möchte logischerweise, dass die Zeilen alle auf eine Seite gedruckt werden.
Vielen Dank schonmal für eure Mühe, ich würde mich über Hilfe sehr freuen.
Mfg Philipp