CommonDialog 控件
取消引发错误 CancelError
颜色 Color
复制 Copies
缺省扩展名 DefaultExt
对话框标题 DialogTitle
文件名称 FileName
过滤器 Filter
过滤器索引 FilterIndex
标志 Flags
字体名称 FontName
字体大小 FontSize
起始页 FromPage
帮助命令 HelpCommand
帮助上下文 HelpContext
帮助文件 HelpFile
帮助键 HelpKey
初始化路径 InitDir
最大 Max
文件最大长度 MaxFileSize
最小 Min
缺省打印机 PrinterDefault
终止页 ToPage
CommonDialog方法 显示的对话
ShowOpen 打开
ShowSave 另存为
ShowColor 颜色
ShowFont 字体
ShowPrinter 打印
ShowHelp 调用 Windows“帮助”
CommonDialog 控件(“打印”对话框)示例
下例显示“打印”对话框。
Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
Next i
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub