如何在 vb.net 中调整纸张大小

Question

我有以下代码来打印页面，我想添加自定义页面大小我该怎么做？

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

    PrintDialog1.AllowSomePages = True
    PrintDialog1.ShowHelp = True
    PrintDialog1.Document = docToPrint
    Dim result As DialogResult = PrintDialog1.ShowDialog()
    If (result = DialogResult.OK) Then
        docToPrint.Print()
    End If

End Sub

Answer 1

您可以使用文档的 DefaultPageSettings.PaperSize 属性设置纸张大小 示例：

Dim xCustomSize As New PaperSize("Legal", 850, 1400)

Me.DefaultPageSettings.PaperSize = xCustomSize

更多详情here