VB打印对话框ShowPrinter

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

上节课程一起学习了ShowFont字体对话框，本节课程将学习的是打印对话框。

首先，将对话框控件CommonDialog添加到窗体上。

然后，设置对话框属性。通常打印对话框无需设置属性

接着，使用ShowPrinter方法弹出打印对话框。

CommonDialog1.ShowPrinter
           

最后，获取打印设置选项

'起始页

CommonDialog1.FromPage
 '结束页
 CommonDialog1.ToPage
 '份数
 CommonDialog1.Copies
 '设备信息（句柄）
 CommonDialog1.hDC
           

完整的举例，如下:

Private Sub Command1_Click() 
    ' 设置“取消”为 True
    CommonDialog1.CancelError = True
    On Error GoTo Err
    ' 显示“打印”对话框
    CommonDialog1.ShowPrinter
    ' 从该对话框取得选定的值
    Print "起始页：" & CommonDialog1.FromPage
    Print "结束页：" & CommonDialog1.ToPage
    Print "份数：" & CommonDialog1.Copies
    Print "打印机信息：" & CommonDialog1.hDC
    
    '此处放置将数据发送到打印机的代码
    Exit Sub
Err:
    ' 用户按了“取消”按钮
    Exit Sub
End Sub
           

获取打印设置项

说明：

1，具体如何将数据发送给打印机，我们在以后的课程会讲到。

2，如果电脑没有打印机，那么某些属性将会无法正常获取。