ACC: Can't Enable Pages Option Button in CommonDialog Control

RESOLUTION

1. Follow steps 1 through 6 of the "Steps to Reproduce" Section later in this article.
2. Set the command button's OnClick property to the following event procedure:
   

         Private Sub Command1_Click()
            Dim cd As CommonDialog
            Set cd = Me!CmnDlg.Object
            With cd
               .Flags = cdlPDPageNums
   
               ' Allow a page range of 1 - 50 to be entered in
               ' the dialog box.
               .Min = 1
               .Max = 50
   
               ' Default the From box to 1, and the To box to 50.
               ' Note that the FromPage property must be greater than or
               ' equal to the Min property, and the ToPage property
               ' must be less than or equal to the Max property.
               .FromPage = 1
               .ToPage = 50
               .ShowPrinter
            End With
         End Sub
   						

3. Open the form in Form view.
4. Click the command button.
   
   Note that the Pages option button and associated edit controls are enabled, and the page range is set from 1 to 50 by default.