Comment imprimer avec un état ?

Je cherche un moyen d'imprimer un état comptable
J'ai ajouté Printers dans les uses
J'ai ajouté Lazarus4... dans les ressources

J'ai écrit le séquence suivante :

Code:

---

1 2 3 4 5 6

Printer.BeginDoc; Printer.Canvas.Font.Name:='Arial'; Printer.Canvas.Font.Style:=[fsBold]; Printer.Canvas.Font.Size:=10; Printer.Canvas.Textout(1,1,'*'; Printer.EndDoc;

---

J'exécute :
L'imprimante se met en route
L'imprimante tabule pour se mettre en place
mais aucune impression de '*'
Une feuille blanche
Qu'est ce que j'ai oiblié ?
Il me semble que cela fonctionnait sous delphi.
J'ai commencé avec Lazarus il y a une quinzaine de jours et il y a quelques modifs sûrement
Si quelqu'un peut m'aider, ce serait parfait
Existe-t-il un livre complet sur Lazarus et où le trouver?
Merci d'avance

Bonjour,

Citation:

---

Envoyé par Tolede37

J'ai ajouté Printers dans les uses
J'ai ajouté Lazarus4... dans les ressources

---

Je suppose qu'il s'agit de Printer4Lazarus dans les paquets requis pour le projet :zoubi:

Citation:

---

Envoyé par Tolede37

J'ai écrit le séquence suivante :

Code:

---

1 2 3 4 5 6

Printer.BeginDoc; Printer.Canvas.Font.Name:='Arial'; Printer.Canvas.Font.Style:=[fsBold]; Printer.Canvas.Font.Size:=10; Printer.Canvas.Textout(1,1,'*'; // il manque une parenthèse fermante, mais ce n'est pas le problème... Printer.EndDoc;

---

---

Le code est correct et une étoile apparaît bien sur mon imprimante. En revanche, cette étoile est écrite très près du bord car la mesure de Textout se fait en pixels. Je vous conseille de retenter l'expérience avec une ligne du style :

Code:

---

1 2	Printer.Canvas.Textout(150,150,'*');

---

Il se peut en effet que vous tentiez d'écrire dans une zone non imprimable.

Citation:

---

Envoyé par Tolede37

Existe-t-il un livre complet sur Lazarus et où le trouver?

---

Oui, il existe le livre de Matthieu Giroux Lazarus (Free Pascal : Développement rapide) mais je ne suis pas sûr de pouvoir le conseiller : il est assez cher et il semblerait qu'il soit écrit de manière plutôt confuse. Pour tout dire, je n'en ai lu que des extraits :oops: Ses avantages : c'est le seul livre publié en français à ce jour et il s'adresse aux tout débutants.
On trouve assez facilement des articles (en anglais) sur Internet et des programmes intéressants. Je vais forcément :aie: vous conseiller le mien si vous n'êtes pas débutant : http://gilles-vasseur.developpez.com...age=pg_01#LI-H
Il est commenté ligne à ligne et comprend sept articles. C'est le projet complet (déjà présent dans les sources et commenté dans quelques semaines) qui pourrait plus particulièrement vous intéresser.
Sinon, posez vos questions ici :P

Bonne continuation,
Gilles

à GVasseur58
Merci d'avoir répondu
En fait, dans mon programme la parenthèse de fermeture existe
J'ai essayé avec 150,150 mais j'ai le même résultat
C'est comme si il ne reconnaissait pas la police, car l'imprimante déplace les têtes pour se placer à l'endroit de l'écriture
J'ai vérifié que ce n'était pas un problème d'encre, mais non !
Votre livre peut m'intéresser.
Je programme depuis les années 80 avec Turbo pour commencer avant que Delphi arrive sur le marché.
Je continue (à 82 ans) ça me fait travailler la tête.
Actuellement je réécrit tous les programmes que j'avais sous Delphi.
Je butte sur des trucs sûrement idiots, mais je le saurai que plus tard.
A + et merci

Citation:

---

Envoyé par Tolede37

C'est comme si il ne reconnaissait pas la police, car l'imprimante déplace les têtes pour se placer à l'endroit de l'écriture.

---

Après avoir placé un bouton sur la fiche et double-cliqué sur lui pour créer un gestionnaire OnCLick, essayez ceci dans le gestionnaire et veuillez indiquer ce qui se passe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

const Essai = 'Un joli texte à imprimer !'; LeftMargin = 100; // marge à gauche var LineHeight, VerticalMargin: Integer; begin with Printer do // on travaille avec l'imprimante try // on protège le code BeginDoc; // commencement Canvas.Font.Name := 'Courier New'; // police très courante Canvas.Font.Size := 10; // taille on ne peut plus courante Canvas.Font.Color := clBlack; // couleur d'écriture noire LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I'))); // hauteur de ligne VerticalMargin := 4 * LineHeight; // marge verticale pour la succession des lignes // On va imprimer Canvas.TextOut(LeftMargin, VerticalMargin, Essai); finally // fin de protection EndDoc; // libération des ressources assurée end; end;

---

Citation:

---

Je continue (à 82 ans) ça me fait travailler la tête.

---

Bravo !:ave:

Bonne continuation,

Gilles

Merci à GVasseur58
Le problème est résolu.
En fait, plus haut dans l'unité, un ";" mal placé a mis en déroute le reste du texte sans avoir de retour du compilateur
Ce qui fait que je planche sur une procédure en bon état depuis presque trois jours*Il faut savoir rester humble quand on programme
Mais votre livre m'intéresse toujours
Merci à vous
A +

Il existe deux livres en anglais sur Lazarus :

• LEARN TO PROGRAM USING LAZARUS
• LAZARUS THE COMPLETE GUIDE

On peut les trouver ici : http://www.blaisepascal.eu/subscribe...epartment.html

Il y a aussi ce PDF en anglais pour débuter en pascal objet : http://code-sd.com/books/startprog/