Discussion :

[avigeilpro]

Bonjour à tous.

Je dois faire un programme assez simple :
l'utilisateur saisit un texte et le programme doit tout simplement l'imprimer.
Jusque là je n'avais pas de problème. Mon problème se trouve au niveau des paramètres de l'imprimante. La personne qui m'a demandé ce programme m'a fourni une impression d'écran de la page de paramètres de son ancien programme. Or je n'y connais absolument rien. Pourriez-vous me montrer comment envoyer ces paramètres à l'imprimante ?

Voilà mon code d'impression :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Imprimer;
  begin
     TextBackground(0);
     TextColor(7);
     if NbEdition>0 then
        begin
             For Reponse:=1 To NbEdition Do
             Writeln(LST,Total);
        end;
  end;

Vous aurez compris que je dois imprimer NbEdition de fois la variable Total.

Et voilà la capture d'écran :


Merci d'avance a tous ceux qui pourrons m'aider

[Eric Sigoillot]

Bonjour !

Les seuls paramètres particuliers et à faire gérer par l'imprimante sont les codes d'échappement : tu vas les reconnaîtres grâce à leur séquence qui commence toujours par le caractère #27 (ESC).

Par exemple, ta copie d'écran comprend une initialisation avec 027 - 064. Ca signifie qu'il va falloir envoyer le code d'échappement #27#64 à l'imprimante.

Pour envoyer ce code, c'est très simple : il suffit de faire comme si on imprimait, avec Write(Lst, Code);

Un code d'échappement permet de contrôler l'impression : passage en gras, en italique, sauter une page, etc.

Je t'engage à regarder le fichier PRNFLTR.PAS présent dans le répertoire BIN de Turbo Pascal 7 (disponible en téléchargement sur http://pascal.developpez.com/compilateurs/tp7/). C'est une interface assez complète pour contrôler une imprimante.

Attention toutefois aux intéractions possibles dûes à Windows 2000 et supérieur.


@++

[avigeilpro]

Quel doit être le format de la variable Code de ton exemple ? Et je dois les faire passer tous dès le début avant d'imprimer ma variable Total ?

[M.Dlb]

Un char, ou une string, à mon avis c'est comme tu veux Tu dois faire passer le code avant d'imprimer les caractères. Par exemple, si tu veux que la prochaine phrase que tu imprimes soit soulignée, il faut que tu passes le code correspondant au soulignement avant de passer ta phrase.

[avigeilpro]

D'accord, et dans mon string je met comment le code ?
Je met ca par exempe :

Code :

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

Code := '#27#64'

Euh d'ailleur, je dois mettre les code d'initialisation, de taille de page avant chaque impression sachant que ma variable total correspond a une page.

[M.Dlb]

Voilà, ca devrait fonctionner comme ça. Il faut bien sûr tout régler comme il faut avant de lancer l'impression à proprement parler

[avigeilpro]

Très bien, je vais essayer.
Merci

[Eric Sigoillot]

Ah nan, ça ne va pas fonctionner ça !
Il ne faut pas confondre #27 et '#27'. Le premier est un caractère, le second est une chaîne de 3 caractères.

Donc on peut écrire :

Code :

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

1
2
const
  Code: string = #27#64;

On peut insérer des caractères dans le milieu, comme ça :

Code :

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

1
2
3
4
5
var
  S: string;
begin
  S := #27#01'ABCD'#27#02'EFGH';
end;

Bonne programmation

[avigeilpro]

Merci, j'essairais, mais pas tout de suite car j'ai pas le temps.

[avigeilpro]

Je réouvre ce post car j'ai une nouvelle question qui est dans le même but:
Je souhaite faire entrer les codes par l'utilisateur, puis-je utiliser la fonction Chr pour convertir les nombre qu'il me donne. En bref est-ce que cela fonctionne :

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
23
24
25
26
27
28
program Saisie;
uses crt;
 
Var Code:Integer;   {Variable de saisie des codes}
TotalCodes:String;  {Variable contenant les Codes convertis en caractères ascii}
AffCodes:String;     {Variable pour afficher les codes à l'écran}
CodeStr:String;      {Variable pour Convertir code de Integer à string pour affichage}
 
Begin
Code:=0;
AffCodes:='';
TotalCodes:='';
 
{Necessite d'entrer -1 pour arrêter la saisie. Ce code n'est pas pris en compte}
While Code<>-1 Do
   Begin
      clrscr;
      Writeln(AffCodes);
      Readln(Code);
      If Code<>-1 then
         Begin
              Str(Code,CodeStr);
              AffCodes:=AffCodes + '-' + CodeStr;
         end;
      TotalCodes:=TotalCodes + Chr(Code);
   end;
 
end.

Merci d'avance

[Eric Sigoillot]

Bonjour,

En bref est-ce que cela fonctionne

On a rarement vu un PC exploser suite à l'utilisation de Crt
Le plus simple reste donc de tester.

Mais sinon, oui, ça devrait fonctionner. Ne pas oublier toutefois que le premier code d'échappement se doit d'être Esc (#27), sinon, ça ne risque pas de fonctionner...

@++

[avigeilpro]

Dac
Merci beaucoup