habe folgendes Makro geschrieben, das aber nicht so ganz funktioniert:
Sub drucken()
Sheets("Merkmal 1").Select
Range("A1:Z75").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$75"
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Sheets("Deckblatt").Select
End Sub
Die zellen a1 bis z75 sollen alle auf einer Seite ausgedruckt werden, hab im Forum nichts gefunden, kann mir vielleicht jemand weiterhelfen?
Danke,
Gruß,
Fabian