我正在使用 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 控件。如果按原样运行窗体,预览控件将显示一个空白页,页脚显示“测试”。一切都很好,但我无法打印该页脚。如果我尝试直接打印(注释代码的第一块),我只会得到一个空白页。当我尝试使用预览器的渲染器(第二个注释代码块)打印它时也是如此。
有任何想法吗?