xPrint Control - Custom Forms

[Janet Turner]

Hello,

I've designed a simple custom form, used with the appointment form in the
calendar. I added the xPrint Control to get it to print as displayed on
screen. Unfortunately, there's too much on the one page so I'd like to
either make another page in the same form print with the xPrint Control, or
make the one long page print to two pages instead of one. How do I do this.
Right now I've got the following code in to make the one page print.

Dim objInsp

Dim objPage2

Dim objXPrint1

Function Item_Open()

Set objInsp = Item.GetInspector

Set objPage2 = objInsp.ModifiedFormPages("NATIONAL TRAVEL")

Set objXPrint1 = objPage2.Xprint1

objXPrint1.Preview = True

objXprint1.Controls = objPage2.Controls

End Function

Sub cmdPrint_Click()

objXPrint1.PrintForm

End Sub



Thank you.

Janet