Views:

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.)

 

Related Attachments (1)