レポートを印刷するために 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 コントロールがあります。フォームをそのまま実行すると、プレビュー コントロールは空白のページを表示し、フッターには "Test" と表示されます。すべて順調ですが、そのフッターを印刷できません。直接印刷しようとすると (コメント付きコードの最初のブロック)、空白のページが表示されます。プレビューアのレンダラー (コメント付きコードの 2 番目のブロック) を使用して印刷しようとした場合も同じです。
何か案は?