Gruppe
Druck
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.
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