HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS


VB.NET 2005の開発でお困りのことはありませんか?
そんな悩みは当サイトで解決!!

HOME > VB.NET 2005 Tips > コントロール > PrintDocument Tips メニュー

05.描画単位をミリメートルにする

UPDATE:2007/07/24 

<< 前のTips  次のTips >>

 

 描画単位をミリメートル単位で指定できるようにするには、PrintPageイベントの引数PrintPageEventArgsオブジェクトのGraphics プロパティに格納されている、PageUnitプロパティでGraphicsUnit.Millimeterを指定します。

 
サンプル
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '印刷を実行
    PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
        ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

    Dim g As Graphics = e.Graphics

    '長さの単位をミリメートルにする
    g.PageUnit = GraphicsUnit.Millimeter

    '文字列を描く(左から10mm、上から20mmの位置)
    g.DrawString("文字列を印刷します。", _
                New Font("MS Pゴシック", 12), Brushes.Black, _
                10, 20)

    'このページで終了
    e.HasMorePages = False
End Sub
 

<< 前のTips  次のTips >>