【发布时间】:2013-11-19 20:16:44
【问题描述】:
我正在使用 MigraDoc 来打印一份报告。出于某种原因,我无法打印页脚 - 尽管它们在预览器和生成的 PDF 中显示得很好。
这是我的代码 - 我将其精简为用于测试的准系统,但仍然无法正常工作。
Dim doc = New MigraDoc.DocumentObjectModel.Document
Dim sec = doc.AddSection
Dim f = sec.Footers.Primary
f.AddParagraph("test")
'Footer appears just fine on previewer
Dim ddl As String = MigraDoc.DocumentObjectModel.IO.DdlWriter.WriteToString(doc)
Me.Preview.Ddl = ddl
'Here's where I tried to print the doc directly. No footer printed.
'Dim d As New MigraDoc.Rendering.Printing.MigraDocPrintDocument()
'd.Renderer = New MigraDoc.Rendering.DocumentRenderer(doc)
'd.Renderer.PrepareDocument()
'd.Print()
'Here's where I tried to use the previewer's renderer. Still no footer printed
'Dim d As New MigraDoc.Rendering.Printing.MigraDocPrintDocument(Me.Preview.Renderer)
'd.Print()
我在名为 Preview 的表单上有一个 MigraDoc.Rendering.Forms.DocumentPreview 控件。如果按原样运行窗体,预览控件将显示一个空白页,页脚显示“测试”。一切都很好,但我无法打印该页脚。如果我尝试直接打印(注释代码的第一块),我只会得到一个空白页。当我尝试使用预览器的渲染器(第二块注释代码)打印它时也是如此。
有什么想法吗?
【问题讨论】: