Hallo Delphianer,
ich bin am Verzweifeln. Habe schon sehr lange gegoogelt aber nichts gefunden.
Mein Problem ist: Ich habe in Excel eine Liste mit 501 Seiten und möchte den Druckbereich per Makro festlegen. Nur wie kann man die Seitengröße festlegen? Meine Seiten sind immer genau 76 Zeilen Hoch und 20 Zeilen Breit!
Hört sich einfach an, aber über Einfügen von Pagebreaks (HPageBreak, VPagebreak) bekommt man in Excel Probleme mit der zu großen Spalten/Zeilenzahl pro Seite und Excel fügt weitere pagebreaks ein die die Seiten dann zerschneiden.
Am besten löst man es über Printarea. Interessanterweise muss die Seitengröße dort Einstellbar sein, da man unterschiedliche Seitengrößen vererben kann. Aber wie?
Hier mal der Code den ich schon habe:
Delphi-Quellcode:
Sub Druckbereich()
Application.ScreenUpdating = False
With ActiveSheet
' Hier muss noch die Seitengröße eingetragen werden?!
'z.B. .pagesetup.pagesize = rows(76),cols(20) <- nur zum verdeutlichen was ich suche
.PageSetup.PrintArea = "$A$1:$S$38076"
End With
Application.ScreenUpdating = True
End Sub
Please Help me out
Vielen Dank und greez
gabneo