Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 10 JUL 2002 11:05:24AM [email protected] wrote:

I am having a strange problem trying to use pagebreak in oipi.

I am getting overwrite on page 2 from page 1 etc.

Below is a little routine which will give an example. It generates 5 pages and prints the page number at the same location on each page. As you will see page 2 has a 1 and 2 in the same location, page 3 has a 1,2 and 3 in the same location etc.

I hope I have just missed something in the docs ..

Let me know ..

Here is the code ..

Subroutine DSig_TestMultipageForm(x)

Declare Function Set_Printer

$Insert OIPRINT_EQUATES

Equ Null$ to ""

Equ True$ to 1

Equ False$ to 0

*

* Start the OIPI report with the INIT message

*

FileName=test"

PrintTitle=OIPI Printing… "

* Change the title of the print preview window

PreviewTitle=OIPI Print Preview"

Margins=0 : @FM : 0 : @FM : 0 :@FM : 0

Orientation=0

PrintSetup="

PrintSetup=2

PageSetup="

PageSetup=0 ;* portrait

PageSetup=1 ;*Inches

* Now do the init message

rtn=Set_Printer("INIT", FileName, PrintTitle:@FM:PreviewTitle, Margins,PageSetup, PrintSetup)

If rtn =COURIER NEW"

Font=10

* Set the Font

x=Set_Printer("FONT", font)

XPoint=1.0

YPoint=2.0

For PagePntr=1 to 5

PrintData=PagePntr
stat=Set_Printer("TEXTXY",PrintData , XPoint : @fm : YPoint)
rtn=Set_Printer("PAGEBREAK")

Next PagePntr

stat=Set_Printer("TERM") ;* End printing

Return

[email protected] onmouseover=window.status=the new revelation technology .. a refreshing change;return(true)"

David Tod Sigafoos ~ SigSolutions

Phone: 503-639-4240


At 10 JUL 2002 11:32AM Sean FitzSimons wrote:

David,

TEXTXY has a fourth parameter which is REPEAT. The default value of this parameter is 1. Set the parameter to 0 for current page only.

Sean


At 10 JUL 2002 03:04PM [email protected] wrote:

Thanks man

[email protected] onmouseover=window.status=the new revelation technology .. a refreshing change;return(true)"

David Tod Sigafoos ~ SigSolutions

Phone: 503-639-4240

View this thread on the forum...

  • third_party_content/community/commentary/forums_nonworks/3711f9ac2cffa9a385256bf20052e478.txt
  • Last modified: 2023/12/28 07:40
  • by 127.0.0.1