Danny's VBA Scripts

Create the UserForm 1

• Get Everify To Uncover The Truth About Someone
• Worldwide Email Address Finder
• How To Make Your Own Wind Generator

Create the dialog shown in Figure 18-7 in the Print.xls workbook. Name the dialog dlgPrintSheets and set its Caption property to "Print Sheets." Then change the PrintSheets procedure to:

Public Sub PrintSheets()

dlgPrintSheets.Show End Sub

The dlgPrintSheets dialog has two command buttons and one list box:

dlgPrintSheets.Show

18.4.1.1 List box

Place a list box on the form as in Figure 18-7. Using the Properties window, set the properties shown in Table 18-4.

Table 18-4. Nondefault Properties of the List Box

Property	Value
Name	lstSheets
TabIndex	0
MultiSelect	frmMultiSelectExtended

When the Cancel property of the cmdCancel button is set to True, the button is "clicked" when the user hits the Escape key. Thus, the Escape key will dismiss the print dialog.

The MultiSelect property is set to frmMultiSelectExtended so that the user can use the Control key to select multiple (possibly nonconsecutive) entries and the shift key to select multiple consecutive entries.

The TabIndex property determines not only the order in which the controls are visited as the user hits the Tab key, but also determines which control has the initial focus. Since we want the initial focus to be on the list box, we set its tab index to 0.

18.4.1.2 Print button

Place a command button on the form as in Figure 18-7. Using the Properties window, set the properties shown in Table 18-5.

Table 18-5. Nondefault Properties of the Print Button
Property	Value
Name	cmdPrint
Accelerator	P
Caption	Print
Tablndex	1

18.4.1.3 Cancel button

Place another command button on the form as in Figure 18-7. Using the Properties window, set the properties shown in Table 18-6.

Table 18-6. Nondefault Properties of the Cancel Button
Property	Value
Name	cmdCancel
Accelerator	C
Caption	Cancel
Tablndex	2
Cancel	True

0 0