tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルテキストファイルを印刷する方法
記事No6670
投稿日: 2007/12/14(Fri) 09:52
投稿者いと
お世話になっております。

WindowsXP VB.NETで釦を押したときにテキストファイルをそのまま印刷したいと考えています。
どのようなコマンドを使用すれば良いのでしょうか?

よろしくお願いします。

[ツリー表示へ]
タイトルRe: テキストファイルを印刷する方法
記事No6671
投稿日: 2007/12/14(Fri) 10:08
投稿者花ちゃん
> WindowsXP VB.NETで釦を押したときにテキストファイルをそのまま印刷したいと考えています。
> どのようなコマンドを使用すれば良いのでしょうか?

まず、ここのTips集の印刷関係をご覧になってから解らない部分をご質問下さい。

[ツリー表示へ]
タイトルRe: テキストファイルを印刷する方法
記事No6673
投稿日: 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

[ツリー表示へ]