vb.net 教程 11-1 打印组件 3 PageSetupDialog

谁践踏了优雅 2022-09-11 07:15 71阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
本节谈谈另外一个有关打印的对话框：PageSetupDialog，页面设置对话框

实际我们是通过这个对话框获得PageSetting，关于PageSetting在上一节有部分介绍，请参看 vb.net 教程 11-1 打印组件 PrintDialog 2

注意的是，使用PageSetupDialog需要绑定一个PrintDocument，在PageSetupDialog的Document属性处设置即可。

通过PageSetupDialog获得页面设置代码如下：

Private Sub Button8\_Click(sender As Object, e As EventArgs) Handles Button8.Click  
        Dim ps As Printing.PageSettings  
        If PageSetupDialog1.ShowDialog = DialogResult.OK Then  
            ps = PageSetupDialog1.PageSettings  
        Else  
            Exit Sub  
        End If  
   
        TextBox1.Text = "彩色打印：" & ps.Color & ControlChars.CrLf &  
            "打印方向：" & IIf(ps.Landscape, "横向", "竖向") & ControlChars.CrLf &  
            "打印边距：" & ps.Margins.Top & "\*" & ps.Margins.Bottom &  
            "\*" & ps.Margins.Left & "\*" & ps.Margins.Right & ControlChars.CrLf &  
            "打印机名称：" & ps.PrinterSettings.PrinterName  
    End Sub

运行效果如下：

What! 页边距我设置的10毫米，这么变成39了？

OK，回到第一节的公式，忘了的请参看 vb.net 教程 11-1 打印组件 基础

height (mm)= height\*100/(2.54\*10)= height/0.254 (百分之一英寸)

也就是10毫米=10/0.254(百分之一英寸)=39.370078(百分之一英寸)，四舍五入就是39。

如果我们再次按下“显示PageSetupDialog”按钮：

你会看到页边距不是10，是的，又来计算一下：

39\*0.254=9.906，四舍五入就是 9.91。

另外，正如上一节所说，PageSettings中也包含了PrinterSettings属性，也可以获得打印机设置，有兴趣的朋友请自己试一下，这里不再累述。

学习更多vb.net知识，请参看[vb.net教程][vb.net] 目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/