Druckbereich mit vba definieren

Hallo,
ich habe hier ein Problem mit dem Druckbereich, bei dem mir Google nicht weiterhelfen kann.
Ich habe eine Vorlage, in die bei Eingabe einer Nummer einen Haufen Daten aus einer Datenbank eingegeben werden.
Bevor die Daten sich einfüllen sind die Zeilen 1-49 auf Seite 1, und die Zeilen 50-70 auf Seite 2. Ich habe dank Herber einen vba Code, der die Zellen automatisch an die Textgröße anpasst.
Da fängt jetzt aber mein Problem an. Dadurch das die Zellen größer werden, passt in vielen Fällen die erste Seite nicht mehr auf ein Blatt, und ein Teil wandert auf die zweite Seite. Damit habe ich zwei Probleme:
1. Excel erschafft eine dritte Seite, die aber leer ist. Der Text wird die zwei Seiten nie überschreiten, daher sollen immer nur die ersten beiden Seiten gedruckt werden.
2. Die Zeilen 51 und 52 sollen auf Seite 2 immer oben stehen! Nicht in der Kopfzeile, die ist bereits belegt, und es handelt sich um eingerahmten Text, glaube also es wäre eh nicht möglich.
Also, ist es möglich mittels vba immer nur die ersten beiden Seiten zu drucken, und den überschüssigen Text von Seite 1 unter die Zeilen 51 52 auf die zweite Seite zu packen?
Ich bin dankbar für jeden Tipp und Vorschlag.
Gruß Lara

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Druckbereich_festlegen() Dim iColumn As Integer, iRowL As Integer, l As Integer iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row iColumn = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column ActiveSheet.PageSetup.PrintArea = Range(Cells(1, iColumn), Cells(iRowL, iColumn)) End Sub

Hallo Frank,
ich kann die Datei leider nicht anhängen. Normalerweise hänge ich einfach ein vereinfachtes Problem an, da ich die echten Dateien nicht rausgeben darf, aber hier lässt sich glaube ich nichts vereinfachen.
Es ist eine Excel Datei, in die mittels hunderter Verweise Daten aus einer Datenbank in die Zellen A1 bis J70 eingegeben werden. Diese Zellen vergrößern sich mit dem Text automatisch zum Beispiel von einer auf vier Zeilen. Die Anzahl der beschriebenen Zellen bleibt dabei immer genau gleich (A1-J70).
Ich habe versucht, zumindest schonmal zu verhindern, dass Excel immer eine dritte Seite erstellt wenn die Zeilen größer werden mit den Code:

Sub Druckbereich()
With ActiveSheet.PageSetup.PrintArea = "$A$1:$J$70"
End With
End Sub

Ich habe den "Druckbereich" auf einen Button gelegt zum Testen, aber in der Druckvorschau wird nach wie vor die dritte Seite angezeigt.
Gruß Lara

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Druckbereich mit vba definieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread