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 教程目录

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/73145365

栏目列表