Druckbild auf eine Seitenbreite hochskalieren
14.09.2015 19:24:55
Martin
gibt es eine Möglichkeit das Druckbild einer Tabelle auf die maximal mögliche Seitenbreite zu vergrößern? Eine automatische Funktion habe ich nicht gefunden und daher versucht eine VBA-Lösung zu schreiben. Aber auch mein VBA-Versuch klappt leider nicht zuverlässig (...manchmal entsteht doch ein Seitenumbruch):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim intZoom As Integer
'Kontrolle auf Seitenumbrüche
If ActiveSheet.VPageBreaks.Count = 0 Then
With ActiveSheet.PageSetup
'Aktuellen Zoom auslesen
intZoom = .Zoom
'Zoom erhöhen, bis Seitenumbruch entsteht
Do
.Zoom = .Zoom + 1
'.FitToPagesWide = 1
Loop Until ActiveSheet.VPageBreaks.Count > 0
'Zoom um 1 minimieren, um Seitenumbruch zu entfernen
.Zoom = .Zoom - 1
End With
End If
End Sub
Martin