Question

你好，我想问一下，怎么设置vb中的通用对话框为打印对话框

Answer 1

1. CommonDialog
   控件（“打印”对话框）  

   通过使用 CommonDialog 控件的 ShowPrinter 方法可显示“打印”对话框。“打印”对话框可用以指定打印输出方式。可以指定被打印页的范围，打印质量，打印的份数等等。这个对话框还包含当前安装的打印机的信息，并允许配置或重新安装缺省打印机。

   注意 这个对话框并不给打印机传送数据，只是指定希望打印数据的情况。如果
   PrinterDefault 属性为 True，可以使用 Printer 对象按选定的格式打印数据。

   在运行时，一旦“打印”对话框中作出选择，下列属性即包括与该选择有关的信息：

   

2. 实际是需要编写适当的代码实现打印功能。

3. 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