この例は、DataGrid コントロールを印刷します。
例
Private Sub PrintGrid_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles PrintGrid.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
Point(0, 0), Me.Size))
Me.InvokePaint(DataGrid1, myPaintArgs)
End Sub
コードのコンパイル
この例には、次の項目が必要です。
- フォームに PrintGrid という名前の Button コントロール
- DataGrid1 という名前の DataGrid コントロール
- PrintDocument1 という名前の PrintDocument コンポーネント
信頼性の高いプログラミング
例外を引き起こす可能性のある状態を次に示します。
- プリンタへのアクセスが許可されていない場合。
- インストールされているプリンタがない場合。
セキュリティ
この例を実行するには、プリンタへのアクセス許可が必要です。
参照
コード : Windows フォームを印刷する (Visual Basic) | Windows フォーム PrintDocument コンポーネントの概要 | Windows フォームでのグラフィックスの印刷 | PrintDocument クラス | グラフィックに関するサンプルのトピック | Windows アプリケーションに関するサンプルのトピック