VB.NETでどのプリンターでも用紙を規定のサイズで出力するには？ (ID:116718)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お早い返事ありがとうございますm(_ _)m Printing.PaperKindの定数で単純に指定できないかと考えていたのですが、 コレクションを回すのが良いみたいですね。 リンク先のソースのIF文を以下のように変更して実行しました。 If PS.PaperName Like "*B5*" Then ただ、一見うまくいってると思ったのですが（MsgBoxで以下の値を見ても B5が選択されてるのですが）A4で出力されてしまいます（汗） pDoc.PrinterSettings.DefaultPageSettings.PaperSize.PaperName() 謎です。。。.NETには全然詳しくないので私が何か勘違いをしてるのかも しれません（汗） コレクションから探す方法で少しソースを変更して みました。 Dim PS As System.Drawing.Printing.PaperSize Dim papCnt As Integer = 0 For Each PS In pDoc.PrinterSettings.PaperSizes If PS.PaperName Like "*B5*" Then Exit For End If papCnt += 1 Next pDoc.DefaultPageSettings.PaperSize = pDoc.PrinterSettings.PaperSizes(papCnt) 一応これでうまくいきました(^-^) 特攻隊長まるるう様、どうもありがとうございました。この件で半日は 悩んでました（苦笑）