Herbers Excel-Forum - das Archiv
zoom auf Druckbereichsbreite anpassen
- zoom auf Druckbereichsbreite anpassen von Ulf vom 13.09.2019 14:04:25
- AW: zoom auf Druckbereichsbreite anpassen - von Hajo_Zi am 13.09.2019 14:05:49
- AW: zoom auf Druckbereichsbreite anpassen - von Ulf am 13.09.2019 14:11:24
- AW: zoom auf Druckbereichsbreite anpassen - von Hajo_Zi am 13.09.2019 14:15:31
- AW: zoom auf Druckbereichsbreite anpassen - von Ulf am 13.09.2019 16:19:44
- AW: zoom auf Druckbereichsbreite anpassen - von Ulf am 13.09.2019 14:35:50
- AW: zoom auf Druckbereichsbreite anpassen - von Ulf am 13.09.2019 16:40:17
Betrifft: zoom auf Druckbereichsbreite anpassen
von: Ulf
Hallo Excel-Freunde,
in einem Excelblatt kommt es vor, dass mal die Berite beim Drucken auf ein Blatt
geht, mal aber ein vertikale Seitenumbruch entsteht.
Ich hatte nun vor, den .PageSetup.Zoom so lange zu verringern bis
.VPageBreaks.Count = 0 ist.
Der .VPageBreaks.Count ändert sich aber nicht.
Schaue ich mir die Druckvorschau an ist der zoom ist wie gewollt und auch kein
Umbruch mehr da.
So mein Code:
Set rngDaten = Range(Range("Start").Offset(1),Cells(Range(str_Ende_Druckber).Row, _
Range("letzteSpalte").Column))
.PageSetup.PrintArea = rngDaten.Address
.ResetAllPageBreaks
.PageSetup.Zoom = 90
Debug.Print .PageSetup.Zoom & " / " & .VPageBreaks.Count
.PageSetup.Zoom = 50
Debug.Print .PageSetup.Zoom & " / " & .VPageBreaks.Count
Bei 90% zoom ist VPageBreaks.Count = 1, das ist korrekt
bei 50% zoom ist VPageBreaks.Count = 1, das ist falsch, sollte 0 sein.
Es gab 2010 mal ein Beitrag mit dem Thema, das dort beschriebene .select
hat mir auch nicht geholfen.
Danke im Voraus
und viele Grüße
Ulf
Betrifft: AW: zoom auf Druckbereichsbreite anpassen
von: 1712915.html
Geschrieben am: 13.09.2019 14:05:49
Halo Ulf,
warum nicht einfach unter Seite einrichten, Anpassen?
Betrifft: AW: zoom auf Druckbereichsbreite anpassen
von: 1712918.html
Geschrieben am: 13.09.2019 14:11:24
Hi Hajo,
dann habe ich alles also auch die "Länge" und nicht nur die "Breite" auf einem Blatt.
Ulf
Betrifft: AW: zoom auf Druckbereichsbreite anpassen
von: 1712920.html
Geschrieben am: 13.09.2019 14:15:31
ja, wenn beides gewählt wird, das muss aber nicht sein.
man Kann auch wählen 1 Seite breit und 1000 Seiten lang.
Gruß Hajo
Betrifft: AW: zoom auf Druckbereichsbreite anpassen
von: 1712969.html
Hallo Hajo,
ich ahnte es schon,
setze ich .PageSetup.FitToPagesTall = 100
sind meine manuell gesetzten horizontalen Umbrüche unwirksam.
Stelle ich im Excel die Seiten hoch auf automatisch sind sie wieder da.
Im VBA kommt aber ein Fehler bei
.PageSetup.FitToPagesTall = 0
und auch
.PageSetup.FitToPagesTall = xlAutomatic
geht nicht.
Betrifft: AW: zoom auf Druckbereichsbreite anpassen
von: 1712931.html
Geschrieben am: 13.09.2019 14:35:50
Danke,
habe ich noch nie wahrgenommen, also zurück von Basiskenntnisse auf Anfänger.
Ich teste noch, weil ich die Horizontalen manuell einfügen muß, denke aber
es wird klappen.
Tschüß
Ulf
Betrifft: AW: zoom auf Druckbereichsbreite anpassen
von: 1712977.html
Geschrieben am: 13.09.2019 16:40:17
Hallo,
danke an alle die geholfen haben.
Nun ist alles wie es sein soll.
Wen es interresiert, nicht 0, nicht xlAutomatic sondern False
Ulf