Hallo,
ich steuer über VBA in Access eine Exceltabelle an. Nun möchte ich gerne den Druckbereich definieren und scheitere daran.
Folgendes soll passieren bzw. passiert:
1. Das Sheet soll auf 2 Seiten gedruckt werden
2. Die Wiederholungszeilen (hier A1 bis A6) funktioniert mit diesem Code
3. Auf Seite 1 soll von A7 bis AD104 gedruckt werden, was aber nicht geschieht. Er druckt A1 bis ca. AD120
4 Seite 2 soll dann von A105 bis AD167 drucken, was auch nicht passiert. Im Moment druckt er ab da wo er auf Seite 2 aufhört.
Kann mir bitte jemand helfen, vielleicht habe ich irgendwo auch nur einen Zahlendreher drin....
Anbei der Code und vorab vielen Dank für jeden Tipp!
ActiveSheet.PageSetup.PrintArea = _
Range("A7:AD104", "A105:AD167").Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
.Orientation = xlLandscape
.TopMargin = xlApp.InchesToPoints(0)
.BottomMargin = xlApp.InchesToPoints(0)
.LeftMargin = xlApp.InchesToPoints(0)
.RightMargin = xlApp.InchesToPoints(0)
.HeaderMargin = xlApp.CentimetersToPoints(0)
.FooterMargin = xlApp.InchesToPoints(0)
.Zoom = False
.CenterHorizontally = True
.FitToPagesWide = 2
.FitToPagesTall = 2
End With
Hallo,
lass die Range für die erste Seite ...
Range("A7:AD104").Address
danach die Angabe der Kopfzeilen und die Formatierung wie sie jetzt besteht.
Funktioniert dann der Ausdruck der ersten Seite?
Wenn JA, dann füge nach dem Print-Befehl du nochmal das Gleiche ein nur halt mit der Range für die nächste Seite und starteset den Druck nochmal.
HTH
Hallo,
erstmal Danke für deinen Tipp. Hatte mir gestern meinen Text 3 mal durchgelesen und jetzt stelle ich fest, dass ich doch etwas wichtiges vergessen habe. Der Druck soll auf Doppelseitigen Druck passieren. Bei erst eine Seite Drucken und dann die andere wäre ich wahrscheinlich mit meinem Code schon sehr nah an der Lösung.
Hallo,
somit denke ich, du suchst nach einer Möglichkeit, einen manuellen Seitenumbruch nach einer bestimmten Anzahl von Zeilen einzufügen.
Deine Druck-Range darfst du dann nicht teilen sondern in Einem lassen .... Range("A7:AD167").Address ... hoffe das stimmt so :-\
Für das Setzen des Seitenumbruchs siehe:
http://www.office-loesung.de/ftopic87368_0_0_asc.php (http://www.office-loesung.de/ftopic87368_0_0_asc.php)
HTH
Hallo,
das ist eine völlig neue Möglichkeit und genial....Danke für den Tipp.
Nur...muss ich eine Reihenfolge beachten wie ich den Code setze?
Es soll ja zu jeder Seite ein Titel (a1:a6) gedruckt werden und
Seitenränder 0, Fit to Page etc., muss ich das dann für jede Seite
neu setzen? Zur Not probiere ich es einfach aus.
Also nochmal vielen Dank Database
Hallo Database,
die Idee war echt gut, aber irgendwie funktioniert es nicht.
Habe ActiveSheet.Rows(104).PageBreak = xlPageBreakManual
einmal vor with.... und dann mal nach end with gesetzt, aber er macht bei
Zeile 104 keinen break.... ???