频道导航

vb.net 教程 11-1 打印组件 4 PrintDocument 2

2020-03-06 VB 前端之家

前端之家收集整理的这篇文章主要介绍了vb.net 教程 11-1 打印组件 4 PrintDocument 2，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

@H_403_0@ 上一节讲了一个打印的简单例子。本节继续讲解PrintDocument组件的使用。

@H_403_0@

@H_403_0@ 继续分析一下上一节的代码。

@H_403_0@ 代码中先是调用了打印对话框，然后再打印的，其实在打印对话框PrintDialog的时候也没有做什么设置，直接按下打印也可以打印出来

@H_403_0@ 那么深入一点考虑，是否打印对话框也不需要呢?

@H_403_0@

@H_403_0@ 修改代码如下：

@H_403_0@

    '按下打印按钮
    Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.Click
        PrintDocument1.Print()
    End Sub

@H_403_0@ 即，把有关PrintDialog相关的代码去掉了，再试一下。 @H_403_0@ 这次按下“打印”按钮，直接出来“将打印输出另存为”对话框，ok，保存为cc.oxps，和上次的dd.oxps区别一下 @H_403_0@
@H_403_0@ @H_403_0@ 打开cc.oxps： @H_403_0@
@H_403_0@ @H_403_0@ 也是正确的。 @H_403_0@
@H_403_0@ 这是因为PrintDocument使用了默认的打印设置。 @H_403_0@ 默认的设置可以调用 PrintDocument1.DefaultPageSettings属性获得： @H_403_0@ @H_403_0@
@H_403_0@ 使用以下代码获得默认打印设置： @H_403_0@

    '获得PrintDocument默认打印设置
    Private Sub Button5_Click(sender As Object,e As EventArgs) Handles Button5.Click
        TextBox1.Text = "打印机：" & PrintDocument1.DefaultPageSettings.PrinterSettings.PrinterName & ControlChars.CrLf &
            "支持彩色打印：" & IIf(PrintDocument1.DefaultPageSettings.PrinterSettings.SupportsColor,"是","否") & ControlChars.CrLf &
            "打印纸张：" & PrintDocument1.DefaultPageSettings.PaperSize.PaperName & ControlChars.CrLf &
            "打印方向：" & IIf(PrintDocument1.DefaultPageSettings.Landscape,"横向","竖向") & ControlChars.CrLf &
            "打印份数：" & PrintDocument1.DefaultPageSettings.PrinterSettings.Copies
    End Sub

@H_403_0@ 运行结果： @H_403_0@ @H_403_0@ 可见，即使不设置，也可以实现打印，只不过调用的是默认设置。 @H_403_0@ 当然在有些场合，比如要想打印到真正的纸张上，但是默认打印机却是虚拟打印机，那就不适合了。 @H_403_0@
@H_403_0@ 学习更多vb.net知识，请参看 vb.net 教程目录