Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druckbereichsauswahl über CheckBoxes

Gruppe

Bereich

Problem

Die Druckvorschau soll gemäß den mit CheckBoxes ausgewählten Druckoptionen erfolgen. Alle zu druckenden Zellen müssen an den in der Tabelle sichtbaren Positionen gedruckt werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: Tabelle1

Private Sub cmdPrint_Click()
   Dim rng As Range
   Dim sAddress As String
   Application.ScreenUpdating = False
   ActiveCell.Activate
   sAddress = Selection.Address
   ActiveSheet.Copy
   If chbHeader.Value = False Then
      With ActiveSheet.PageSetup
         .LeftHeader = ""
         .CenterHeader = ""
         .RightHeader = ""
      End With
   End If
   If chbFooter.Value = False Then
      With ActiveSheet.PageSetup
         .LeftFooter = ""
         .CenterFooter = ""
         .RightFooter = ""
      End With
   End If
   If chbSelection.Value = True Then
      For Each rng In ActiveSheet.UsedRange.Cells
         If Intersect(rng, ActiveSheet.Range(sAddress)) Is Nothing Then
            rng.NumberFormat = ";;;"
         End If
      Next rng
   End If
   ActiveSheet.PrintPreview
   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

    

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