Thema: Zu druckende Spalten ermitteln

Home

Über die CheckBoxes werden die zu druckenden Spalten ermittelt.

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zu druckende Spalten ermitteln
Ablaufbeschreibung:
- Variablendeklaration
- Schleife starten
- Wenn die aktuelle CheckBox aktiviert ist...
- TRUE an aktuelles Datenfeld übergeben
- UserForm schließen
- Unterprogramm zum Drucken mit dem Array als Parameter aufrufen

Code:


Private Sub cmdOK_Click()
   Dim iCounter As Integer
   Dim arrBln(1 To 4) As Boolean
   For iCounter = 1 To 4
      If Controls("CheckBox" & iCounter).Value = True Then
         arrBln(iCounter) = True
      End If
   Next iCounter
   Unload Me
   Call SetPrintPreview(arrBln)
End Sub

Prozedur: SetPrintPreview
Art: Sub
Modul: Standardmodul
Zweck: Druckvorschau anzeigen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife starten
- Wenn das aktuelle Datenfeld den Wert TRUE hat...
- Spalte einblenden
- Sonst...
- Spalte ausblenden
- Druckvorschau
- Alle Spalten einblenden
- Seitenumbrüche ausblenden

Code:


Sub SetPrintPreview(arr As Variant)
   Dim iCounter As Integer
   For iCounter = 1 To 4
      If arr(iCounter) = True Then
         Columns(iCounter).Hidden = False
      Else
         Columns(iCounter).Hidden = True
      End If
   Next iCounter
   ActiveSheet.PrintPreview
   Columns.Hidden = False
   ActiveSheet.DisplayPageBreaks = False
End Sub