玄関へお回り下さい。
印刷位置をmm単位で指定しての簡単なテキストの印刷 (2個)             (SNo.054)

1.印刷位置をmm単位で指定する
2.テキストボックスの内容を印刷する
使用コントロール Button1  TextBox1 PrintDocument1
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
 
★ 印刷位置をmm単位で指定しての簡単なテキストの印刷
 
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 ObjectByVal e As System. _
            Drawing.Printing.PrintPageEventArgs) 
Handles PrintDocument1.PrintPage
'印刷位置をmm単位で指定しての簡単なテキストの印刷
    'テキストボックスの内容を印刷
   
Dim g As Graphics = e.Graphics
    'ミリメートルを長さの単位に指定します。
    g.PageUnit = GraphicsUnit.Millimeter
    g.DrawString("■ 左から20mm 上から40mm の位置に印刷しました。", _
               
New Font("MS Pゴシック", 12), Brushes.Black, 20, 40)

'テキストボックスの内容を印刷する場合
    'g.DrawString(TextBox1.Text, _
    '            New Font("MS Pゴシック", 12), Brushes.Black, 0, 0)
End Sub

'テキストボックスの内容を印刷する場合に下記で印刷物をご用意下さい。
Private Sub Form1_Load(ByVal sender As System.Object, _
           
ByVal e As System.EventArgs) Handles MyBase.Load
'テキストファイルを丸ごと読み込みテキストボックスに表示
    TextBox1.Clear()
    'テキストファイルを現在のエンコード(シフトJIS)で開く
   
Dim sr As New System.IO.StreamReader("..\..\test.txt", System.Text.Encoding.Default)
    'テキストボックスに読込み表示
    TextBox1.Text = sr.ReadToEnd
    'ストリームを閉じ、システム リソースを解放
    sr.Close()
End Sub
 





2004/05/10
2005/09/25


VBレスキュー(花ちゃん)
VB.NET2003  VB2005