Discussion :

[muquet]

Bonjour.

Je dois imprimer un petit texte (depuis un srting : stexte)

voici le code :

en variable locale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  PrintDialogHere: TPrintDialog;

Puis dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    if  PrintDialogHere = nil then  PrintDialogHere := TPrintDialog.Create(application);
    if not PrintDialogHere.Execute then exit;
    Printer.Copies := PrintDialogHere.Copies;
    with Printer do
    begin
      BeginDoc;
      Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),200,200,stexte);
      EndDoc;
    end;

et bien sur ca ne marche pas ... que dois je faire ??

d'avance merci

[muquet]

en fait ca ne marche pas si mal que ca ... j'ai bien une impression mais tout le texte sur une seule ligne (qui dépasse de la feuille A4)

parcontre dans mon texte j'ai des #10#13 qui me donnent bien des retours a la ligne a l'affichage (dans une comboboxe) mais pas sur le feuille a l'impression ?

comment faire ?
merci

[muquet]

En fait, il faut passer les ligne une par une et non toutes ensembles :
(avec une TstringList : sltexte) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Brush.Style := bsClear;
      for i := 0 to sltexte.Count-1 do
       Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(sltexte[i])),
                   sltexte[i]);
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
  end;