Utilise cela pou voir :
sCh:= Edit1.text; x:=50; y:=0; Printer.BeginDoc; for i:= 0 to length(sCh) do begin y:= y + Printer.Canvas.TextExtent(sCh[i]).cy; Printer.Canvas.TextOut(x,y, sCh[i]); end; Printer.EndDoc;
------------------------------- Réponse au message : -------------------------------
J'aurais voulu savoir si tu connaissais le moyen d'imprimer le contnue de cet editbox
|