vb.net - 印刷用のデフォルトのページ サイズを変更する

Question

レポートを印刷するために 2 つの Crystal レポートを使用する vb.net アプリケーションがあります。最初のレポートは A4、2 番目のレポートは 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