加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

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

发布时间:2020-12-17 07:32:30 所属栏目:百科 来源:网络整理
导读:上一节将PrintDocument、PageSetupDialog、PrintDialog、PrintPreviewDialog的重要属性/方法进行了个罗列。 本节开始正式学习这些组件的使用。 PageSetupDialog组件的使用,本节暂时不讲实际打印 设计时窗体如图(请自行添加PrintDialog组件): 直接上代码
上一节将PrintDocument、PageSetupDialog、PrintDialog、PrintPreviewDialog的重要属性/方法进行了个罗列。
本节开始正式学习这些组件的使用。

PageSetupDialog组件的使用,本节暂时不讲实际打印
设计时窗体如图(请自行添加PrintDialog组件):


直接上代码分析:
    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        Dim ps As Printing.PrinterSettings
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            ps = PrintDialog1.PrinterSettings
        Else
            Exit Sub
        End If
        TextBox1.Text = "打印机名称:" & ps.PrinterName & ControlChars.CrLf &
            "支持双面打印:" & IIf(ps.CanDuplex,"是","否") & ControlChars.CrLf &
             "打印份数:" & ps.Copies & ControlChars.CrLf &
             "打印起始页:" & ps.FromPage & ControlChars.CrLf &
             "打印终止页:" & ps.ToPage & ControlChars.CrLf &
             "支持彩色打印:" & IIf(ps.SupportsColor,"否") & ControlChars.CrLf
    End Sub

可以看出来,打印对话框和之前将的对话框差不多,都需要 ShowDialog()
由于之前已经将重要属性方法进行了说明,这里不再讲,不明白的,请看 vb.net 教程 11-1 打印组件 1
按下按钮,出现打印对话框,我的电脑上没有真实打印机,但实际效果差不多:
先不管其中的灰色项目,将份数设置为4份,按下“打印”按钮:

已经将我们需要的打印机名称、打印份数显示出来了。
再将打印对话框和设计时的属性做个对比:

接下来将属性设置为True再看看效果
运行效果:

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读