Druck Makro Dynamisch gestalten
18.10.2023 18:21:06
Robert Pilz
Habe mal wieder ein Problem und hoffe das Ihr mir einen Weg weisen könnt.
Ich habe folgendes Makro wo ich statisch ausdrucken kann. Ich müsste aber dieses so umgestalten das per Vba der jeweilige Bereich erkannt wird der sich immer entsprechend der jeweiligen Größe ändert der Anfang liegt immer bei A1 bis je nach entsprechender Ausfüllung das kann BA1 oder auch BZ1 sein, das gleiche gilt für die Spalten A1 beginnen bis A20 oder A32. Dies sollte dynamisch erkannt und dann auf jeweils eine Druckseite ausgegeben werden. Hier mal das Makro
Sub aaaaaaaaaaaaaaaaMakro1()
'
' Druckbereich festlegen
Range("A1:F28").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$28"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
' Zoomfaktor einstellen ActiveSheet.PageSetup.PrintArea = "$A$1:$F$28"
With ActiveSheet.PageSetup
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Range("A1:F28").PrintOut Copies:=1
End SubVielleicht könnt Ihr mir einen Weg weisen wie das Problem zu lösen gibt.
Vielen Dank im voraus.
LG Robert