Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrfachauswahl im Hoch- und Querformat drucken

Gruppe

Seite

Problem

Wie kann ich über VBA den 1. Bereich einer Mehrfachauswahl im Hoch-, den 2. Im Querformat drucken?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Drucken()
   Dim rngA As Range, rngB As Range
   Set rngA = Selection.Areas(1)
   Set rngB = Selection.Areas(2)
   With ActiveSheet.PageSetup
      .PrintArea = rngA.Address
      .Orientation = xlPortrait
      ActiveSheet.PrintPreview
      .PrintArea = rngB.Address
      .Orientation = xlLandscape
      ActiveSheet.PrintPreview
   End With
End Sub