Microsoft Excel

Herbers Excel/VBA-Archiv

zoom auf Druckbereichsbreite anpassen


Betrifft: zoom auf Druckbereichsbreite anpassen
von: Ulf
Geschrieben am: 13.09.2019 14:04:25

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?

GrußformelHomepage

  

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
Geschrieben am: 13.09.2019 16:19:44

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