Seitenbreite automatisch anpassen

Bild

Betrifft: Seitenbreite automatisch anpassen
von: Henri
Geschrieben am: 31.03.2005 07:51:50
Hi,
ich habe eine Tabelle mit variierender Seitenanzahl.
Ich muss eine Spalte in der Breite automatisch anpassen und möchte dann per VBA die Tabelle auf genau eine Seitenbreite und x Seiten hoch anpassen.
So funktioniert das jedoch nicht:


Sub Anpassen()
...
ActiveSheet.Columns("B:B").AutoFit
ActiveSheet.PageSetup.FitToPagesWide = 1
...
End Sub

Hate einer eine Idee ???
thx
Henri
Bild

Betrifft: AW: Seitenbreite automatisch anpassen
von: u_
Geschrieben am: 31.03.2005 10:48:47
Hallo,
da fehlt noch ein bisschen.

Sub anpassen()
  Columns("B:B").AutoFit
  With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
  End With
End Sub

Gruß
Bild

Betrifft: AW: Seitenbreite automatisch anpassen
von: Henri
Geschrieben am: 31.03.2005 12:06:08
Vielen Dank,
hat funktioniert.
grüße
Henri
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Seitenbreite automatisch anpassen"