掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
任意文字列の直接印刷の方法は？ (ID:141116)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いろいろ試行しましたが，下記の方法でうまくいきました。 図形も，線，円，四角等を自由に描けました。 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 Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim g As Graphics = e.Graphics g.PageUnit = GraphicsUnit.Millimeter'mm単位指定 g.DrawString("任意の文字列",New Font("フォント名", フォントサイズ), Brushes.Black, x位置, y位置) End Sub もちろんフォント名やペン名を別に定義して代入する方法もOKです。 花ちゃんさんありがとうございました。改めてお礼申し上げます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.