THTMLPrinter - Exemples

THTMLPrinter = class (TObject)Interface de THTMLPrinterExemples de THTMLPrinter
var prn:=new THTMLPrinter;

// Définition de l'imprimante
prn.PrinterName:=''; // Impression sur l'imprimante par défaut
// prn.PrinterName:='\\SERVERNAME\SharedName'; // Cas d'utilisation d'une imprimante avec un identifiant UNC
// prn.PrinterName:='Qubes PDF Printer'; // Cas d'utilisation d'une imprimante présente dans la liste des imprimantes Windows du poste

// Définition des paramètres d'impression
prn.Orientation:=poLandscape;
prn.MarginLeft:=5;
prn.MarginRight:=5;
prn.MarginTop:=5;
prn.MarginBottom:=5;

// Affectation du code HTML du document à imprimer (sur 2 pages dans cet exemple)
prn.HTML:='<html><body>'
            +'<p>Content of my document page 1</p>'
            +'<p style="page-break-before: always">Content of my document page 2</p>'
         +'</body></html>';

// Envoi du document à l'imprimante
prn.Print;