Discussion :

[sharcky]

Suite à ce sujet sur le code de retour à la ligne, existe-t-il un code pour modifier la taille de la police d'impression ?

Merci

[fred_crrm]

bonjour,

La taille de la police d'impression est lié au PRTF crée :

CRTPRTF FILE(*CURLIB/ACO030$) +
SRCFILE(SRCCRP/DEVSRC) +
PAGESIZE(65 180) LPI(8) CPI(15) +
OVRFLW(65) FONT(420 8) PAGRTT(90) +

Ou directement dans le source :

* CA Brut HT
A G0I0VA R O 22
A EDTCDE(N)
A SPACEB(001)
A FONT(420 (*POINTSIZE 10))

Fred

[sharcky]

bonjour,

si je comprends bien, je dois insérer cette ligne FONT... avant les caractères à imprimer et revenir au font normal quand la ligne est terminée.

[Hédhili Jaïdane]

Bonjour à tous,

Pour une bonne mise en forme d'un état, AMHA la meilleure façon est de passer par les DDS et là ceratains mots clés définissant les caractéristiques du fichier prtf, des enregistrements (records=lignes) et des champs peuvent être utilisés. On peut saisir ces DDS par SEU ou passer par RLU (comme SDA mais pour les prtf).

Cordialement
Hédhili Jaïdane
- - - - - - - - -

[sharcky]

Je comprends bien, mais ce que je veux, en fait, c'est pouvoir modifier la police d'impression sur une ligne particulière du type :

Code :

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

1
2
3
4
5
6
7
8
WORKING STORAGE SECTION
01  ligne pic x(31).
01  l1.
05 filler pic x(10) value "ma donnée:".
05 filler pic x(21) value "ma_donnee_a_modifier".
PROCEDURE DIVISION
*imprimer l1:
write ligne from l1.

[Hédhili Jaïdane]

Bonjour.

Es tu sur un AS/400 ?

Hédhili Jaïdane
- - - - - - - - -

[sharcky]

pas du tout. je travaile sous MS DOS 6.2.

[Hédhili Jaïdane]

Re.

Dans ce cas et si mes souvenirs sont bons, on inérait des caractères de contrôle (les escapes) juste avant la chaîne concernée et on remettait un autre caractère de contrôle du "normal" tout de suite après de la même façon qu'on mettait le caractère de contrôle qui s'applique à la ligne (sauts).

05 filler pic x(10) value "ma donnée:".
05 filler pic x(1) value X"xx".
05 filler pic x(21) value "ma_donnee_a_modifier".
05 filler pic x(1) value X"xx".

Mais vraiment désolé je n'ai aucun souvenir de ces codes. Regarde sur les manuels d'utilisation des imprimantes ASCII. J'ai bien fait ça avec le cobol/2 en 5.0

[Hédhili Jaïdane]

Re;

Voilà ce que j'ai pu te trouver sur mon vieux pc :

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
001630 01  CPI10.
001640     03 filler   pic 9999 comp value H"1B50".
001650 01  CPI12.
001660     03 filler   pic 9999 comp value H"1B4D".
001670 01  CPI15.
001680     03 filler   pic 9999 comp value H"1B67".
001690 01  FORMFEED.
001700     03 filler   pic 9999 comp value H"0C".
001710 01  CONDENSE.
001720     03 filler   pic 9999 comp value H"0F".
001730 01  ANNUL-CONDENSE.
001740     03 filler   pic 9999 comp value H"12".
...........
005270     write LIG from CPI10 after 0.
005300     write LIG from ANNUL-CONDENSE after 0.

[sharcky]

merci.
je vais voir ce que ça donne.

[sharcky]

les codes sont bons, mais ça ne fonctionne que sur des imprimantes qui ne sont pas pcl.

[Hédhili Jaïdane]

Bonjour.

Je crois que pour les PCL, il faut faire prédéder le code à envoyer par le code Escape. Il doit être quelque chose comme X"27" (je n'en suis pas sûr). Essaye de voir la doc de ton imprimante. Je pense que tu y trouvera quelque chose.

Cordialement
Hédhili Jaïdane
- - - - - - - - -