4

ヘッダーとフッターを .Net PrintDocument オブジェクトに実際に、または設計時に追加する最も簡単な方法は何ですか?

具体的には、サード パーティのグリッド コントロール (Infragistics GridEx v4.3) を印刷しようとしています。これは、PrintDocument オブジェクトを受け取り、それ自体を描画します。

結果のページにはグリッドとその内容だけが含まれていますが、印刷されたレポートを識別するヘッダーまたはタイトルを追加したいと考えています。

VB.Net 2.0 を使用しています。

ご協力いただきありがとうございます！

4

2 に答える 2

5

booji-boyの答えに続いて、ここに私が思いついたものがあります（例のために簡略化しました）：

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

        Dim oDoc As New Printing.PrintDocument
        oDoc.DefaultPageSettings.Landscape = True
        AddHandler oDoc.PrintPage, AddressOf PrintPage

        oDoc.DocumentName = "Printout"

        InfragisticsWinGrid.PrintPreview(InfragisticsWinGrid.DisplayLayout, oDoc)

    End If
End Sub


Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

    ' Draw title
    e.Graphics.DrawString("Report Title"), New Font("Arial", 16), Brushes.Black, 95, 70)

    ' Draw footer
    e.Graphics.DrawImage(DirectCast(mResources.GetObject("footer_logo"), Drawing.Bitmap), 95, e.PageBounds.Height - 87)
    Dim drawFont As New Font("Arial", 8.75)

    e.Graphics.DrawString("Report Title", drawFont, Brushes.Gray, 190, e.PageBounds.Height - 90)
    e.Graphics.DrawString("Printed", drawFont, Brushes.Gray, 190, e.PageBounds.Height - 76)
    e.Graphics.DrawString("Printed By", drawFont, Brushes.Gray, 190, e.PageBounds.Height - 62)

    ' Draw some grid lines to add structure to the footer information
    e.Graphics.DrawLine(Pens.Gray, 246, e.PageBounds.Height - 90, 246, e.PageBounds.Height - 48)
    e.Graphics.DrawLine(Pens.Gray, 188, e.PageBounds.Height - 75, 550, e.PageBounds.Height - 75)
    e.Graphics.DrawLine(Pens.Gray, 188, e.PageBounds.Height - 61, 550, e.PageBounds.Height - 61)

    e.Graphics.DrawString("Report", drawFont, Brushes.Black, 250, e.PageBounds.Height - 90)
    e.Graphics.DrawString(Date.Now.ToShortDateString & " " & Date.Now.ToShortTimeString, drawFont, Brushes.Black, 250, e.PageBounds.Height - 76)
    e.Graphics.DrawString("Andrew", drawFont, Brushes.Black, 250, e.PageBounds.Height - 62)

End Sub

e.PageBounds.Height - x描画されたアイテムを並べるために、 の値をいじる必要がありました。

ポインターをくれたBooji Boyに再び感謝します。

于 2008-10-22T08:55:32.873 に答える
4

printdocument オブジェクトは、印刷するページごとに printpage イベントを発生させます。printpageeventargs イベント パラメータを使用して、テキスト/行などを印刷キューに描画できます。

http://msdn.microsoft.com/en-us/library/system.drawing.printing.printdocument.aspx

グリッドに渡すときに WithEvents を暗くして、イベントを処理できるようにします。

于 2008-09-15T02:47:19.020 に答える