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

名前

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

本文 > の様にブラシとフォントを作っておいて 作成したオブジェクトは、使用後に必ず「Dispose メソッド」で破棄してください。 破棄しない場合、ガベージコレクトされるまでオブジェクトが解放されないため、リソースを圧迫してしまいます。 > フォントの変え方を教えて下さい。 ん? ブラシと大差ないと思いますけれども。 f.Dispose() '以前のフォントを破棄 f = New Font(〜〜) '新たなフォントを割り当て ですよね。 > Private Sub Button_Click() > b.Color=Color.Black:x=100:y=100:PrintDocument1.Print() > b.Color=Color.Red:x=300:y=300:PrintDocument1.Print() > End Sub PrintDocument の Print メソッドは「印刷開始」の指示なので、 一度しか呼びません。 今回指示したいのは、「文字列の描画」の方ですから、2 度呼ぶのは Graphics.DrawStrings (VB6 でいうところの Printer.Print) の方です。 .NET の PrintPage イベントは、印刷するページ数分だけ発生します。 # 2 ページ以上の印刷をする場合は、PrintPage イベント内で、 # 「まだ次のページの印刷データがあるよ」と教えるために、 # e.HasMorePage を True に設定します（最終ページでは False にする） 今回の場合、1 ページ内に複数のフォントを使いたいだけなので、 ひとつの PrintPage イベント内にて Sub PrintDocument1_PrintPage(…) '郵便番号 e.Graphics.DrawStrings(ZipString, ZipFont, ZipBrush, ZipX, ZipY) '住所 e.Graphics.DrawStrings(AddressString, AddressFont, AddressBrush, AddressX, AddressY) End Sub のように書けば OK です。 ついでに、複数ページへの出力の場合についても。 # VB6 の方が理解が早いようなので、VB6 側の方から話をしていきます。 VB6 の印刷処理(Print オブジェクト)は、イベントを持っていませんよね。 たとえば、3ページ印刷するためのコードとして、 Sub Command1_Click() Printer.Font.Size = 15 Printer.Print "１ページ目" Printer.NewPage Printer.Font.Size = 12 Printer.Print "２ページ目" Printer.NewPage Printer.Font.Size = 9 Printer.Print "３ページ目" Printer.EndDoc End Sub のような処理があったのであれば、それを見直して、 Sub Command1_Click() Call 印刷処理の1ページ目 Call 印刷処理の2ページ目 Call 印刷処理の3ページ目 Call Printer.EndDoc End Sub あるいは、 Sub Command1_Click() For page = 1 To 3 Call 印刷処理(page) '★描画処理の本体★ Next Call Printer.EndDoc() End Sub というコードに置き換えてみてください。 それができれば、修正後のコードを .NET に置き換えるのも容易なハズです。 '---- .NET 版 ---- Private currentPageNumber As Integer = 0 Sub Button1_Click(…) currentPageNumber = 0 PrintDocument1.Print() '印刷処理を実行 End Sub Sub PrintDocument1_PrintPage(…) currentPageNumber += 1 Call 印刷処理(currentPageNumber) '★描画処理の本体★ If currentPageNumber = 3 Then e.HasMorePages = False currentPageNumber = 0 Else e.HasMorePages = True End If End Sub