当前位置：首页 > news >正文

网站栏目英文/网站seo视频

news 2025/6/30 1:11:39

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

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

自定义纸张是通过设置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.ClickDim ps As New Printing.PaperSize()ps.PaperName = "我的自定义纸张"ps.Height = 600ps.Width = 400'ps.RawKind = 0PrintDocument1.PrinterSettings.PrintToFile = TruePrintDocument1.PrinterSettings.PrintFileName = "d:\dd.oxps"PrintDocument1.DefaultPageSettings.PaperSize = psDim paperWidth, paperHeight As SinglepaperWidth = PrintDocument1.DefaultPageSettings.PaperSize.Width * 0.254paperHeight = PrintDocument1.DefaultPageSettings.PaperSize.Height * 0.254TextBox1.Text = "纸张大小：" & PrintDocument1.DefaultPageSettings.PaperSize.PaperName & ControlChars.CrLfTextBox1.Text &= "纸张大小：" & paperWidth & "*" & paperHeightPrintDocument1.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，将打印页面大小设置为我们的设置值。

看看打印结果：