Publié par SFLPMEA le 21/04/2007
Programme de mise en forme d'une édition en Qbasic. Création, en QBASIC, du fichier C:\AAMICHEL\HP670C\TESTIMP.TXT avec plusieurs sortes de mise en page et vous aurez une grande partie des codes à utiliser. Pour en obtenir l'édition sur imprimante, utiliser EDIT.COM. Ne pas omettre la création des répertoires AAMICHEL\HP670C. Par SFLPMEA.
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
' ************************************************ ' * Codes Impression en Qbasic HP DESKJET 670C * ESSDK670.BAS ' ************************************************ DEFSTR A-Z IRESET = CHR$(27) + "E" ' RESET IALIM = IRESET + CHR$(27) + "&l1H" ' Alimentation PORTRAIT = IALIM + CHR$(27) + "&I0O" ' Portrait F.A4 = PORTRAIT + CHR$(27) + "&l26A" ' Portrait Format A4 ILPP = F.A4 + CHR$(27) + "&l7.27C" ' 66 lignes/Page ILPP = F.A4 + CHR$(27) + "&l5.45C" ' 88 lignes/Page ILPP = F.A4 + CHR$(27) + "&l4C" '100 lignes/Page IPC850 = ILPP + CHR$(27) + "(12U" ' Police PC 850 ' CaractŠres par pouce I40C = IPC85O + CHR$(27) + "(s5H" ' 5 CaractŠres/Pouce I80C = IPC85O + CHR$(27) + "(s10H" '10 CaractŠres/Pouce I96C = IPC85O + CHR$(27) + "(s12H" '12 CaractŠres/Pouce I132C = IPC85O + CHR$(27) + "(s16.67H" '16,67 CaractŠres/Pouce I160C = IPC85O + CHR$(27) + "(s20H" '20 CaractŠres/Pouce I192C = IPC85O + CHR$(27) + "(s25H" '25 CaractŠres/Pouce ' POINT SIZE (CHARACTER HEIGHT) I10 = CHR$(27) + "(s6V" 'Hauteur de CaractŠre 2.12 mm I11 = CHR$(27) + "(s9V" ' 3.35 I12 = CHR$(27) + "(s12V" ' 4.23 'I12 = I11 ' Droit ou Italique I20 = I12 + CHR$(27) + "(s0S" 'Style droit I21 = I12 + CHR$(27) + "(s1S" 'Style Italique ' Qualit‚ d'Impression IB = CHR$(27) + "*o-1M" 'Brouillon IN = CHR$(27) + "*o0M" 'Normal IQ = CHR$(27) + "*o1M" 'Qualit‚ ' COMBINAISONS (TOUT EN CARACTERES de 4,23 mm I12) I40D = I40C + I20 + IB ' 40 CaractŠres, Droit, Brouillon I40I = I40C + I21 + IB ' 40 CaractŠres, Italique, Brouillon I80D = I80C + I20 + IB ' 80 CaractŠres, Droit, Brouillon I80I = I80C + I21 + IB ' 80 CaractŠres, Italique, Brouillon I96D = I96C + I20 + IB ' 96 CaractŠres, Droit, Brouillon 'I96I = I96C + I21 + IB ' 96 CaractŠres, Italique, Brouillon I132D = I132C + I20 + IB '132 CaractŠres, Droit, Brouillon 'I132I = I132C + I21 + IB '132 CaractŠres, Italique, Brouillon I160D = I160C + I20 + IB '160 CaractŠres, Droit, Brouillon I160I = I160C + I21 + IB '160 CaractŠres, Italique, Brouillon I192D = I192C + I20 + IB '192 CaractŠres, Droit, Brouillon 'I192I = I192C + I21 + IB '192 CaractŠres, Italique, Brouillon ' Ex‚cution FOR A% = 33 TO 232: A$ = A$ + CHR$(A%): NEXT A% FOR I% = 1 TO 20: N$ = N$ + "1234567890": NEXT I% OPEN "C:\\AAMICHEL\\HP670C\\TESTIMP.TXT" FOR OUTPUT AS #1 LEN = 192 PRINT #1, I80I; "C:\\AAMICHEL\\HP67OC\\ESSDJ670.BAS" PRINT #1, " " PRINT #1, I80D; "I40D: 40 CaractŠres, Droit, Brouillon" PRINT #1, I40D; LEFT$(A$, 40): PRINT #1, LEFT$(N$, 40) PRINT #1, " " PRINT #1, I80D; "I40I: 40 CaractŠres, Italique, Brouillon" PRINT #1, I40I; LEFT$(A$, 40): PRINT #1, LEFT$(N$, 40) PRINT #1, " " PRINT #1, I80D; "I80D: 80 CaractŠres, Droit, Brouillon" PRINT #1, LEFT$(A$, 80): PRINT #1, LEFT$(N$, 80) PRINT #1, " " PRINT #1, I80D; "I80I: 80 CaractŠres, Italique, Brouillon" PRINT #1, I80I; LEFT$(A$, 80): PRINT #1, LEFT$(N$, 80) PRINT #1, " " PRINT #1, I80D; "I96D: 96 CaractŠres, Droit, Brouillon" PRINT #1, I96D; LEFT$(A$, 96): PRINT #1, LEFT$(N$, 96) PRINT #1, " " PRINT #1, I80D; "I132D: 132 CaractŠres, Droit, Brouillon" PRINT #1, I132D; LEFT$(A$, 132): PRINT #1, LEFT$(N$, 132) PRINT #1, " " PRINT #1, I80D; "I160D: 160 CaractŠres, Droit, Brouillon" PRINT #1, I160D; LEFT$(A$, 160): PRINT #1, LEFT$(N$, 160) PRINT #1, " " PRINT #1, I80D; "I160I: 160 CaractŠres, Italique, Brouillon" PRINT #1, I160I; LEFT$(A$, 160): PRINT #1, LEFT$(N$, 160) PRINT #1, " " PRINT #1, I80D; "I192D: 192 CaractŠres, Droit, Brouillon" PRINT #1, I192D; LEFT$(A$, 192): PRINT #1, LEFT$(N$, 192) 'PRINT #1, I80I; : PRINT #1, CHR$(12) END
