iDestination(iPage)

// Récupération de la hauteur de la zone
dHauteur est un réel
dHauteur = iHauteurZone(sTexteHTML, 100, iHTML)

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

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

iFinImprime()

// Impression de HTML sur plusieurs pages
PROCÉDURE ImprimeZoneHTMLMultiPage(LOCAL sHTMLàImprimerEnUTF8 est une chaîne ANSI,
	LOCAL x1 est un réel = 0,LOCAL y1 est un réel = iPosY(), 
	LOCAL x2 est un réel = iLargeurPage() - x1)
// Variables de travail
nElémentDébut est un entier = 0
nElémentFin est un entier = 0
rHauteurRestante est un réel = 0
rDernièreHauteurImprimée est un réel = 0

// Boucle pour imprimer tous les "éléments" du HTML
BOUCLE
	// Hauteur de ce qui reste à imprimer
	rHauteurRestante = iHauteurZone(sHTMLàImprimerEnUTF8, x2-x1, iHTML, nElémentDébut + 1)
	SI rHauteurRestante <= 0 ALORS
		// Plus rien à imprimer
		// On positionne le "curseur d'impression" après ce qui a été imprimé
		iPosY(y1 + rDernièreHauteurImprimée)
		SORTIR
	FIN
	// 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
	SI nElémentDébut > 0 ALORS 
		iSautePage()
		// On repart donc en haut de la page
		y1 = 0
	FIN
	// Imprime effectivement tout ce qui rentre dans la zone
	nElémentFin = iImprimeZoneHTML(sHTMLàImprimerEnUTF8, x1, y1, ...
		x2, iHauteurPage(), nElémentDébut + 1)
	// On continue à partir de l'élément suivant
	nElémentDébut = nElémentFin
FIN