Seitenbreite automatisch anpassen
31.03.2005 07:51:50
Henri
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