C# と VB.NET の質問掲示板

■No35763 (hito さん) に返信

いきなりずらずらっとコードが出てくると「なに、コードを読んで動きを理解しろってか？」と警戒する
人もいるかもしれません。
あ、あとコードを載せるときは「図表モード」ってのにチェックを入れておくといいです。

質問内容としては以下の部分ということでいいでしょうか。

> ここで質問なのですが、表示されている部分のみでなく、DataGridView全体を印刷したいのですが、pd_PrintPageの
> g.DrawStringでDataGridViewのCellの値を書き込むのですが、列、行ともに多く、すべてのCellの値を書き込むとなると
> 膨大なソースを書かなければならないので、g.DrawStringの部分をループ処理で行いたいと考えているのですが、
> ソースの書き方が分かりません・・・

コードとして注目すべき点はここ、ということで。

>         'DataGridViewのCellを書き込む
>         g.DrawString(DataGridView1(0, 0).Value, _
>                      New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top)

DataGridView1(0, 0).Value の (0, 0) をループすればいいのはだいたい理解していると想定します。
問題は e.MarginBounds.Left と e.MarginBounds.Top をずらして出力してあげればいいわけだけど
どの程度ずらせばいいのかしらん？という話かな。

ざっと書いてみました。C# で書いたものを脳内で VB に変換しているので、動かないかもしれませんが。

    Dim X As Integer
    Dim Y As Integer

    Y = e.MarginBounds.Top;
    For i As Integer = 0 To DataGridView1.Rows.Count - 1
        X = e.MarginBounds.Left;
        For j As Integer = 0 To DataGridView1.Columns.Count - 1
            g.DrawString(DataGridView1(j, i).Value, _
                New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, X, Y)
            X += DataGridView1.Columns(j).Width;
        Next
        Y += dataGridView1.Rows(i).Height;
    Next

実際のところは、X と Y に加算する値はもう少し計算が必要ではないかと思います。
あとはこれだと文字列が描かれるだけなので、罫線も自分で描かないといけません。

ページングとか、いろいろな要素が組み合わされると結構印刷は面倒だったりするので、CrystalReports とか
ActiveReports なんかを使うのが現実的かもしれませんね。

■No35773 (ぽぴ王子 さん) に返信
回答ありがとうございます。
一応、記載していただいたソースを多少手直しして実行してみました。
ですがその中で、        
          For j As Integer = 0 To DataGridView1.Columns.Count - 1
                If DataGridView1(j, i).Value.ToString <> "" Then
                    g.DrawString(DataGridView1(j, i).Value.ToString, _
                        New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, X, Y)
                    X += DataGridView1.Columns(j).Width
                End If
          Next j
の、
g.DrawString(DataGridView1(j, i).Value.ToString, _
    New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, X, Y)
部分で、
「オブジェクト参照がオブジェクト インスタンスに設定されていません。」
というエラーが出てしまいます。
DataGridViewのCellの値には、Null値を格納する場合もありますので、
おそらく、Nullの値を書き込むことはできないということで
このエラーが出ていると思うのですが、
この場合どう対処したらよいでしょうか。
すみません、質問のしっ放しで・・・

■No35781 (hito さん) に返信

> g.DrawString(DataGridView1(j, i).Value.ToString, _
>     New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, X, Y)
> 部分で、
> 「オブジェクト参照がオブジェクト インスタンスに設定されていません。」
> というエラーが出てしまいます。

ということは、nullであれば空文字にするなどの処理をしてあげればいいですね。

    Dim s As String

のような感じで、String 型の変数を用意しておいて

    If DataGridView(j, i).Value Is Nothing Then
        s = ""
    Else
        s = DataGridView(j, i).Value.ToString
    End If
    g.DrawString(s, New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, X, Y)

という感じでどうでしょうか。あんまりスマートではないかもしれませんが。

# Nothing との比較が間違っていた気がするので修正

■No35790 (ぽぴ王子 さん) に返信
ありがとうございます。
何とかDataGridView全体の値を印刷することができました。

とりあえず、最終的に出来上がったソースを載せておきます。

    Private WithEvents PrintDocument1 As New System.Drawing.Printing.PrintDocument()
    Private Sub Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Print.Click
        'file()
        ' 印刷処理を実行
        'PrintDocument1.Print()
        'PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)
        'PrintDocumentオブジェクトの作成
        Dim pd As New System.Drawing.Printing.PrintDocument
        'PrintPageイベントハンドラの追加
        AddHandler pd.PrintPage, AddressOf pd_PrintPage

        'PrintDialogクラスの作成
        Dim pdlg As New PrintDialog
        'PrintDocumentを指定
        pdlg.Document = pd
        '印刷の選択ダイアログを表示する
        If pdlg.ShowDialog() = DialogResult.OK Then
            'OKがクリックされた時は印刷する
            pd.Print()
        End If

    End Sub
    Private Sub pd_PrintPage(ByVal sender As Object, _
        ByVal e As System.Drawing.Printing.PrintPageEventArgs)

        Dim g As Graphics = e.Graphics

        '文字列を描く
        'g.DrawString(DataGridView1(0, 0).Value, _
        '            New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top)
        Dim X As Integer
        Dim Y As Integer

        Y = e.MarginBounds.Top
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            X = e.MarginBounds.Left
            For j As Integer = 0 To DataGridView1.Columns.Count - 1
                Dim s As String
                If DataGridView1(j, i).Value Is Nothing Then
                    s = ""
                Else
                    s = DataGridView1(j, i).Value
                End If
                g.DrawString(s, New Font("ＭＳ Ｐゴシック", 9), Brushes.Black, X, Y)
                'g.DrawString(DataGridView1(j, i).Value.ToString, _
                '   New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, X, Y)
                X += DataGridView1.Columns(j).Width
            Next j
            Y += DataGridView1.Rows(i).Height
        Next i

        'このページで終了
        e.HasMorePages = False

    End Sub

RowとColumnを同時に移動させるという書き方が分からなかったのですが、
今回の件で新しい知識も得ることが出来ましたのでよかったです。