タイトル | : Re: テキストファイルを印刷する方法 |
記事No | : 6673 |
投稿日 | : 2007/12/14(Fri) 17:33 |
投稿者 | : ゆうき |
> WindowsXP VB.NETで釦を押したときにテキストファイルをそのまま印刷したいと考えています。
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.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() Dim stream As New System.IO.StreamReader("c:\hoge.txt", System.Text.Encoding.Default) TextBox1.Text = stream.ReadToEnd stream.Close() End Sub
まあこんなところでしょう。フォントやテキストファイルなどは自由に設定します。
あとは、花ちゃんさんの言うとおりです。 わざわざこのホームページの掲示板に書き込むのであれば、 このホームページのサンプルぐらい見たらどうですか? http://hanatyan.sakura.ne.jp/dotnet/PrintFle.htm
|