'在此放置代码，将数据发送到打印机。 Next Exit Sub ErrHandler:
'用户按下了“取消”按钮。 Exit Sub End Sub
注意 若将 PrinterDefault 属性设置为 True，则可在 Visual Basic Printer 对象上打印。另外，当 PrinterDefault 属性为 True 时，所有在“打印”对话框“设置”部分中作出的变更都将改变用户“打印机”设置中的打印机设置值。
使用 ShowHelp 方法显示帮助文件
可用 CommonDialog 控件的 ShowHelp 方法显示帮助文件。 要使用 ShowHelp 方法显示帮助文件 1. 设置 HelpCommand 和 HelpFile 属性。 2. 用 ShowHelp 方法显示指定的帮助文件。
在单击“Command1”命令按钮时，下列代码将显示指定的帮助文件： Private Sub Command1_Click() '将 Cancel 设置为 True。
CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置 HelpCommand 属性
CommonDialog1.HelpCommand = cdlHelpForceFile '指定帮助文件。
CommonDialog1.HelpFile = \ '显示 Windows 帮助引擎。 CommonDialog1.ShowHelp Exit Sub ErrHandler:
'用户按下了“取消”按钮。 Exit Sub End Sub
详细信息 有关显示通用对话框控件的帮助文件的详细信息，请参阅《VisualBasic 6.0语言参考手册》“HelpCommand 属性”、“HelpFile 属性”和“ShowHelp 方法”。
使用Data控件
内在的 Data 控件通过使用 Microsoft 的 Jet 数据库引擎来实现数据访问——与 Microsoft Access 所用的数据库引擎相同。这一技术使用户可以无缝地访问很多标准的数据库格式，而且使用户无需编写任何代码就可以创建数据识别应用程序。这种内在的 Data 控件最适合较
小的（桌面）数据库，诸如 Access 和 ISAM 数据库。
可以使用这种内在的 Data 控件创建应用程序来显示、编辑和更新来自多种已有的数据库的信息。这些数据库包括 Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Paradox。也可以使用这种控件如同访问真正的数据库一样来访问 Microsoft Excel、Lotus 1-2-3以及标准的 ASCII 文本文件。此外，Data 控件也可以访问和操作远程的开放式数据库连接 (ODBC)数据库，诸如 Microsoft SQL Server 以及 Oracle。
注意 Data 控件和 Remote Data 控件两者都包含在 Visual Basic 中，以提供向后兼容。不过，由于 ActiveX 数据对象 (ADO) 的适应性更广，因此建议使用 ADO Data 控件来创建新的数据库应用程序。详细信息请参阅“使用 ADO Data 控件”。
Data 控件、Remote Data 控件以及 ADO Data 控件在概念上很相似：三者都是将一个数据源连接到一个数据绑定控件的“数据控件”。三者也都共享相同的外观——一组共四个按扭，使用户可以直接到达记录集的开始、记录集的末尾以及在记录集中向前或向后翻卷。
使用 Data 控件创建一个简单的数据库应用程序
1. 在窗体上放置一个 Data 控件。Data 控件是一个内在的控件，因而总是可用的。 2. 单击并选定这个 Data 控件，按 F4 键显示“属性”窗口。
3. 在“属性”窗口中，将“连接”属性设置为想要使用的数据库类型。
4. 在“属性”窗口中，将“DatabaseName”属性设置为想要连接的数据库的文件或目录名称。 5. 在“属性”窗口中，将“记录源”属性设置为想要访问的数据库表的名称。 6. 在该窗体上放置一个文本框控件。
7. 单击并选定这个 TextBox 控件，并在其“属性”窗口中将“数据源”属性设置为该 Data 控件。
8. 在这个“属性”窗口中，将“数据字段”属性设置为在该数据库中想要查看或修改的字段的名称。
9. 对其它的每一个想要访问的字段，重复第 6、7、8 步。 10. 按 F5 键运行这个应用程序。 设置 Data 控件与数据相关的属性
下述与数据相关的属性可以在设计时设置。这个列表给出了设置这些属性的一种逻辑顺序： 注意 数据库技术是一门复杂的科学，下面的这些建议并不意味着要当作规则来使用。 1. RecordsetType—RecordsetType 属性决定记录集是一个表、一个动态集(dynaset)还是一个快照。这个选择将影响哪些记录集属性是可用的。例如，快照类型的记录集与 dynaset 记录集相比具有更多的限制。
2. DefaultType—DefaultType 属性指定所使用的是 JET 工作空间，还是ODBCDirect 工作空间。
3. DefaultCursorType—DefaultCursorType 属性决定光标的位置。可以使用 ODBC 驱动程序来决定光标的位置，或者指定服务器或 ODBC 光标。只有当使用 ODBCDirect 工作空间时，DefaultCursorType 属性才是有效的。
4. Exclusive—决定该数据是用于单用户环境，还是多用户环境。
5. Options—这个属性决定记录集的特征。例如，在一个多用户环境中，可以设置 Options 属
性来禁止他人所做的更改。
6. BOFAction、EOFAction—这两个属性决定当这个控件位于光标的开始或末尾时的行为。可能的选择包括停留在开始或末尾、移动到第一个或最后一个记录、或者添加一个新的记录（只有在末尾时）。
六、水晶报表(Crystal Report 4.6)
水晶报表(Crystal Report 4.6)只支持Access97格式的数据库, 所以,先在Access2000格式中设置好表与表的关系,再把表转换到97格式,在水晶报表中调入97数据库后,在Links中自动会找出表间的关系. （1）水晶报表在VB的安装盘中已自带了. 路径: COMMON\\TOOLS\\VB\\CRYSREPT\\CRYSTL32.EXE 系列号: 1231467890
安装后,运行路径: \\Program Files\\Microsoft Visual Studio\\Common\\crw32.exe VB6中运用晶报表的理由是: 它支持图相(Binary型)字段(BLOB二进制大型对象) （2）运用水晶报表的步骤:
先进入VB的菜单栏: 外接程序--报表设计器 自动进入水晶报表, 设计好报表,存成报表文件, 如SQL.rpt
再在VB工程中引入部件Crystal Report Control 4.6 如果是Access数据库, 激活代码:
CrystalReport1.DiscardSavedData = True '自动从数据库中刷新数据 CrystalReport1.ReportFileName = App.Path & \ CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 1
如果是SQL Server 2000数据库,激活代码:
CrystalReport1.Connect = \ \连接SQL Server服务器的ODBC
CrystalReport1.DiscardSavedData = True '自动从数据库中刷新数据 CrystalReport1.ReportFileName = App.Path & \ CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 1 重要:
a.如果需要报表预览时最大化纸张显示, 需在水晶报表设计器中设置: File--Report Options-Preview Pages Start With --Full Size
b.如果只需要显示Detail部分,则在报表设计器的Design界面下的其它部分的左边按右键,在弹出的快捷
菜单内选定: Hide Section
c.如果要一页打印一条记录,则在报表设计器的Design界面下的Detail字样上按右键,在Format Section 中选择
New Page After
d.如果Detail部分需要字符型字段自动折行显示, 则双击该字段,选择: Print on multiple lines
e.Detail部分数值型的显示格式,双击该字段,可弹出显示格式选项
f.目前还没有发现水晶报表具有分栏打印的功能,BCB的QuickReport则有.正文
VB控件教程大全
