VB実用⑫　印刷Ⅱ（Printerオブジェクト）

Transcription

1 印刷 Ⅱ VB プログラムの概要 事務処理に於いて 集計結果等を印刷して 確認等を行う事も多い為 ペーパーレスオフィスが推奨される昨今に於いても 矢張り印刷に関する技術は必要で有る Visual Basic から印刷を行う方法は.NET 以降 PrintDocument オブジェクトを使用する方法が標準機能と仕て一般的で有るが Professional 版等では ReportView や CrystalReport を利用する事も可能で有る 亦 Power Packs 2 では 視覚的確認が容易な FormPrint が 機能を向上させて復活して居る 此処では Access データベースのデータを データセットに読み取り 此の情報を DataGridView にデータバインディングして表示すると共に PrintDocument を用いて印刷を行う 今回の課題項目 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 メソッド ) -1-

2 オブジェクト プロパティ一覧 ピクチャボックス ラベル DataGridView ボタン 1 ボタン 2 ボタン 3 コントロールの種類 プロパティ プロパティの設定値 フォーム name PrintDocumentPrint Text PrintDocument 印刷 FormBorderStyle FixedSingle StartPosition CenterScreen Icon printer.ico ラベル name lbltitle AutoSize False BackColor Black Font MS 明朝 太字 14 ForeColor White Text サークル名簿 TextAlign MiddleCenter ピクチャボックス name piclogo Image tai.ico ボタン1 name btnprint Text 空白 Image printer.bmp BackColor White ボタン2 name btnpreview Text 空白 Image csv.bmp BackColor White ボタン3 name btnexit Text 空白 Image exit.bmp BackColor White DataGridView name dgvdisp PrintDocument name pdccircle PrintPreviewDialog name ppdcircle -2-

3 プログラムリスト 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" ' フォームが閉じられ様と仕た時の処理 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 -3-

4 ' ボタン ( 印刷かプレビュー ) がクリックされた時の処理 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 ' 印刷部数の設定 (1 部 ) 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 Print メソッドを実行すると 自動的に印刷処理を行う PrintPage イベントが呼び出される PrintPreviewDialog を使用すると 印刷プレビューを表示させる事が出来る ' ボタン ( 終了 ) がクリックされた時の処理 Private Sub btnexit_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.click Me.Dispose( ) ' 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( "MS 明朝 ", 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 -4-

5 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 ) 印刷の位置指定には ミリメートルを使用すると解り易い 因みに A4 用紙のサイズは 210x297mm で有る 亦 B4 用紙のサイズは 250x354mm で有る ' データの出力複数のプロパティを設定する場合 With Ds.Tables( "CIRCLE" ) For I As Integer = 0 To (.Rows.Count - 1 ) は With ステートメントを用いる For J As Integer = 0 To 6 と パフォーマンスが向上する S =.Rows( I ).Item( J ).ToString G.DrawString( S, F, Brushes.Black, Li + Px( J ), I * ) Next Next レコード数は DataSet 内の指定 End With したテーブルの Rows.Count で取 得する事が出来る ' ヘッダ部分を出力するジェネラルプロシージャ 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( "MS 明朝 ", 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( "MS 明朝 ", 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 Class ジェネラルプロシージャは イベントプロシージャのカウンターパートと成る語で イベントが発生すると自動的に呼び出されるイベントプロシージャとは異なり プログラム中で明示的に呼び出さなければ 実行される事の無いプロシージャで有る 従来のサブルーチンと謂う名前で呼ばれる事も有る -5-

6 印刷処理の流れ Visual Basic.NET 以降では Windows フォームからの印刷は ドキュメント指向的で イベント駆動型の処理で有る 実際の処理に於いては 汎用的な PrintDocument オブジェクト (PrintDocument コントロール等 ) を使用するか 又は PrintDocument 派生クラスを実装する事に成る 印刷処理の処理手順は 下記の通りで有る PrintDocument オブジェクトの Print メソッドを実行すると 自動的に BeginPrint イベントが発生する BeginPrint イベントでは PrintPage イベントで使用するフォント等のオブジェクトを初期化する場所と仕て適して居るが 必要が無ければ 省略しても良い Print メソッド BeginPrint イベント QueryPageSettings イベント 次に QueryPageSettings イベントが発生する 此のイベントは PrintPage イベントが発生する度に 其の直前に発生する為 QueryPageSettingsEventArgs の PageSettings プロパティを書き換えれば ページ毎に異なるページ設定を行う事が出来るが 此れも 必要が無ければ 省略しても良い PrintPage イベント PrintPageEventArgs の Graphics プロパティを使用して印刷内容を描画 ( 文字列を含む ) する 次に PrintPage イベントが発生する 此のイベントでは 実際に印刷する内容を グラフィックスと仕て描画する 実際に描画するには PrintPageEventArgs の Graphics プロパティを 下記の様に仕て使用する Dim G As Graphics = e.graphics HasMorePages プロパティ False EndPrint イベント True 実際の印刷 ( プリントアウト ) は 此のイベントプロシージャを抜け出した時に行われる (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 イベントを抜け出した時で有る -6-

7 印刷範囲の設定 用紙サイズは 下記の様に 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 T As Double = M.Top : Dim R As Double = M.Right : 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 メソッドを使用して 使い慣れたスケールに変換すると良い 下記に ミリメートルに変換するコード例を示す P.Height L T W P.Width H 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 型の儘でも 特に問題は無い -7-

8 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 Next -8-

9 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 クラスのインスタンスでも良い -9-

10 PrintDocument クラスの PrintPage イベントに依る印刷の実行 現在のページに印刷する出力が必要な時に発生する 此のイベントは PrintDocument クラスの Print メソッドが呼び出された時に 自動的に発生する 印刷する出力を指定するには 此のイベントの PrintPageEventArgs 引数に含まれて居る Graphics を使用する 例えば 印刷するテキストを指定するには System.Drawing.Graphics.DrawString メソッドを使用して 下記の様に テキストを描画する Dim G As Graphics = e.graphics G.DrawString(" 烏賊 ", New Font("MS 明朝 ", 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 に設定する事に依り 印刷ジョブを取り消す事も出来る -10-