VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Markierten Bereich drucken

Gruppe

Druck

Bereich

Bereich

Thema

Markierten Bereich drucken

Problem

Der gelb markierte Bereich soll gedruckt werden. Die Positionierung ist so vorzunehmen, als würde das ganze Blatt gedruckt, Rahmen sind in den Druck nicht, Einstellung für der Zeilen- und Spaltenhöhe sind einzubehiehen.

Lösung

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




StandardModule: basMain

Sub BereichDrucken()
   Dim rng As Range
   Application.ScreenUpdating = False
   ActiveSheet.Copy
   For Each rng In Range("A1").CurrentRegion
      If rng.Interior.ColorIndex <> 6 Then
         rng.ClearContents
      End If
   Next rng
   Cells.Borders.LineStyle = xlLineStyleNone
   ActiveSheet.PrintPreview
   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich