Voici un exemple de code effectuant cette impression.
//Variables
sNomFenetre est une chaîne de caractères =
" Le nom de la fenêtre
"
sNomChampHtml est une chaîne de caractères =
" Le nom du champ HTML à
imprimer "
sNomActiveX est une chaîne de caractères =
" Le nom du champ ActiveX
"
ResOuverture est un entier
ResFermeture est un entier
ResSuppression est un booléen
//création d'un fichier
HTML
fCrée(fRepEnCours() "\FichierTemp.HTM")
ResOuverture = fOuvre(fRepEnCours() "\FichierTemp.HTM",foLectureEcriture)
SI ResOuverture <> -1 ALORS
//On
récupère le contenu du champ HTML dans un fichier externe qui sera ensuite
envoyé à l'ActiveX
fEcrit(ResOuverture,{sNomFenetre "." sNomChampHtml}..ValeurAffichée)
//Affichage
du fichier dans l'ActiveX
QUAND EXCEPTION
DANS
{sNomFenetre "." sNomActiveX}>>Navigate(fRepEnCours() "\FichierTemp.HTM")
FAIRE
Erreur("Impossible d'accéder à l'ActiveX internet
Explorer")
RETOUR
FIN
Multitâche(100)
//Impression du contenu
du navigateur
{sNomFenetre "." sNomActiveX}>>Navigate("javascript:self.print()")
//Fermeture du fichier
HTML
fFerme(ResOuverture)
SINON
Erreur("Impossible d'ouvrir le fichier courrier temporaire HTML
généré")
FIN