|
|
FooterCopy
Copies the specified 'FromItem' Footer FormatBlock to the 'ToItem' Footer FormatBlock. The FormatBlock for the copied item can then be altered.
Syntax Object.FooterCopy (FromItem As qePrinterHeadFootPage, ToItem As qePrinterHeadFootPage)
| Parameters | | FromItem | The type of page to Copy: Standard, First, Odd, Even or Last. | | ToItem | The type of page to paste the copy: Standard, First, Odd, Even or Last. |
Notes Simplifies creating Footers by allowing style Changes to be copied from one PageType to another.
The example creates a Footer displaying the Page Number on the right hand side of the OddPage. The FooterCopy method is used to copy the formatting options of the OddPage Footer to the EvenPage Footer. The EvenPage Footer's alignment is then changed to Left justification.
Example ' Create the 'Odd Page' Footer
With qPrint.Document.Footer(OddPage_hf)
.FontName = "Arial"
.FontSize = 8
.FontBold = True
.Alignment = eRight
.Text = "Page #pagenumber#"
End With
' Copy the Footer to the 'Even Page' Footer
qPrint.Document.FooterCopy OddPage_hf, EvenPage_hf
' Change the Alignment of the Even Page Footer
qPrint.Document.Footer(EvenPage_hf).Alignment = eLeft
See Also: SetFooter, Footer, SetFooterContent
|