Question
How can I set a header and footer and print the network editor to PDF by COM?
Answer
- Use the class Visum.Net.PrintParameters.PrintFrame.Footer:
Example code:
Dim myPrintFrameFooter As VISUMLIB.IPrintFrameFooter
Dim myPrintFrameFooterCell As VISUMLIB.IPrintFrameFooterCell
Set myPrintFrameFooter = Visum.Net.PrintParameters.PrintFrame.Footer
myPrintFrameFooter.AttValue("TextSize") = 6
Set myPrintFrameFooterCell = Visum.Net.PrintParameters.PrintFrame.Footer.Columns.Item(1).Rows.Item(1)
myPrintFrameFooterCell.AttValue("UserDefinedText") = "any userdefined string combination"
- Change the standard printer to a PDF printer. (See the attached example.)