Discussion :

[alainvh]

Bonjour. Je débute en Delphi, mais j'ai bien l'impression d'avoir créer mon premier objet (ça s'arrose !). En fait, je veux gérer une impression : 1 - faire lire l'impression dans une Form qui aura les dimensions d'une feuille A4 de manière à calculer à l'avance le nombre de pages à imprimer (je souhaite un bas de page du type : Page n sur x). 2 - lancer ensuite l'impression.
Question : y a-t-il une astuce pour que mon objet qui lit dans une Form puisse être réutiliser pour l'impression (c'est à dire remplacer Form1 par Printer) ou dois-je écrire un objet supplémentaire identique, sauf qu'il fera référence à Printer au lieu de Form1 ? 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
15
16
17
18
19
20
21
22
 
type
  TPiedDePage = class
  private
    Chaine1:string;
    Espace,Hauteur,HauteurChaine:integer;
    procedure DessinerPiedDePage;
  end;
 
procedure TPiedDePage.DessinerPiedDePage;
 
begin
    Hauteur:=500; // 500 = valeur au hasard pour l'instant
    Espace:=10;
    Chaine1:='Page 1 sur ' +IntToStr(n); / n = nombre total de page : sera  à calculer
    Form1.Canvas.Rectangle(10,Hauteur,800,Hauteur+1);  // + 1 = épaisseur du trait
    Hauteur:=Hauteur+Espace+1; // où 1 est l'épaisseur du trait
    Form1.Canvas.TextOut(10,Hauteur,Chaine1);
    HauteurChaine:=Form1.Canvas.TextHeight(Chaine1);
    Hauteur:=Hauteur+HauteurChaine;
    //  etc...
end;

Y a-t-il un truc simple pour imprimer en gras un mot se trouvant au milieu d'une chaîne ?

Merci pour le tutorial sur l'impression qui m'a été très utile et pour les futures réponses à ce message.

Cordialement.

[octal]

il suffit de réutiliser ton code mais plutot que d'utiliser ton Form.Canvas il faut utiliser le Printer.Canvas.
Pour le gras il n'y a pas de solution directe, faudra changer la fonte (style) puis ecrire ce qu'il y a à écrire à chaque fois.
Tu pourra t'inspirer des sources des composants Freeware sur la page Torry http://swiss.torry.net/previews.htm
bon courage

[rsc]

Quand tu réponds à un message, utilise "répondre" et pas "nouveau", ça te permet de rester dans le thread, et ceux qui le suivent sont avertis de ta réponse

Roland

[octal]

oui c un peu ca .. mais dit toi bien que l'objet Printer est unique et est créé automatiquement par Delphi .. pas besoin de le créer.
De plus pour que cet objet IMPRIME réeelement (contrairement au TForm.Canvas) il faudra impérativement appeler les methodes BeginDoc, EndDoc et NewPage sans cela tu n'aura rien dans ton spool d'impression. Vas y voir l'aide de Delphi sur TPrinter.

PS. Il faudra répondre sur le meme post de préférence comme cela les visiteurs du forum aront tout ce qui a été dit sur le post dans un seul thread. C a dire qu'il te fallait cliquer sur <<répondre>> dans le meme post où je t'avais répondu pour insérer ta réponse et mettre le tag RESOLU