VB.net : 印刷サンプルスケルトン

  VS2008/VB.net プロジェクトのダウンロード



ブラウザでダウンロード 

ソースコード

1) Form1.vb
	Public Class Form1
	メインフォームの処理

2) print.vb
	Partial Class Form1
	印刷プレビューダイアログの設定

3) print_doc.vb
	Partial Class Form1
	印刷処理

印刷処理とは直接関係ありませんが、メニューとステータスバーを付加して、
イベントを他の場所から呼び出すサンプルにしてあります。

print.vb　では、印刷プレビューダイアログのデフォルトの印刷ボタンだと、
クリック後すぐ印字処理になるので、プリンタを選択できるように改造してい
ます。

print_doc.vb は、実際の印刷処理ですが、マージンを使って印刷領域
にラインを引いており、内部に行と x 座標で文字列を２箇所印字しています。

Print_sample



  print_doc.vb



行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Partial Class Form1
02. 
03.    ' 印刷用オブジェクトと変数
04.    Private pf As Font = New Font("ＭＳ 明朝", 12)
05.    Private prContext As System.Drawing.Graphics
06.    Private topMargin As Integer
07.    Private leftMargin As Integer
08. 
09.    ' ******************************************************
10.    ' 実際の印刷処理
11.    ' ******************************************************
12.    Private Sub pd_PrintPage(ByVal sender As System.Object, _
13.    ByVal e As System.Drawing.Printing.PrintPageEventArgs)
14. 
15.        ' 左側余白
16.        leftMargin = e.MarginBounds.Left
17.        ' 上側余白
18.        topMargin = e.MarginBounds.Top
19.        ' 現在のコンテキストを取得
20.        prContext = e.Graphics
21. 
22.        ' 上部上限ライン
23.        prContext.DrawLine( _
24.         Pens.Black, _
25.         leftMargin, _
26.         topMargin, _
27.         leftMargin + (e.PageBounds.Width - 2 * leftMargin), _
28.         topMargin _
29.         )
30. 
31.        ' 左側ライン
32.        prContext.DrawLine( _
33.         Pens.Black, _
34.         leftMargin, _
35.         topMargin, _
36.         leftMargin, _
37.         topMargin + (e.PageBounds.Height - 2 * topMargin) _
38.         )
39. 
40.        ' 右側ライン
41.        prContext.DrawLine( _
42.         Pens.Black, _
43.         leftMargin + (e.PageBounds.Width - 2 * leftMargin), _
44.         topMargin, _
45.         leftMargin + (e.PageBounds.Width - 2 * leftMargin), _
46.         topMargin + (e.PageBounds.Height - 2 * topMargin) _
47.         )
48. 
49.        ' 下部下限ライン
50.        prContext.DrawLine( _
51.         Pens.Black, _
52.         leftMargin, _
53.         topMargin + (e.PageBounds.Height - 2 * topMargin), _
54.         leftMargin + (e.PageBounds.Width - 2 * leftMargin), _
55.         topMargin + (e.PageBounds.Height - 2 * topMargin) _
56.         )
57. 
58.        PrString(10, 100, "日本語表示")
59.        PrString(1, 0, "日本語表示")
60. 
61.        ' 次のページがある場合は、True
62.        ' ここでは、1行印字して終わり
63.        e.HasMorePages = False
64. 
65. 
66.    End Sub
67. 
68.    ' ******************************************************
69.    ' 文字列を指定行の先頭から印字
70.    ' ******************************************************
71.    Private Sub PrString(ByVal row As Integer, ByVal x As Integer, ByVal str As String)
72. 
73.        Dim yPos As Integer = 0
74.        ' フォントの高さで一行の高さを決定
75.        yPos = topMargin + (row - 1) * pf.GetHeight(prContext)
76.        ' 印字可能な左端から文字列をセットする
77.        prContext.DrawString(str, pf, Brushes.Black, leftMargin + x, yPos)
78. 
79.    End Sub
80. 
81.End Class


関連する記事

VB.NET : 印刷(2)
VB.NET : 印刷(3)
【VB.NET】印刷処理サンプル



  print.vb

行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Partial Class Form1
02. 
03.    ' 印刷処理の実体の定義
04.    Private pd As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument
05. 
06.    ' プリンタ選択ダイアログ
07.    Private prtDialog As PrintDialog = New PrintDialog()
08. 
09.    ' **********************************************
10.    ' 印刷プレビューの初期化
11.    ' **********************************************
12.    Private Sub 印刷プレビューダイアログ_Load( _
13.    ByVal sender As System.Object, _
14.    ByVal e As System.EventArgs) Handles 印刷プレビューダイアログ.Load
15. 
16.        ' デスクトップ左上
17.        印刷プレビューダイアログ.DesktopLocation = New System.Drawing.Point(0, 0)
18. 
19.        ' 印刷ドキュメント設定
20.        Me.印刷プレビューダイアログ.Document = pd
21. 
22.        ' =====================================================
23.        ' ここから印刷ボタンの改造
24.        ' =====================================================
25.        ' 現在の印刷アイコンを取得
26.        Dim tool As ToolStrip = 印刷プレビューダイアログ.Controls(1)
27.        Dim img As System.Drawing.Image = tool.Items(0).Image
28. 
29.        ' 新しいツールバー用ボタンを作成
30.        Dim ToolStripButton1 As New System.Windows.Forms.ToolStripButton()
31.        ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
32.        ' 取得したイメージをセット
33.        ToolStripButton1.Image = img
34.        ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
35.        ToolStripButton1.Name = "ToolStripButton1"
36.        ToolStripButton1.Size = New System.Drawing.Size(23, 22)
37.        ToolStripButton1.Text = "プリンタ選択"
38.        ' 現在の印刷ボタンを削除
39.        tool.Items.RemoveAt(0)
40.        ' 新しい印刷ボタンを追加
41.        tool.Items.Insert(0, ToolStripButton1)
42.        ' ボタンにイベント登録
43.        AddHandler ToolStripButton1.Click, AddressOf print_start
44.        ' =====================================================
45.        ' ここまで( 印刷ボタンの改造 )
46.        ' =====================================================
47. 
48.        ' プリンタ選択ダイアログの設定
49.        prtDialog.PrinterSettings = New System.Drawing.Printing.PrinterSettings()
50.        prtDialog.Document = pd
51. 
52.    End Sub
53. 
54.    ' ******************************************************
55.    ' 印刷ボタンの処理
56.    ' ******************************************************
57.    Private Sub print_start(ByVal sender As System.Object, _
58.      ByVal e As System.EventArgs)
59. 
60.        If prtDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
61.            pd.Print()
62.        End If
63. 
64.    End Sub
65. 
66.End Class


関連する記事

VB.NET : 印刷(1)
PrintPreviewDialog のツールバーの印刷ボタンでプリンタ選択を可能にする



  Form1.vb

行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Public Class Form1
02. 
03.    ' **********************************************
04.    ' 印刷_Click を呼び出すメニュー
05.    ' **********************************************
06.    Private Sub 印刷開始_MenuItem_Click( _
07.    ByVal sender As System.Object, _
08.    ByVal e As System.EventArgs) Handles 印刷開始_MenuItem.Click
09. 
10.        Call 印刷_Click(Me.印刷, e)
11. 
12.    End Sub
13. 
14.    ' **********************************************
15.    ' 通常の開始ボタン
16.    ' **********************************************
17.    Private Sub 印刷_Click( _
18.    ByVal sender As System.Object, _
19.    ByVal e As System.EventArgs) Handles 印刷.Click
20. 
21.        ' デバッグ出力
22.        Console.WriteLine(CType(sender, Button).Name)
23.        Console.WriteLine(e.ToString)
24. 
25.        ' 印刷プレビュー開始
26.        Me.印刷プレビューダイアログ.ShowDialog()
27. 
28.    End Sub
29. 
30.    ' **********************************************
31.    ' 初期処理
32.    ' **********************************************
33.    Private Sub Form1_Load( _
34.    ByVal sender As System.Object, _
35.    ByVal e As System.EventArgs) Handles MyBase.Load
36. 
37.        ' 1) ステータスバーへメッセージ
38.        ' ( 呼び出し先で引数を使わないので Nothing を使用 )
39.        Call 印刷_MouseLeave(Nothing, Nothing)
40. 
41.        ' 2) 印刷イベントの登録
42.        ' 印刷イベントをプレビューから呼び出せるように登録する
43.        AddHandler pd.PrintPage, AddressOf pd_PrintPage
44. 
45.    End Sub
46. 
47. 
48.    ' **********************************************
49.    ' マウス位置によるメッセージの変化
50.    ' **********************************************
51.    Private Sub 印刷_MouseEnter( _
52.    ByVal sender As System.Object, _
53.    ByVal e As System.EventArgs) Handles 印刷.MouseEnter
54. 
55.        Me.ステータス.Text = "クリックして下さい"
56. 
57.    End Sub
58. 
59.    Private Sub 印刷_MouseLeave( _
60.    ByVal sender As System.Object, _
61.    ByVal e As System.EventArgs) Handles 印刷.MouseLeave
62. 
63.        Me.ステータス.Text = "印刷処理サンプルです"
64. 
65.    End Sub
66. 
67.End Class









  infoboard   管理者用   




フリーフォントWEBサービス
フリーフォントで簡単ロゴ作成
アイコン・はんこ画像作成
フリーフォントで横書きロゴ作成
フリーフォントで縦書きロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し素材作成
フリーフォントで PDF 作成
デュアルフォント
書体見本
フリーフォント配布サイト
キーボード画像作成
フリーフォント ギャラリー
イラストACよりフリーダウンロード
UTF-8文字Tool
SQLの窓WEBサービス
リアルタイムHTML
テキスト変換
ストリートビューとMAPのコード
SyntaxHighlighter
Shadowbox 埋め込みコード作成

SQLの窓フリーソフト
SQLの窓 Build C++
販売管理B
「送る」に入れる簡易ダンプ
WMI Query
コンピュータアイコンメニュー
ドメイン内検索

素材
足成
Image * After
ぱくたそ
イラストAC
イラスト素材サイト

一般WEBツールリンク
WEB アーカイブ
疑わしいファイルや URL を分析する
HTML整形ツール
JSONLint
ttf to woff converter
Run Code
Twitter Card validator
Google URL Shortener
C#<->VB.NET

SQLの窓
logical　error
GINPRO
WAHA land
職人的フリーソフトの使い方
WEB 職人
ソース掲示板

フリーソフト
7-Zip
FileZilla
PrimoPDF(英語版)
GifCam
GIMP Portable
Classic Shell

JSライブラリ
jQuery
Lightbox
Shadowbox.js
The Google Hosted Libraries
cdnjs
Three.js