vb.net - 更改打印的默认页面大小

Question

我有一个 vb.net 应用程序，它使用 2 个水晶报表来打印报表。第一份报告是 A4，第二份是 A5。

我的代码如何访问打印机默认设置并将默认纸张尺寸每次更改为 A4 和 A5，而无需手动执行。

谢谢

Answer 1

这有效，但不适用于 MS Word：

 Dim pp As New System.Drawing.Printing.PrintDocument
        For i = 0 To pp.DefaultPageSettings.PrinterSettings.PaperSizes.Count - 1
            If pp.DefaultPageSettings.PrinterSettings.PaperSizes.Item(i).Kind = System.Drawing.Printing.PaperKind.A4 Then
                pp.DefaultPageSettings.PaperSize = pp.DefaultPageSettings.PrinterSettings.PaperSizes.Item(i)
                Exit For
            End If
        Next