Bonjour,

Je viens de découvrir le module d'impression avec delphi. Ca fonctionne pas mal, mais maintenant je souhaiterai imprimer le contenu de mon mémo sur deux colonnes puisque celui ci est trop long. Et dans le cas présent, j'imprime pour le moment sur deux pages. Ce qui n'est pas très économique !!

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TTous_Parametres.Imprimer1Click(Sender: TObject);
var
    PrintText:System.Text;
    Line:integer;
begin
    PrinterSetupDialog.Execute;
    Printer.Title:='Tous les paramètres';
    AssignPrn(PrintText);
    Rewrite(PrintText);
    Printer.Canvas.Font:=Memo.Font;
    for line:=0 to memo.Lines.Count-1 do
    Writeln(PrintText,Memo.Lines[line]);
    closefile(PrintText);
end;