用紙サイズの変更時のエラーを回避するには？

解決

こん 2003-10-27 06:57:56 No: 109434

よろしくお願いします。

VB.NETで印刷の用紙サイズをコード中で設定したいのですが、

psd.PageSettings.PaperSize.PaperName = "A4"

とすると、

PaperSize の Kind が Custom でない限り、PaperSize を変更できません。

の様なエラーが出てしまいます。PaperSize の Kind とやらを Custom に
設定しようと調べたのですが、ヘルプ中を堂々巡りとなってしまい
お手上げ状態です。
ご存じの方いらっしゃいましたらよろしくお願いします。

ねろ 2003-10-27 19:32:34 No: 109435

PaperSize.Kindは読み取り専用なので設定は出来ません。
「PaperSize コンストラクタ」を呼び出して設定するしかないと思うんですが。
「A4」で有れば
Dim PS As System.Drawing.Printing.PaperSize
For Each PS In PrintDocument1.PrinterSettings.PaperSizes
     If PS.PaperName = "A4" Then
        PrintDocument1.PrinterSettings.DefaultPageSettings.PaperSize = PS
     End If
Next
これで設定が可能と思いますが。

こん 2003-10-28 09:49:06 No: 109436

ねろ様、ありがとうございます。
大変参考になりました。

見よう見まねでやっている段階なので、具体的な例を
示していただき大変感謝しております。
いろいろいじって勉強させていただきます。