kann ich mit einem VBA Code einen Druckbereich einer beliebigen Tabelle z.B. A1-G10 auf Blattgrösse gezoomt ausdrucken lassen?
Dieter
Sub drucken()
With Range("druckbereich")
.Font.Size = 26
.Columns.AutoFit
End With
ActiveSheet.PageSetup.PrintArea = Range("druckbereich").Address
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub