Office: Spaltenbreite an A4 Seite anpassen

Hallo,

ich möchte per VB.NET eine Excel-Datei mit einer variablen Anzahl von Spalten (24-51) erstellen. Dabei soll die Spaltenbreite so angepasst werden, das später alles beim Ausdrucken genau auf eine Seite passt. Ich habe ein Tabellenblatt mit 51 Spalten erstellen, die Spaltenbreite so eingestellt, das per Seitenansicht genau eine Seite herauskommt. Dann habe ich die Breite ermittelt 51*Zelle.ColumnWidth = maxBreite. Wenn ich nun weniger Spalten haben wollte ich per Round(maxBreite / AnzSpalten,2) die Spaltenbreite ermitteln. Leider funktioniert das nicht. Bei weniger Spalten kommt zwar weiterhin die selbe maxBreite raus, nun habe ich aber viel mehr Platz.

Hier mal das VBA Programm mit dem ich die Breite einstelle. Wie angesprochen als Ausgangswert nehme ich 51 Spalten bei 1,86 = 94.68

Sub ChangeBreite()
Dim iAnzCol As Integer
Dim sngBreite As Single
Dim sngColWidth As Single

iAnzCol = 51
sngBreite = 94.68

sngColWidth = Round(sngBreite / iAnzCol, 2)
Debug.Print sngColWidth

For i = 1 To iAnzCol
Tabelle1.Cells(1, i).Value = i
Tabelle1.Cells(1, i).ColumnWidth = sngColWidth
Next
End Sub

Wenn ich nun 36 Spalten bei 2,63 = 94,68 ist die Seite aber nicht gefüllt der VPageBreak ist bei 103,68

Sub Break()
Dim iVPageBreak As Integer
Dim rngBreak As Range
Dim sngBreite As Single

If Tabelle1.VPageBreaks.Count > 0 Then
Set rngBreak = Tabelle1.VPageBreaks(1).Location
For i = 1 To rngBreak.Column
sngBreite = sngBreite + Tabelle1.Cells(1, i).ColumnWidth
Next
End If

Debug.Print sngBreite
End Sub

:)

 

Moin, alBaumgart,

unter Datei/Seite einrichten gibt es auf dem Reiter Papierformat die Option auf 1 Seite hoch und 1 Seite breit anpassen...

Code:

51 Spalten auf einer Seite halte ich bei den mir normalerweise vorliegenden Inhalten für kaum lesbar, zumal Excel noch einen kleinen Bereich für die Abgrenzungen zwischen Daten und den Gitternetzlinien "wegzwackt".