HERBERS Excel-Forum - die Beispiele

Thema: In einem Dialog ausgewählte Spalten drucken

Home

Gruppe

Dialog

Problem

Ich habe eine Dialogbox mit einer Reihe von CheckBoxes, die Spalten in einem Arbeitsblatt (Name, Vorname, PLZ, Ort etc.) darstellten. Nach Beendigung des Dialogs sollen die Spalten, deren Checkbox aktiviert wurde, gedruckt werden. Wie mache ich das?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
StandardModule: basMain

Sub CallForm()
   frmPrint.Show
End Sub

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

ClassModule: frmPrint

Private Sub cmdCancel_Click()
   Unload Me
End Sub

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox

Probleme bei Anklicken von Checkboxen Checkboxen Namen beliebig in eine Zelle schreiben
Fehler bei Abfrage mehrerer Checkboxen ListBox mit CheckBox bei Auswahl Page anzeigen
graues Häckchen in CheckBox xlDialogInsertHyperlink.show
Checkbox in UF aus Modul zurücksetzen Arbeitmappen über Dialogfeld zusammen fassen
Combobox, CheckBox, TextBox Formatierung UserForm - CheckBox Reihenfolge
5.0 Dialog Checkbox
Speichern unter Dialog in Word aufrufen inkl. Pfad disable CheckBox, wenn...
checkbox merken Druckerdialog
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
checkbox xlDialogOpen anpassen
checkbox als Gruppe ansprechen Klick in definierten Rangebereich startet Dialog
Checkbox mit Bedingung For Each Checkbox und stop nach letzen Durchlauf
CheckBox Schrift ausrichtung xlDialogOpen bei Excel 2007 funzt nicht
FileDialog inkl. Anklicken von Desktop, Eigene D. Klicks in CheckBox (UF) in TextBox hochzählen
Grösse Dialogfenster der InputBox CheckBoxen gruppieren
CheckBox Checkbox aktivieren
Checkbox - LinkedCell - Blattschutz Ereignis von Laufzeit-Checkbox
Checkbox in Zeile der activen Zelle Checkbox ohne VBA auslesen?
Checkbox per Makro an/aus CheckBoxen in UF zurücksetzen
Dialogfeld unterdrücken UF mit Checkboxen
Checkbox Checkbox
Register aktivieren über Checkbox Haken in Checkbox löschen
Dialog "permanently delete sheets" unterbinden Klasse für Checkboxen
Häckchen in CheckBox Hilfe bei Code für CheckBox
For Each CheckBox, Change Value Format-Dialog funktioniert nicht mehr