将页眉和页脚添加到 Printing.PrintDocument (.Net 2.0) 的最简单方法?
-
09-06-2019 - |
题
在实用上或在设计时向 .Net PrintDocument 对象添加页眉和页脚的最简单方法是什么?
具体来说,我正在尝试打印第 3 方网格控件(Infragistics GridEx v4.3),该控件采用 PrintDocument 对象并将自身绘制到其中。
生成的页面仅包含网格及其内容 - 但是我想添加一个页眉或标题来标识打印的报告,可能还添加一个页脚来显示谁打印了它,何时打印,最好是页码和总页数。
我正在使用 VB.Net 2.0。
感谢您的帮助!
解决方案
printdocument 对象为要打印的每一页触发 printpage 事件。您可以使用 printpageeventargs 事件参数将文本/线条/等绘制到打印队列中:
http://msdn.microsoft.com/en-us/library/system.drawing.printing.printdocument.aspx
当您将其传递到网格时,将其调暗 WithEvents,以便您可以处理该事件。
其他提示
下列的 布吉男孩的答案,这是我想到的(出于示例目的,我对其进行了简化):
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
使绘制的项目对齐。
再次感谢 布吉男孩 对于指针 - 获取 ReportPage.Graphics() 正是我所追求的:o)
不隶属于 StackOverflow