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
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