印刷ページの中でフォントを変えるには？ (ID:145601)

名前

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

本文 > ブラシとフォントの定義は で変数の宣言とインスタンスの生成(New)を一度にやっちゃってますね。 このままの形でフォームが生きている間、ずっと AddressFont と ZipFont を覚えておくなら、Dispose はフォームを閉じる時でしょうか。 [前スレ] http://madia.world.coocan.jp/cgi-bin/vbnet/wwwlng.cgi?print+200901/09010002.txt >案4 であれば、たとえば > Private b As Brush > Private f As Font もともと前スレに書いてある通り New はしてません。 フォントとして使用するのは f １つだけです。 それを > f.Dispose() '以前のフォントを破棄 > f = New Font(〜〜) '新たなフォントを割り当て と、書いてある通りのことをしてください。 フォントの処理だけ対応すれば Sub PrintDocument1_PrintPage(…) f = New Font("MS 明朝",15,FontStyle.Bold) ' ZipFontを割り当て '郵便番号 e.Graphics.DrawStrings(ZipString, f, ZipBrush, ZipX, ZipY) f.Dispose() '以前のフォントを破棄 f = New Font("MS 明朝",24,FontStyle.Bold) 'AddressFontを割り当て '住所 e.Graphics.DrawStrings(AddressString, f, AddressBrush, AddressX, AddressY) f.Dispose() '以前のフォントを破棄 End Sub