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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

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

自定义纸张是通过设置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，将打印页面大小设置为我们的设置值。

看看打印结果：

 

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

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

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

 

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

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