プログラムの概要
事務処理に於いて、集計結果等を印刷し て、確認等を行う事も多い為、ペーパー レスオフィスが推奨される昨今に於い ても、矢張り印刷に関する技術は必要で 有る。 Visual Basic か ら 印 刷 を 行 う 方 法 は、.NET 以降 PrintDocument オブジ ェクトを使用する方法が標準機能と仕 て一般的で有るが、Professional 版等で はReportView や CrystalReport を利用 する事も可能で有る。亦、Power Packs 2 では、視覚的確認が容易な FormPrint が、機能を向上させて復活して居る。 此処では、Access データベースのデータ を、データセットに読み取り、此の情報 を、DataGridView にデータバインディングして表示すると共に、PrintDocument を用いて印刷を行う。印刷Ⅱ
VB 2005 ② □ System.Data.OleDb 名前空間（Access データベースの操作） □ System.Drawing.Printing 名前空間（印刷関連のサービスを提供） □ System.Drawing.Printing.PageSettings クラス（印刷方法に関する情報を指定） □ System.Drawing.Printing.PrintDocument クラス（プリンタに出力を送信） □ PrintDocument コントロール（Print メソッド、PrintPage イベント）□ PrintPreviewDialog コントロール（Document プロパティ、ShowDialog メソッド） □ 印刷設定（PrintDocument.DefaultPageSettings プロパティ）
□ Graphics オブジェクト（PrintPageEventArgs 引数の Graphics プロパティ） 今回の課題項目
□ System.Drawing.Printing 名前空間（印刷関連のサービスを提供）
□ System.Drawing.Printing.PageSettings クラス（印刷方法に関する情報を指定） □ System.Drawing.Printing.PrintDocument クラス（プリンタに出力を送信） □ PrintDocument コントロール（Print メソッド、PrintPage イベント）
□ PrintPreviewDialog コントロール（Document プロパティ、ShowDialog メソッド） 今回の重点項目
■ オブジェクト･プロパティ一覧 ■ コントロールの種類 プロパティ プロパティの設定値 フォーム name PrintDocumentPrint Text PrintDocument 印刷 FormBorderStyle FixedSingle StartPosition CenterScreen Icon printer.ico ラベル name lblTitle AutoSize False BackColor Black Font ＭＳ明朝、太字、１４ ForeColor White Text サークル名簿 TextAlign MiddleCenter ピクチャボックス name picLogo Image tai.ico ボタン１ name btnPrint Text 空白 Image printer.bmp BackColor White ボタン２ name btnPreview Text 空白 Image csv.bmp BackColor White ボタン３ name btnExit Text 空白 Image exit.bmp BackColor White
DataGridView name dgvDisp
PrintDocument name pdcCircle
PrintPreviewDialog name ppdCircle
DataGridView ラベル
ボタン１
ピクチャボックス
■ プログラムリスト ■ Imports System.Data.OleDb
Imports System.Drawing.Printing
Imports System.Drawing.Printing.PageSettings Public Class PrintDocumentPrint
' 同一クラス内でグローバルな変数の宣言 Private Cn As OleDbConnection Private Ds As DataSet Private Da As OleDbDataAdapter Private Px( ) As Single = { 0, 20, 40, 60, 80, 140, 170 } ' フォームが読み込まれた時の処理
Private Sub PrintDocumentPrint_Load(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Load
Dim F As String
' データファイル（MDB ファイル）のフルパスの設定
F = Application.StartupPath : If Not F.EndsWith("¥") Then F &= "¥" F &= "サークル名簿.mdb"
' データベースへの接続情報の設定
Cn = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & F )
' データアダプタの生成
Da = New OleDbDataAdapter( "SELECT * FROM サークル名簿", Cn ) ' データセットの生成 Ds = New DataSet ' SQL の発行と取得したデータのデータセットへの格納 Da.Fill( Ds, "CIRCLE" ) ' DataGridView へのデータバインディング dgvDisp.DataSource = Ds dgvDisp.DataMember = "CIRCLE" End Sub ' フォームが閉じられ様と仕た時の処理
Private Sub PrintDocumentPrint_FormClosing _
(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing ' オブジェクト型変数の破棄 Ds.Dispose( ) Da.Dispose( ) Cn.Close( ) Cn.Dispose( ) End End Sub 各項目の印刷開始位置は、ファイ ルから読み込む様にすれば、保守 性が良く成るので、利用する事を 推奨する。 此処で宣言した変数は宣言したサ ブプロシージャ内でしか値の参照 と設定を行う事が出来ない。
' ボタン（印刷かプレビュー）がクリックされた時の処理
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnPrint.Click, btnPreview.Click
' 用紙サイズの設定
Dim PS As System.Drawing.Printing.PaperSize
For Each PS In pdcCircle.PrinterSettings.PaperSizes If PS.Kind = PaperKind.A4 Then
pdcCircle.DefaultPageSettings.PaperSize = PS End If Next ' 印刷方向の設定（True：横向き、False：縦向き） pdcCircle.DefaultPageSettings.Landscape = False ' 印刷部数の設定（１部） pdcCircle.DefaultPageSettings.PrinterSettings.Copies = 1 ' 解像度の設定（高解像度） pdcCircle.DefaultPageSettings.PrinterResolution.Kind = PrinterResolutionKind.High ' カラーモードの設定（True：カラー印刷、False：モノクロ印刷） pdcCircle.DefaultPageSettings.Color = False ' マージン（余白）の設定 ' プリンタが自動的にマージンを設定しない場合
' pdcCircle.DefaultPageSettings.Margins = New Margins( 20, 20, 25, 25 ) ' プリンタが自動的にマージンを設定する場合
pdcCircle.DefaultPageSettings.Margins = New Margins( 0, 0, 0, 0 )
' 印刷開始
If sender.Equals( btnPrint ) Then pdcCircle.Print( ) Else ppdCircle.Document = pdcCircle ppdCircle.ShowDialog( ) End If End Sub ' ボタン（終了）がクリックされた時の処理
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Dispose( ) End Sub
' Print メソッドが呼び出された時に自動的に行われる処理（印刷の実行） Private Sub pdcCircle_PrintPage _
(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _ Handles pdcCircle.PrintPage
Dim G As Graphics = e.Graphics Dim S As String = ""
Dim F As Font = New Font( "ＭＳ 明朝", 10.0!, FontStyle.Regular )
' 用紙サイズとマージンの取得
Dim P As Rectangle = pdcCircle.DefaultPageSettings.Bounds ' 用紙サイズ（1/100inch） Dim M As Margins = pdcCircle.DefaultPageSettings.Margins ' マージン （1/100inch） Dim L As Double = M.Left
此処で設定して居るプロパティの 中には、デフォルトプロパティで 特に設定する必要の無い物も在る が、明示的に記述して置く事が望 ましい。 Print メソッドを実行すると、自 動的に印刷処理を行うPrintPage イベントが呼び出される。 PrintPreviewDialog を使用する と、印刷プレビューを表示させる 事が出来る。
Dim T As Double = M.Top
Dim W As Double = P.Width - ( M.Left + M.Right )
L = PrinterUnitConvert.Convert(L, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 T = PrinterUnitConvert.Convert(T, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 W = PrinterUnitConvert.Convert(W, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 Dim Li As Integer = System.Convert.ToInt32( L )
Dim Ti As Integer = System.Convert.ToInt32( T ) Dim Wi As Integer = System.Convert.ToInt32( W )
' 描画単位の設定（ミリメートル） G.PageUnit = GraphicsUnit.Millimeter
' ヘッダ部分の出力（自作メソッドの呼出） Call PrintHeader( G, Wi, Li, Ti )
' データの出力
With Ds.Tables( "CIRCLE" )
For I As Integer = 0 To ( .Rows.Count - 1 ) For J As Integer = 0 To 6
S = .Rows( I ).Item( J ).ToString
G.DrawString( S, F, Brushes.Black, Li + Px( J ), I * 5 + 24 ) Next Next End With End Sub ' ヘッダ部分を出力するジェネラルプロシージャ Private Sub PrintHeader _
(ByVal G As Graphics, ByVal W As Integer, ByVal L As Integer, ByVal T As Integer)
Dim B As Brush = Brushes.Black
Dim F As Font = New Font( "ＭＳ 明朝", 14.0!, FontStyle.Bold ) Dim S As SizeF = G.MeasureString( "サークル名簿", F )
' タイトル枠の描画
G.FillRectangle( B, L, T, W, 12 )
G.DrawImage( picLogo.Image, L + 2, T + 2 )
Dim X As Single = ( W - System.Convert.ToSingle( S.Width )) / 2 Dim Y As Single = ( 12 - System.Convert.ToSingle( S.Height )) / 2 G.DrawString( "サークル名簿", F, Brushes.White, L + X, T + Y )
' 列見出しの描画
F = New Font( "ＭＳ 明朝", 10.0!, FontStyle.Bold ) G.DrawString( "登録番号", F, B, L + Px( 0 ), T + 15 ) G.DrawString( "氏名", F, B, L + Px(1), T + 15 ) G.DrawString( "フリガナ", F, B, L + Px( 2 ), T + 15 ) G.DrawString( "郵便番号", F, B, L + Px( 3 ), T + 15 ) G.DrawString( "住所", F, B, L + Px( 4 ), T + 15 ) G.DrawString( "電話番号", F, B, L + Px( 5 ), T + 15 ) G.DrawString( "職業", F, B, L + Px( 6 ), T + 15 ) G.DrawLine( Pens.Black, 0, 20, W, 20 ) G.DrawLine( Pens.Black, 0, 22, W, 22 ) End Sub End Class 印刷の位置指定には、ミリメート ルを使用すると解り易い。因みに A4 用紙のサイズは 210x297mm で有る。亦、B4 用紙のサイズは 250x354mm で有る。 複数のプロパティを設定する場合 は、With ステートメントを用いる と、パフォーマンスが向上する。 複数の個所で使用される可能性の 有るコードはジェネラルプロシー ジャ化して置く事が望ましい。 ジェネラルプロシージャは、イベ ントプロシージャのカウンター パートと成る語で、イベントが発 生すると自動的に呼び出される イベントプロシージャとは異な り、プログラム中で明示的に呼び 出さなければ、実行される事の無 いプロシージャで有る。従来のサ ブルーチンと謂う名前で呼ばれ る事も有る。 レコード数は、DataSet 内の指定 したテーブルのRows.Count で取 得する事が出来る。
印刷処理の流れ
Visual Basic.NET 以降では、Windows フォームからの印刷は、ドキュメント指向的で、イベント駆動 型の処理で有る。実際の処理に於いては、汎用的なPrintDocument オブジェクト（PrintDocument コ ントロール等）を使用するか、又は、PrintDocument 派生クラスを実装する事に成る。印刷処理の処 理手順は、下記の通りで有る。 PrintDocument オブジェクトの Print メソッドを実行 すると、自動的にBeginPrint イベントが発生する。 BeginPrint イベントでは、PrintPage イベントで使用 するフォント等のオブジェクトを初期化する場所と仕 て適して居るが、必要が無ければ、省略しても良い。 次に、QueryPageSettings イベントが発生する。此の イベントは、PrintPage イベントが発生する度に、其の 直前に発生する為、QueryPageSettingsEventArgs の PageSettings プロパティを書き換えれば、ページ毎に 異なるページ設定を行う事が出来るが、此れも、必要が 無ければ、省略しても良い。 次に、PrintPage イベントが発生する。此のイベントで は、実際に印刷する内容を、グラフィックスと仕て描画 する。実際に描画するには、PrintPageEventArgs の Graphics プロパティを、下記の様に仕て使用する。
Dim G As Graphics = e.Graphics
実際の印刷（プリントアウト）は、此のイベントプロシージャを抜け出した時に行われる（Visual Basic 6.0 以前の様に、印刷を開始する EndDoc メソッドや改ページを行う NewPage メソッドは無い為、以 前のバージョンの利用者は、注意が必要で有る）。
PrintPage イベントを抜け出した時、PrintPageEventArgs の HasMorePages プロパティが False に設 定されて居る場合は、EndPrint イベントが発生する。
此のイベントでは、一般に、印刷終了のメッセージを表示する等の後処理を行うが、此れも、必要が無 ければ、省略しても良い。
亦、PrintPage イベントを抜け出した時、PrintPageEventArgs の HasMorePages プロパティが True に設定されて居る場合は、QueryPageSettings イベントが発生し、更に、PrintPage イベントが発生す る。
複数ページの印刷を連続して行う場合、此のPrintPageEventArgs の HasMorePages プロパティを利 用する事に成るが、此のプロパティに True を設定した時点で、1 ページ分の印刷が行われる訳ではな い事に注意を要する（即ち、Visual Basic 6.0 以前の Printer オブジェクトの EndDoc メソッドと同等 の処理を行う物ではない）。飽く迄も、実際に印刷が開始されるのは、前述の様に、PrintPage イベン トを抜け出した時で有る。 Print メソッド BeginPrint イベント PrintPage イベント PrintPageEventArgs の Graphics プロパティを使用して印刷内容を 描画（文字列を含む）する。 HasMorePages プロパティ QueryPageSettings イベント EndPrint イベント True False
印刷範囲の設定
用紙サイズは、下記の様に PrintDocument オブジェクトの DefaultPageSettings.Bounds プロパティ に依り、1/100 インチ単位で取得する事が出来る。
Dim P As Rectangle = Object.DefaultPageSettings.Bounds
亦、設定されて居るマージンの値は、PrintDocument オブジェクトの DefaultPageSettings.Margins プロパティに依り、1/100 インチ単位で取得する事が出来る。
Dim M As Margins = Object.DefaultPageSettings.Margins
猶、下記の様に、用紙サイズの横幅と縦幅はWidth と Height に依り、亦、上下左右のマージンの値は Top、Bottom、Left、Right に依り、1/100 インチ単位で取得する事が出来る。
Dim L As Double = M.Left : Dim R As Double = M.Right Dim T As Double = M.Top : Dim B As Double = M.Bottom
従って、実際に印刷可能な範囲は、下記の様に、印刷可能な横幅は、用紙の横幅から左右のマージンの 合計を引いた物に成り、亦、印刷可能な縦幅は、用紙の縦幅から上下のマージンの合計を引いた物に成 る。
Dim W As Double = P.Width - (M.Left + M.Right) Dim H As Double = P.Height - (M.Top + M.Bottom)
上記の各々の値を図示すると、右図の様に成る。外枠が用紙全体を表 し、内枠の斜線部が印刷可能な範囲を表す。 右図に於いて、H と W、及び、T と L で表される値は、印刷内容の描 画に於いて、特に重要な意味を持つ。H と W の値を超えた描画は、印 刷されない可能性が有り、亦、T と L は、描画開始位置を指定するの に必要な値と成る。 此等の値のスケールは、1/100 インチ単位で有り、インチを長さの単位 と仕て使用する事に成れて居ない場合は、PrinterUnitConvert オブジ ェクトのConvert メソッドを使用して、使い慣れたスケールに変換す ると良い。下記に、ミリメートルに変換するコード例を示す。
L = PrinterUnitConvert.Convert(L, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 T = PrinterUnitConvert.Convert(T, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 W = PrinterUnitConvert.Convert(W, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 H = PrinterUnitConvert.Convert(H, PrinterUnit.Display, PrinterUnit.TenthsOfAMillimeter) / 10 Dim Li As Integer = System.Convert.ToInt32(L)
Dim Ti As Integer = System.Convert.ToInt32(T) Dim Wi As Integer = System.Convert.ToInt32(W) Dim Hi As Integer = System.Convert.ToInt32(H)
※ 上記では、最終的に Integer 型に変換して居るが、Double 型の儘でも、特に問題は無い。 P.Width P.Height W H T L
PrintDocument クラスの DefaultPageSettings プロパティに依る印刷の設定 印刷する総てのページの既定値と仕て使用されるページ設定を取得・設定する。DefaultPageSettings プロパティで取得、又は、設定出来る項目には、下記の物が有る。 名前 説明 Bounds 用紙方向が考慮されたページのサイズを取得する。 Rectangle クラスのインスタンスで取得する。 Color ページを色付きで印刷するか何うかを示す値を取得・設定する。 ブール値（True か Flase）で指定する。 HardMarginX ページの左側のハードマージンのx 座標（1/100 インチ単位）を取得する。 Single 型で取得する。 HardMarginY ページの上部のハードマージンのy 座標（1/100 インチ単位）を取得する。 Single 型で取得する。 Landscape ページの印刷時に用紙を向き（横か縦）を示す値を取得・設定する。 ブール値（True か Flase）で指定する。 Margins 此のページの余白を取得・設定する。 Margins クラスのインスタンスで指定する。 PaperSize ページの用紙サイズを取得・設定する。 System.Drawing.Printing.PaperKind 列挙体で指定する。 PaperSource ページの給紙方法（例えば、プリンタの上段トレイ）を取得・設定する。 Kind System.Drawing.Printing.PaperSourceKind 列挙体で取得する。 SourceName String 型で取得する。 PrintableArea プリンタのページの印刷可能領域の範囲を取得する。 RectangleF クラスのインスタンスで取得する。 PrinterResolution ページのプリンタ解像度を取得・設定する。 Kind System.Drawing.Printing.PrinterResolutionKind 列挙体で指定する。 X と Y Integer 型で指定する。 PrinterSettings ページに関連するプリンタ設定を取得・設定する。 System.Drawing.Printing.PrinterSettings クラスのメンバで指定する。 上記の内、PaperSource、PrinterResolution、PrinterSettings 項目は、更に下層の詳細項目の取得や 設定を行う事が出来る。 猶、上記には記述して居ないが、PrinterSettings 項目には、System.Drawing.Printing.PrinterSettings クラスの総てのメンバ（例えば、Copies や Duplex）を使用する事が出来る。 亦、PaperSize 項目の設定は、用紙の名称や種類を表す値を直接代入する事は出来ず、下記の様に仕て 設定する。 Dim PS As System.Drawing.Printing.PaperSize
For Each PS In PrintDocumentObject.PrinterSettings.PaperSizes If PS.Kind = PaperKind.A4 Then
' 又は、If PS.PaperName = "B5" Then
PrintDocumentObject.DefaultPageSettings.PaperSize = PS End If
PrintDocument クラスの Print メソッドに依る印刷の開始 ドキュメントの印刷プロセスを開始するメソッド
Object.Print( )
PrintPage イベントを処理し、PrintPageEventArgs に含まれて居る Graphics を使用して 印刷する出力を指定する。
上記のObject には、PrintDocument コンポーネント、又は、PrintDocument オブジェクトを指定する。 通常は、印刷を開始する前に、PrinterSettings.PrinterName プロパティを使用して、ドキュメントを 印刷するプリンタを指定する。此の指定を行わない場合は、既定のプリンタが使用される。 Print メソッドは、印刷ダイアログを使用せずにドキュメントを印刷する。其の為、ユーザーが印刷設 定を選択出来る様にする場合は、PrintDialog を使用する。 猶、Print メソッドで処理されない例外が印刷中に発生した場合、ドキュメントの印刷は中止される。 PrintPreviewDialog コントロールに依る印刷プレビューの表示 PrintPreviewDialog コントロールは、通常、印刷する前にドキュメントを表示する為に使用するダイ アログボックスで有る。 PrintPreviewDialog コントロールを表示するには、他のダイアログボックスと同様に、ShowDialog メ ソッドを使用する。猶、表示を開始する前に、此のDocument プロパティに、印刷対象ドキュメントと 成るPrintDocument クラスのインスタンスを指定する必要が有る。 ※ PrintPreviewDialog コントロールを使用するには、ユーザーのコンピュータにローカルかネットワ ークでプリンタがインストールされて居る必要が有る。此れは、PrintPreviewDialog コンポーネン トが、インストールされて居るプリンタに基づいて、印刷時にドキュメントの表示が何の様に成る かを決定する為で有る。
PrintPreviewDialog コントロールでは、PrintDialog コンポーネントと同様に、PrinterSettings クラ スを使用する。亦、PageSetupDialog コンポーネントと同様に、PageSettings クラスも使用する。更 に、PrintPreviewDialog コントロールの Document プロパティで指定された印刷ドキュメントは PrinterSettings クラスと PageSettings クラス両方のインスタンスを参照して居り、此等のインスタン スは、プレビューウィンドウのドキュメントを提供する為に使用される。
下記に、PrintPreviewDialog コントロールに依り印刷プレビューを表示するコード例を示す。 PrintPreviewDialog コントロール.Document = PrintDocument コントロール
PrintPreviewDialog コントロール.ShowDialog( ) 猶、上記では、PrintDocument コントロールと記述して居るが、特にコントロールで有る必要はなく コードで生成したPrintDocument クラスのインスタンスでも良い。亦、PrintPreviewDialog コントロ ールも、特にコントロールで有る必要はなくコードで生成した PrintPreviewDialog クラスのインスタ ンスでも良い。 機 能 書 式 解 説
PrintDocument クラスの PrintPage イベントに依る印刷の実行 現在のページに印刷する出力が必要な時に発生する。此のイベントは、PrintDocument クラスの Print メソッドが呼び出された時に、自動的に発生する。 印刷する出力を指定するには、此のイベントのPrintPageEventArgs 引数に含まれて居る Graphics を 使用する。例えば、印刷するテキストを指定するには、System.Drawing.Graphics.DrawString メソッ ドを使用して、下記の様に、テキストを描画する。
Dim G As Graphics = e.Graphics
G.DrawString("烏賊", New Font("ＭＳ 明朝", 10.0!, FontStyle.Bold), Brushes.Black, 10.0!, 10.0!) 下記に、Graphics クラスの主な描画メソッドを示す。 名前 説明 Clear 描画面を消去し、指定した背景色で塗り潰す。 DrawArc 円弧を描画する。 DrawBezier ベジエスプラインを描画する。 DrawBeziers 一連のベジエスプラインを描画する。 DrawClosedCurve 閉じたカーディナルスプラインを描画する。 DrawCurve カーディナルスプラインを描画する。 DrawEllipse 楕円を描画する。 DrawIcon Icon イメージを描画する。 DrawIconUnstretched Icon イメージをスケーリングしないで描画する。 DrawImage イメージを元のサイズで描画する。 DrawImageUnscaled イメージを元の物理サイズで描画する。 DrawImageUnscaledAndClipped イメージをスケーリングせずに描画する。 DrawLine 直線を描画する。 DrawLines 一連の線分を描画する。 DrawPath GraphicsPath を描画する。 DrawPie 扇形を描画する。 DrawPolygon 多角形を描画する。 DrawRectangle 四角形を描画する。 DrawRectangles 一連の四角形を描画する。 DrawString 文字列を描画する。 FillEllipse 楕円を描画する。 FillPath 内部を塗り潰したGraphicsPath を描画する。 FillPie 内部を塗り潰した扇形を描画する。 FillPolygon 内部を塗り潰した多角形を描画する。 FillRectangle 内部を塗り潰した四角形を描画する。 FillRectangles 内部を塗り潰した一連の四角形を描画する。 FillRegion 内部を塗り潰したRegion を描画する。 MeasureString 指定したFont で描画した場合の文字列を計測する。
出力を指定する他に、PrintPageEventArgs 引数に含まれて居る HasMorePages プロパティを True に 設定する事に依り、印刷する追加ページが有るか何うかを指定する事が出来る。既定値はFalse で、印 刷するページが終了した事を示す。亦、PrintPageEventArgs 引数に含まれて居る PageSettings を使 用して、個別のページ設定を変更する事が出来る。更に、PrintPageEventArgs 引数に含まれて居る Cancel プロパティを True に設定する事に依り、印刷ジョブを取り消す事も出来る。
