Tipps & Tricks
17.06.2006, 14:00 Uhr
Excel-Makro um quer oder hoch auszudrucken
Problem: Im Büro drucken wir täglich mehrmals markierte Teilbereiche aus umfangreichen Excel-Tabellen. Für diesen Vorgang habe ich ein Makro erstellt. Je die Hälfte dieser Drucke benötigen wir im Hoch-, die andere Hälfte im Querformat. Ist Ihnen eine Möglichkeit bekannt, diese Einstellungen des Druckers jeweils in einem Makro abzulegen? Also so etwas wie „DruckMarkiertQuer“ und „DruckMarkiertHoch“. Das klappt bei mir nicht. Ist Ihnen eine Lösung bekannt?
Lösung: Die Einstellung des Hoch- oder Querformats per Makro muss in der Seiteneinrichtung erfolgen, dann klappt das auch. In den folgenden Makros wird beim Querformat zuerst das Format auf Quer umgestellt und nach dem Ausdrucken des markierten Bereichs wieder zurück zum Hochfomat geschaltet. Beim Hochformat wird einfach sichergestellt, dass das Hochformat eingestellt ist. Das wird dann nach dem Ausdruck so belassen (kann aber natürlich auch ergänzt werden, damit am Ende das Querformat eingestellt ist).
Hier die beiden Makros, die Sie kopieren und in ein Modul ihrer Arbeitsmappe einfügen können:
-----------------------------------------------
Sub Quer()
ActiveSheet.PageSetup.Orientation = xlLandscape
Selection.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.Orientation = xlPortrait
End Sub
ActiveSheet.PageSetup.Orientation = xlLandscape
Selection.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.Orientation = xlPortrait
End Sub
-----------------------------------------------
Sub Hoch()
ActiveSheet.PageSetup.Orientation = xlPortrait
Selection.PrintOut Copies:=1, Collate:=True
End Sub
ActiveSheet.PageSetup.Orientation = xlPortrait
Selection.PrintOut Copies:=1, Collate:=True
End Sub
-----------------------------------------------
Kommentare
Es sind keine Kommentare vorhanden.
