iDestination(iPage)

// Retrieve the height of the area
dHeight is real
dHeight = iAreaHeight(sHTMLText, 100, iHTML)

// Draws the borders
iBorder(0,0, 200, dHeight*2)

// Print the HTML text inside the border
iPrintAreaHTML(sHTMLText, 0, 0, 200, dHeight*2)

iEndPrinting()

// Print HTML on multiple pages
PROCEDURE PrintAreaHTMLMultiPage(LOCAL sHTMLToPrintToUTF8 is ANSI string,
	LOCAL x1 is real = 0,LOCAL y1 is real = iYPos(), 
	LOCAL x2 is TO real number = iPageWidth() - x1)
// Working variables
nElementBeginning is int = 0
nElementEnd is int = 0
rRemainingHeight is real = 0
rLastHeightPrinted is real = 0

// Loop to print all the HTML "elements"
LOOP
	// Height of what remains to be printed
	rRemainingHeight = iAreaHeight(sHTMLToPrintToUTF8, x2-x1, iHTML, nElementBeginning + 1)
	IF rRemainingHeight <= 0 THEN
		// Nothing else to print
		// Position the "print cursor" after the last printed element
		iYPos(y1 + rLastHeightPrinted)
		BREAK
	END
	// Stores the last printed height
	rLastHeightPrinted = rRemainingHeight
	// If it's not the beginning, skip to the next page
	IF nElementBeginning > 0 THEN 
		iSkipPage()
		// Start at the top of the page
		y1 = 0
	END
	// Prints everything inside the give area
	nElementEnd is int = iPrintAreaHTML(sHTMLToPrintToUTF8, x1, y1, ...
		x2, iPageHeight(), nElementBeginning + 1)
	// Continue from the following element
	nElementBeginning = nElementEnd
END