Windows Forms印刷の「泥沼」を脱却せよ：PrintDocumentを完全制御するプロの帳票設計術
業務システムにおいて、帳票印刷は「避けて通れないが、最も手を焼く領域」です。標準の`PrintPreviewDialog`に甘んじ、`PrintDocument`のイベントハンドラにロジックを直書きする……そんな実装を続けていては、仕様変更のたびに地獄を見ることになります。
今回は、プリンターの機種依存を排除し、複数ページにわたる複雑な帳票を「計算された美しさ」で出力するための、アーキテクチャレベルの知見を伝授します。
—
1. なぜ「その実装」ではいけないのか？
多くの初学者が陥る罠は、「描画ロジックとページ制御をPrintPageイベントの中に詰め込むこと」です。
- 状態管理の崩壊: 現在の行インデックスや合計ページ数を`PrintPageEventArgs`の外側に持つと、プレビューと実印刷で状態が同期せず、無限ループやページ抜けが発生します。
- 機種依存の罠: 画面解像度（DPI）とプリンターの物理解像度は異なります。GraphicsUnitをピクセルで固定するのは厳禁です。必ず`Millimeters`や`Inches`などの物理単位で計算し、`Graphics`オブジェクトの変換を介さない設計を徹底してください。
—
2. 堅牢な帳票エンジンの設計思想
帳票開発における唯一の正解は、「ページング・エンジン」を独立させることです。データソースから「1ページ分」を切り出し、描画するだけの状態に変換する「ビューモデル層」を構築します。
実装の骨子：ページング・コントローラー
Public Class ReportEngine
‘ 描画対象のデータリスト
Private ReadOnly _data As List(Of InvoiceItem)
Private _currentIndex As Integer = 0
Public Sub New(data As List(Of InvoiceItem))
_data = data
End Sub
‘ ページングの状態をリセット（再プレビュー時に必須）
Public Sub Reset()
_currentIndex = 0
End Sub
‘ 次のページが存在するか判定
Public ReadOnly Property HasMorePages As Boolean
Get
Return _currentIndex < _data.Count
End Get
End Property
' 現在のページで描画すべきデータのみを抽出
Public Function GetPageData(maxRowsPerPage As Integer) As List(Of InvoiceItem)
Dim pageData = _data.Skip(_currentIndex).Take(maxRowsPerPage).ToList()
_currentIndex += pageData.Count
Return pageData
End Function
End Class
---
3. PrintDocumentを制御する「プロダクションコード」
`PrintPage`イベントは、あくまで「エンジンが提供したデータを流し込むパイプ」として扱います。
Private _engine As ReportEngine
Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
‘ 1. ページデータの取得
Dim pageItems = _engine.GetPageData(20) ‘ 1ページ20行固定
‘ 2. 描画処理（Graphicsオブジェクトを使いこなす）
DrawHeader(e.Graphics)
DrawTable(e.Graphics, pageItems)
DrawFooter(e.Graphics, _engine.HasMorePages) ‘ ページ番号付与ロジック
‘ 3. 継続フラグの設定
e.HasMorePages = _engine.HasMorePages
End Sub
【プロの鉄則】プレビューのカスタマイズ
標準の`PrintPreviewDialog`は無骨すぎます。`Form`を自作し、`PrintPreviewControl`を配置してください。
‘ フォーム上のPrintPreviewControl設定
PrintPreviewControl1.Document = PrintDocument1
PrintPreviewControl1.Zoom = 1.0 ‘ 拡大率の初期値指定
PrintPreviewControl1.StartPage = 0
これで、ツールバーの配置やデザインを完全に自由化できます。
—
4. 業務効率を最大化する「3つのチェックリスト」
1. Unitの統一: `e.Graphics.PageUnit = GraphicsUnit.Millimeter` を必ず明示すること。これにより、画面プレビューと実印刷のサイズ乖離がほぼゼロになります。
2. データベース連携の非同期化: 印刷ボタンを押した瞬間にDBクエリを走らせないこと。一度DataTableやListに全件ロードし、そのメモリ内データから帳票を生成してください。ネットワーク瞬断による印刷中断リスクを排除できます。
3. 例外処理の境界: `PrintPage`内で例外が発生すると、スプールプロセスがハングし、PCを再起動するまで印刷キューが消えなくなることがあります。必ずTry-Catchを配置し、エラー時は`e.Cancel = True`をセットして終了させてください。
—
最後に：エンジニアとしての矜持
帳票は、顧客が最初に目にする「システムの品質のバロメーター」です。たかが印刷と侮らず、余白の1ミリ、フォントの可読性、ページ番号の整合性にまで執着してください。
VB.NETの古い技術だと思われがちですが、この「イベント駆動による描画制御」は、現代のどのフレームワークでも通じる普遍的なアーキテクチャです。この設計を身につければ、どんな複雑な帳票要求も「作業」ではなく「エンジニアリング」として攻略可能になるはずです。
さあ、コードを書き換え、揺るぎない帳票基盤を構築してください。現場からは以上です。
