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

我就是我 2022-09-11 07:25 81阅读 0赞

上一节讲到了打印多张页面，本节谈谈使用自定义大小的纸张。

自定义纸张是通过设置PaperSize来完成的，这是一个Printing.PaperSize类，详细的属性请参看 vb.net 教程 11-1 打印组件 PrintDocument 1

我们先定义一个PaperSize，然后将它与PrintDocument.DefaultPageSettings.PaperSize关联到一起就可以了。

先看代码：

'按下打印按钮  
    Private Sub Button4\_Click(sender As Object, e As EventArgs) Handles Button4.Click  
        Dim ps As New Printing.PaperSize()  
        ps.PaperName = "我的自定义纸张"  
        ps.Height = 600  
        ps.Width = 400  
        'ps.RawKind = 0  
        PrintDocument1.PrinterSettings.PrintToFile = True  
        PrintDocument1.PrinterSettings.PrintFileName = "d:\\dd.oxps"  
        PrintDocument1.DefaultPageSettings.PaperSize = ps  
   
        Dim paperWidth, paperHeight As Single  
        paperWidth = PrintDocument1.DefaultPageSettings.PaperSize.Width \* 0.254  
        paperHeight = PrintDocument1.DefaultPageSettings.PaperSize.Height \* 0.254  
        TextBox1.Text = "纸张大小：" & PrintDocument1.DefaultPageSettings.PaperSize.PaperName & ControlChars.CrLf  
        TextBox1.Text &= "纸张大小：" & paperWidth & "\*" & paperHeight  
   
        PrintDocument1.Print()  
    End Sub  
需要注意的是：

1、PrintDocument1.PrinterSettings.PrintToFile = True，设置直接打印到文件

2、PrintDocument1.PrinterSettings.PrintFileName = "d:\\dd.oxps"，设置要打印到的文件的名称

我的电脑上默认打印机是“Microsoft XPS Document Writer”，它打印保存的文件是\*.oxps或者\*.xps。

如果这里不设置，那么打印的时候会弹出对话框，提示你输入文件名称的。

3、 PrintDocument1.DefaultPageSettings.PaperSize = ps，将打印页面大小设置为我们的设置值。

看看打印结果：

![Center][]

左边是普通A4纸打印效果，右边是我们自定义纸张设置打印效果

同时，我把纸张的大小按照毫米输出了一下：

希望公式大家没有忘记，忘记了请看  vb.net 教程 11-1 打印组件 基础 最下面的单位换算。

![Center 1][]

学习更多vb.net知识，请参看 [vb.net教程][vb.net] 目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/a75619d22222457288443558a8d70dbb.png
[Center 1]: /images/20220828/e5f8dec0cacb43ffa55acd07c2e655e2.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/