demande explication KGF pour imprimer en mm

dim dll$
dll$ = "KGF.dll"
 DLL_ON dll$
 dim r%, G% , B% , pol$ , sz% , coulsiz% , x% , y% , txt$  , res%  , phnd% , chnd% , clsz%   , attr$
 R% = 0: G% = 255: B% = 0    : ' <===== en integer !
    pol$ = "Courier"
    sz% = 12
    coulsiz% = ((B%*256+G%)*256+R%)*256 + sz%      : ' <====== R, G, B en integer, ajout de sz%
    ' coulsiz% =32768  + sz%
    coulsiz% =0  + sz%
    
     attr$ = "B"
    
    
     res% = DLL_call4("PrinterManager",1,ADR(phnd%),ADR(chnd%),0) : ' init imprimante
    res% = DLL_call4("PrinterManager",121,ADR(phnd%),ADR(chnd%),0) : ' init imprimante
    
    res% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),9,0,0)
    
    clsz% = coulsiz%
     x%=100
     y%=50
    
     txt$= " La ligne un va etre imprimée"
    res% = DLL_call6("PrinterPrintText",ADR(txt$),ADR(pol$),ADR(attr$),clsz%,ADR(x%),ADR(y%))
    
    
     res% = DLL_call4("PrinterManager",3,ADR(phnd%),ADR(chnd%),0): ' fermer et imprimer
    
     message "Fin"

SUB Print_A4(f$,or%)
  ' Impression d'une image de page A4, orientation or%=0 Portrait, =1 Paysage
  ' Dimensions conservées, seules manquent les marges non imprimables.
  ' Page de 778x1100 pixels, pixels imprimables (imprimante Canon):
  ' PORTRAIT: xg mini = 11, xd maxi = 763, yh mini = 11, yb maxi = 1080
  '           -> w = 753 pixels, h = 1070 pixels
  ' PAYSAGE:  xg mini = 11, xd maxi = 1080, yh mini = 11, yb maxi = 763
  '           -> w = 1070 pixels, h = 753 pixels
  ' Surface imprimable: ~ 203,3 x 288 mm
  ' marges portrait: mg = 2,97 mm, md = 3,78 mm, mh = 2,97 mm, mb = 6 mm
  ' Arrondi: Marges non imprimées Gauche,Droite,Haut = 3 mm, Bas = 6 mm
  DIM_LOCAL wtp$,ft$,w$,h$,a$
  wtp$ = "C:\UTIL\WinTextPrint.exe": ' module 'Klaus' (chemin à adapter)
  ft$ = "Z:\Balises.txt": ' fichier temporaire de manoeuvre (idem à adapter !) 
  IF or% = 0
      w$ = "210": h$ = "297": a$ = "<#orientation=Portrait#>"
  ELSE
      w$ = "297": h$ = "210": a$ = "<#orientation=Paysage#>"
  END_IF
  FILE_OPEN_WRITE 1,ft$
    FILE_WRITELN 1,a$+" <#image="+f$+","+STR$(-3)+","+STR$(-3)+","+w$+","+h$+"#>"
  FILE_CLOSE 1
  EXECUTE_WAIT wtp$+"|/file="+ft$  
  FILE_DELETE ft$
END_SUB

dim res%, phnd%, chnd%

list 1
full_space 1

dll_on "kgf"

res% = DLL_call4("PrinterManager",1,adr(phnd%),adr(chnd%),0)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),3,0,0)
item_add 1,"Largeur totale en pixels : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),4,0,0)
item_add 1,"Hauteur totale en pixels : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),5,0,0)
item_add 1,"Résolution horizontale en pixels par pouce : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),6,0,0)
item_add 1,"Résolution verticale en pixels par pouce : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),7,0,0)
item_add 1,"Largeur utile en pixels : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),8,0,0)
item_add 1,"Hauteur utile en pixels : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),9,0,0)
item_add 1,"Largeur utile en millimètres : " + str$(res%)

res% = DLL_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),10,0,0)
item_add 1,"Hauteur utile en millimètres : " + str$(res%)

end

DIM fr$,wp%,hp%,r,w%,h%,x%,y%
fr$ = "Z:\Img.bmp": ' fichier de manoeuvre, à adapter
wp% = 600: hp% = wp%*297/210: ' dimensions à l'écran, proportions d'une page A4
BORDER_SMALL 0: COLOR 0,0,0,128
WIDTH 0,wp%+20: HEIGHT 0,hp%+40
PICTURE 1: WIDTH 1,wp%: HEIGHT 1,hp%: 2D_TARGET_IS 1: PRINT_TARGET_IS 1
r = hp%/297: ' pixels écran par mm de la page A4 imprimée
' Exemple: tracé rectangle de 100x75 mm, en x=24 y=35 (dimensions imprimées)
w% = 100*r: h% = 75*r: x% = 24*r: y% = 35*r
2D_RECTANGLE x%,y%,x%+w%,y%+h%
PRINT_LOCATE x%+5,y%+5: PRINT "Rectangle 100x75mm en x=24, y=35"
FILE_SAVE 1,fr$
' Print_A4(fr$,0)
END

SUB Print_A4(f$,or%)
  ' Impression d'une image de page A4, orientation or%=0 Portrait, =1 Paysage
  ' Dimensions conservées, seules manquent les marges non imprimables.
  ' -> *** Image redimensionnée pour remplir la page A4 ***
  ' Page de 778x1100 pixels, pixels imprimables (imprimante Canon):
  ' PORTRAIT: xg mini = 11, xd maxi = 763, yh mini = 11, yb maxi = 1080
  '           -> w = 753 pixels, h = 1070 pixels
  ' PAYSAGE:  xg mini = 11, xd maxi = 1080, yh mini = 11, yb maxi = 763
  '           -> w = 1070 pixels, h = 753 pixels
  ' Surface imprimable: ~ 203,3 x 288 mm
  ' marges portrait: mg = 2,97 mm, md = 3,78 mm, mh = 2,97 mm, mb = 6 mm
  ' Arrondi: Marges non imprimées Gauche,Droite,Haut = 3 mm, Bas = 6 mm
  ' NB: si l'image à imprimer est inférieure à A4, elle est imprimée en haut
  '     à gauche de la feuille (dimensions respectées) <- FAUX, redimensionnée !
  DIM_LOCAL wtp$,ft$,w$,h$,a$
  wtp$ = "C:\UTIL\WinTextPrint.exe": ' module 'Klaus'
  ft$ = "Z:\Balises.txt": ' fichier temporaire de manoeuvre  
  IF or% = 0
      w$ = "210": h$ = "297": a$ = "<#orientation=Portrait#>"
  ELSE
      w$ = "297": h$ = "210": a$ = "<#orientation=Paysage#>"
  END_IF
  FILE_OPEN_WRITE 1,ft$
    FILE_WRITELN 1,a$+" <#image="+f$+","+STR$(-3)+","+STR$(-3)+","+w$+","+h$+"#>"
  FILE_CLOSE 1
  EXECUTE_WAIT wtp$+"|/file="+ft$  
  FILE_DELETE ft$
END_SUB

SUB PrintA4n(f$)
  ' - Impression de l'image d'une page A4 (dimensions quelconques mais
  '  proportions A4) sur l'imprimante par défaut..
  '      ======================================================
  '      NB: Image agrandie à l'impression au format A4 total, pas de marges !
  '      ======================================================
  ' - La surface totale est imprimée, prévoir des marges pour les bordures (~3mm)
  ' - Orientation Portrait/Paysage automatique en fonction des proportions
  '  de l'image à imprimer. 
  DIM_LOCAL q$,scr$,pt$,ptr$,a$,k%
  IF VARIABLE("nimpr$") = 0: ' Nom de l'imprimante par défaut
      DIM nimpr$
      EXECUTE_WAIT "cmd.exe|/c Cscript %WINDIR%\System32\Printing_Admin_Scripts\fr-FR\Prnmngr.vbs -g |clip"
      a$ = CLIPBOARD_STRING_PASTE$
      k% = INSTR(a$,"L'imprimante ")
      nimpr$ = TRIM$(RIGHT_POS$(a$,k%+28)): ' Nom de l'imprimante implicite   
  END_IF 
  q$ = CHR$(34)
  pt$ = "rundll32 shimgvw.dll ImageView_PrintTo /pt" 
  EXECUTE_WAIT "cmd.exe|/c "+pt$+" "+f$+" "+q$+nimpr$+q$
END_SUB

DIM fr$,wp%,hp%,r,w%,h%,x%,y%
fr$ = "C:\TEMP\ImgA4.bmp": ' fichier de manoeuvre, à adapter
wp% = 600: hp% = wp%*297/210: ' dimensions à l'écran, proportions d'une page A4
BORDER_SMALL 0: COLOR 0,0,0,128
WIDTH 0,wp%+20: HEIGHT 0,hp%+40
PICTURE 1: WIDTH 1,wp%: HEIGHT 1,hp%: 2D_TARGET_IS 1: PRINT_TARGET_IS 1
r = hp%/297: ' pixels écran par mm de la page A4 imprimée
' Exemple: tracé rectangle de 100x75 mm, en x=24 y=35 (dimensions imprimées)
w% = 100*r: h% = 75*r: x% = 24*r: y% = 35*r
2D_RECTANGLE x%,y%,x%+w%,y%+h%
PRINT_LOCATE x%+5,y%+5: PRINT "Rectangle 100x75mm en x=24, y=35"
FILE_SAVE 1,fr$
PrintA4n(fr$)
END
' ======================================================================
SUB PrintA4n(f$)
  ' - Impression de l'image d'une page A4 (dimensions quelconques mais
  '  proportions A4) sur l'imprimante par défaut..
  '      ======================================================
  '      NB: Image agrandie à l'impression au format A4 total, pas de marges !
  '      ======================================================
  ' - La surface totale est imprimée, prévoir des marges pour les bordures (~3mm)
  ' - Orientation Portrait/Paysage automatique en fonction des proportions
  '  de l'image à imprimer.
  DIM_LOCAL q$,scr$,pt$,ptr$,a$,k%
  IF VARIABLE("nimpr$") = 0: ' Nom de l'imprimante par défaut
      DIM nimpr$
      EXECUTE_WAIT "cmd.exe|/c Cscript %WINDIR%\System32\Printing_Admin_Scripts\fr-FR\Prnmngr.vbs -g |clip"
      a$ = CLIPBOARD_STRING_PASTE$
      k% = INSTR(a$,"L'imprimante ")
      nimpr$ = TRIM$(RIGHT_POS$(a$,k%+28)): ' Nom de l'imprimante implicite  
  END_IF
  q$ = CHR$(34)
  pt$ = "rundll32 shimgvw.dll ImageView_PrintTo /pt"
  EXECUTE_WAIT "cmd.exe|/c "+pt$+" "+f$+" "+q$+nimpr$+q$
END_SUB

DIM f$,ppm,x,y,x1,y1
f$ = "Z:\A4.bmp": ' à ajuster
BORDER_SMALL 0: WIDTH 0,778+16: HEIGHT 0,1134
PICTURE 1: WIDTH 1,778: HEIGHT 1,1100: 2D_TARGET_IS 1: PRINT_TARGET_IS 1
ppm = 1100/297: ' pixels à l'écran par millimètre
x = 5*ppm: x1 = 205*ppm
y = 5*ppm: 2D_LINE x,y,x1,y: ' trait haut
y1 = 285*ppm: 2D_LINE x,y1,x1,y1: ' trait bas
2D_LINE x,y,x,y1: 2D_LINE x1,y,x1,y1: ' traits gauche et droite
x = 105*ppm: 2D_LINE x,y,x,y1: ' traits centraux, vertical
x = 5*ppm: y = 145*ppm: 2D_LINE x,y,x1,y; ' horizontal
PRINT_LOCATE 25,20: PRINT "200 x 280 mm"
FILE_SAVE 1,f$
A4_Print(f$,0)
END

SUB A4_Print(f$,ori%)
  ' Impression sur feuille A4 de l'image f$
  ' ori% = 0: portrait, =1: paysage
  DIM_LOCAL prn$,phnd%,chnd%,i%,j%,px,mg%,mh%,xi%,yi%,x,y,w,h,wi%,hi%
  prn$ = "": ' imprimante implicite
  w = 210: h = 297: IF ori% = 1 THEN w = 297: h = 210: ' dimensions en mm
  DLL_ON "C:\PANORAMIC\KGF\KGF.dll": ' A AJUSTER !
  i% = DLL_CALL4("PrinterManager",10,ADR(phnd%),ADR(chnd%),ADR(prn$)): ' init
  i% = DLL_CALL4("PrinterManager",4,ADR(phnd%),ADR(chnd%),ori%): ' orientation
  i% = DLL_CALL4("PrinterManager",1,ADR(phnd%),ADR(chnd%),0): ' init
  px = 7013/297: ' pixels par mm à l'impression (def. imprimante = 4962x7013 pixels)
  xi% = 0: yi% = 0: wi% = w*px: hi% = h*px: ' mm->pixels (valeurs entières exigées)
  mg% = 75: mh% = 75: xi% = xi%-mg%: yi% = yi%-mh%: ' compense décalage marges non imprimables
  j% = -2: i% = DLL_CALL6("PrinterFunction",6,ADR(phnd%),ADR(chnd%),0,j%,1)
  i% = DLL_CALL6("PrinterFunction",4,ADR(phnd%),ADR(chnd%),0,xi%,yi%): ' positionnement
  i% = DLL_CALL6("PrinterFunction",7,ADR(phnd%),ADR(chnd%),ADR(f$),wi%,hi%)
  i% = DLL_CALL4("PrinterManager",3,ADR(phnd%),ADR(chnd%),0): ' Lancement impression
  DLL_OFF
END_SUB

' Impression de papier millimétré
DIM w,h,ppm,mg,mh,x,y,f$
f$ = "Z:\Gril.bmp": ' fichier provisoire, à ajuster
w = 778: h = 1100: ' proportions A4
ppm = h/297: ' pixels/mm
mg = 5: mh = 5: ' marges gauche et haut
WIDTH 0,w+16: HEIGHT 0,h+34: BORDER_SMALL 0: COLOR 0,0,80,80
PICTURE 1: WIDTH 1,w: HEIGHT 1,h: 2D_TARGET_IS 1
2D_PEN_COLOR 255,96,40
2D_PEN_COLOR 255,180,128
FOR x = 0 TO 200: ' lignes verticales
    2D_PEN_WIDTH 1: IF x/10 = INT(x/10) THEN 2D_PEN_WIDTH 2
    2D_LINE (x+mg)*ppm,mh*ppm,(x+mg)*ppm,h-mg*ppm
NEXT x
FOR y = 0 TO 285: ' lignes horizontales
    2D_PEN_WIDTH 1: IF y/10 = INT(y/10) THEN 2D_PEN_WIDTH 2
    2D_LINE mg*ppm,(y+mh)*ppm,w-mg*ppm,(y+mh)*ppm
NEXT y
x = MESSAGE_CONFIRMATION_YES_NO("Imprimante prête ?")
IF x = 1
    FILE_SAVE 1,f$: A4_Print(f$,0): FILE_DELETE f$
END_IF
END
' ============================================================================
SUB A4_Print(f$,ori%)
  ' Impression sur feuille A4 de l'image f$
  ' ori% = 0: portrait, =1: paysage
  DIM_LOCAL prn$,phnd%,chnd%,i%,j%,px,mg%,mh%,xi%,yi%,x,y,w,h,wi%,hi%
  prn$ = "": ' impression sur l'imprimante implicite
  w = 210: h = 297: IF ori% = 1 THEN w = 297: h = 210: ' dimensions A4 en mm
  DLL_ON "C:\PANORAMIC\KGF\KGF.dll": ' A AJUSTER !
  i% = DLL_CALL4("PrinterManager",10,ADR(phnd%),ADR(chnd%),ADR(prn$)): ' init
  i% = DLL_CALL4("PrinterManager",4,ADR(phnd%),ADR(chnd%),ori%): ' orientation
  i% = DLL_CALL4("PrinterManager",1,ADR(phnd%),ADR(chnd%),0): ' init
  px = 7013/297: ' pixels par mm à l'impression (def. imprimante = 4962x7013 pixels)
  xi% = 0: yi% = 0: wi% = w*px: hi% = h*px: ' mm->pixels (valeurs entières exigées)
  mg% = 75: mh% = 75: xi% = xi%-mg%: yi% = yi%-mh%: ' compense décalage marges non imprimables
  j% = -2: i% = DLL_CALL6("PrinterFunction",6,ADR(phnd%),ADR(chnd%),0,j%,1)
  i% = DLL_CALL6("PrinterFunction",4,ADR(phnd%),ADR(chnd%),0,xi%,yi%): ' positionnement
  i% = DLL_CALL6("PrinterFunction",7,ADR(phnd%),ADR(chnd%),ADR(f$),wi%,hi%)
  i% = DLL_CALL4("PrinterManager",3,ADR(phnd%),ADR(chnd%),0): ' Lancement impression
  DLL_OFF
END_SUB
' =============================================================================