iDestination(iPage)

// Récupération de la hauteur de la zone
dHauteur is real
dHauteur = iAreaHeight(sTexteHTML, 100, iHTML)

// Trace un cadre
iBorder(0,0, 200, dHauteur*2)

// Impression du HTML dans le cadre
iPrintAreaHTML(sTexteHTML, 0, 0, 200, dHauteur*2)

iEndPrinting()

// Impression de HTML sur plusieurs pages
PROCEDURE ImprimeZoneHTMLMultiPage(LOCAL sHTMLàImprimerEnUTF8 is string ANSI,
	LOCAL x1 is real = 0,LOCAL y1 is real = iYPos(), 
	LOCAL x2 is real = iPageWidth() - x1)
// Variables de travail
nElémentDébut is int = 0
nElémentFin is int = 0
rHauteurRestante is real = 0
rDernièreHauteurImprimée is real = 0

// Boucle pour imprimer tous les "éléments" du HTML
LOOP
	// Hauteur de ce qui reste à imprimer
	rHauteurRestante = iAreaHeight(sHTMLàImprimerEnUTF8, x2-x1, iHTML, nElémentDébut + 1)
	IF rHauteurRestante <= 0 THEN
		// Plus rien à imprimer
		// On positionne le "curseur d'impression" après ce qui a été imprimé
		iYPos(y1 + rDernièreHauteurImprimée)
		BREAK
	END
	// Mémorise la dernière hauteur imprimée
	rDernièreHauteurImprimée = rHauteurRestante
	// Si ce n'est pas le début, on saute à la page suivante
	IF nElémentDébut > 0 THEN 
		iSkipPage()
		// On repart donc en haut de la page
		y1 = 0
	END
	// Imprime effectivement tout ce qui rentre dans la zone
	nElémentFin = iPrintAreaHTML(sHTMLàImprimerEnUTF8, x1, y1, ...
		x2, iPageHeight(), nElémentDébut + 1)
	// On continue à partir de l'élément suivant
	nElémentDébut = nElémentFin
END