Hallo,
folgendes Makro habe ich ausprobiert, aber trotzdem passt er den Druckbereich (z.B. p_summary) nicht auf eine Seite an :-(
Private Sub CmdPrint_Click()
'
Application.Goto Reference:="p_summary"
'
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'
Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Kann man dieses "FitTo" auch für Druckbereiche anwendenund wenn ja, wie ?
Kann jemand weiterhelfen ?
Danke und Gruß !