Option
Explicit
Private
Sub
CommandButton1_Click()
Dim
lngIndex
As
Long
Dim
ialngCount
As
Long
Dim
astrPages()
As
String
For
lngIndex = 1
To
7
If
Me
.Controls(
"Checkbox"
& lngIndex).Value
Then
ialngCount = ialngCount + 1
ReDim
Preserve
astrPages(ialngCount - 1)
As
String
astrPages(ialngCount - 1) = lngIndex
End
If
Next
With
Dialogs(wdDialogFilePrint)
.Range = wdPrintRangeOfPages
.Pages = Join$(SourceArray:=astrPages(), Delimiter:=
","
)
.Show
End
With
End
Sub