FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» ajouter des blancs dans un TXT
par lepetitmarocain Hier à 13:00

» Planétarium virtuel.
par Oscaribout Mar 14 Aoû 2018 - 19:45

» 11 (en analyse): commandes sur TAB et SUB_MENU.
par Jack Mar 14 Aoû 2018 - 14:10

» 10 (en analyse): Erreur sur variable locale.
par Jack Mar 14 Aoû 2018 - 14:05

» Métamatière, éternité et renouvellement
par Oscaribout Mar 14 Aoû 2018 - 12:40

» De retour...
par Yannick Lun 13 Aoû 2018 - 15:11

» bug SEVERE fnc+sub : (35)name already defined
par Oscaribout Dim 12 Aoû 2018 - 23:55

» Encadrement
par Jean Claude Dim 12 Aoû 2018 - 11:53

» Des rectangles...
par JL35 Dim 12 Aoû 2018 - 10:53

» TRIGGER_KEY_COMBINED_TOUCH
par Jean Claude Mar 7 Aoû 2018 - 20:58

» ITEM_SELECT N,L pour synedit
par Jean Claude Mar 7 Aoû 2018 - 19:11

» amélioration panoramic
par silverman Dim 5 Aoû 2018 - 18:34

» Commande file_readln.
par Pedro Alvarez Dim 5 Aoû 2018 - 17:08

» Klaus ?
par Jack Sam 4 Aoû 2018 - 22:48

» Défragmentation du disque dur
par JL35 Sam 4 Aoû 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2018
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Papier millimétré

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Papier millimétré   Sam 28 Avr 2018 - 10:34

C'est quelque chose qui ne doit plus servir à grand chose de nos jours, mais bon, disons que c'est un gadget:
Code:
' Papier millimétré à imprimer
LABEL Imprime
DIM kgf$,rah,rav,x%,y%,mg%,mh%,fpm$
DIM prn$,Pr_lt%,Pr_ht%,phnd%,chnd%
kgf$ = "C:\PANORAMIC\KGF\KGF.dll": ' chemin de KGF.dll
fpm$ = "C:\TEMP\Millim.bmp": ' fichier provisoire
WIDTH 0,5000: HEIGHT 0,7050: COLOR 0,128,255,255: CAPTION 0,"   -   PAPIER   MILLIMÉTRÉ   -"
BUTTON 2: TOP 2,0: WIDTH 2,200: LEFT 2,SCREEN_X/2-120: CAPTION 2,"Imprimer"
  FONT_BOLD 2: FONT_SIZE 2,14: ON_CLICK 2,Imprime
' Définition imprimante: 4962 x 7013 pixels (voir SUB Pr_Init: données Pr_lt% et Pr_ht%)
DLL_ON kgf$
    prn$ = ""
    x% = DLL_CALL4("PrinterManager",1,ADR(phnd%),ADR(chnd%),ADR(prn$))
    Pr_lt% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),3,0,0)
    Pr_ht% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),4,0,0)
    x% = DLL_CALL4("PrinterManager",7,ADR(phnd%),ADR(chnd%),0)
DLL_OFF: ' dimensions en pixels de la feuille A4 imprimée
rah = Pr_lt%/210: ' pixels par millimètre, horizontaux, à l'impression
rav = Pr_ht%/297: ' pixels par millimètre, verticaux, à l'impression
mg% = 5*rah: mh% = 3.5*rav: ' marges gauche ( 5 mm) et haut ( 3,5 mm)
PICTURE 1: TOP 1,25: WIDTH 1,200*rah: HEIGHT 1,290*rav
2D_TARGET_IS 1: 2D_PEN_COLOR 255,96,40
FOR y% = 0 TO 290
    2D_PEN_WIDTH 1: IF y%/10 = INT(y%/10) THEN 2D_PEN_WIDTH 3
    2D_LINE 0,y%*rav,WIDTH(1),y%*rav
NEXT y%
FOR x% = 0 TO 200
    2D_PEN_WIDTH 1: IF x%/10 = INT(x%/10) THEN 2D_PEN_WIDTH 3
    2D_LINE x%*rah,0,x%*rah,HEIGHT(1)
NEXT x%
END
' ==============================================================================
Imprime:
  x% = MESSAGE_CONFIRMATION_YES_NO("Imprimante prête ?"): IF x%<>1 THEN RETURN
  FILE_SAVE 1,fpm$
  Pr_Init(0,"")
  Pr_Image(fpm$,mg%,mh%,WIDTH(1),HEIGHT(1),0)
  Pr_Impr()
  FILE_DELETE fpm$
RETURN
' ==============================================================================
SUB Pr_init(orient%,prn$)
  ' Initialisation imprimante ('début d'impression')
  ' orient% = 0 Portrait, = 1 Paysage
  ' prn$ = "": imprimante par défaut
  '            sinon nom de l'imprimante (pour essais)
  '            par exemple "Microsoft XPS Document Writer" impression virtuelle
  '            dans un fichier .XPS
  ' Dans les paramètres des fonctions, le positionnement initial doit être fait en
  ' valeurs absolues: distances par rapport aux bords gauche et haut de la feuille
  ' A4, sans tenir compte des marges non imprimables.
  ' Les couleurs sont à exprimer au format BGR (en non pas RGB): B*256*256+G*256+R
  DLL_ON kgf$
  IF VARIABLE("phnd%") = 0 THEN DIM phnd%
  IF VARIABLE("chnd%") = 0 THEN DIM chnd%
  IF VARIABLE("inip%") = 0 THEN DIM inip%
  IF VARIABLE("Pr_res%") = 0 THEN DIM Pr_res%
  IF VARIABLE("Pr_px%") = 0 THEN DIM Pr_px%: ' pixels par mm (600 dpi)
  IF VARIABLE("Pr_lt%") = 0 THEN DIM Pr_lt%: ' largeur totale
  IF VARIABLE("Pr_ht%") = 0 THEN DIM Pr_ht%: ' hauteur totale
  IF VARIABLE("Pr_mg%") = 0 THEN DIM Pr_mg%: ' marge gauche
  IF VARIABLE("Pr_mh%") = 0 THEN DIM Pr_mh%: ' marge haut
  IF VARIABLE("Pr_lu%") = 0 THEN DIM Pr_lu%: ' largeur utile
  IF VARIABLE("Pr_hu%") = 0 THEN DIM Pr_hu%: ' hauteur utile
  IF prn$ <> "": ' pour essais sans impression réelle
      Pr_res%=DLL_CALL4("PrinterManager",10,ADR(phnd%),ADR(chnd%),ADR(prn$))
  END_IF
  ' Orientation portrait (0) ou paysage (1)
  Pr_res% = DLL_CALL4("PrinterManager",4,ADR(phnd%),ADR(chnd%),orient%): ' orientation
  Pr_res% = DLL_CALL4("PrinterManager",1,ADR(phnd%),ADR(chnd%),0): ' init
  ' Dimensions sans les marges, en pixels:
  ' ==========
  ' ATTENTION: Les dimensions sont actualisées en fonction de l'option orientation !
  ' ==========
  Pr_lt% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),3,0,0): ' largeur totale
  Pr_ht% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),4,0,0): ' hauteur totale
  IF orient% = 0
      Pr_px% = Pr_ht%/297: ' pixels par mm, à l'impression en 600 dpi
  ELSE
      Pr_px% = Pr_lt%/297: ' idem (paysage)
  END_IF
  ' Marges non imprimables: décalage en pixels à soustraire gauche et haut:
  Pr_mg% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),1,0,0): ' marge gauche
  Pr_mh% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),2,0,0): ' marge haut
  ' Dimensions utiles, en pixels:
  IF Pr_mg% = 0 OR Pr_mh%= 0: ' cas imprimante virtuelle (PDFCreator)
      Pr_mg% = 75: Pr_mh% = 75: ' forçage comme imprimante réelle
      Pr_lu% = Pr_lt% - 2*Pr_mg%: Pr_hu% = Pr_ht% - 2*Pr_mh%
  ELSE
      Pr_lu% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),7,0,0): ' largeur utile
      Pr_hu% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),8,0,0): ' hauteur utile
  END_IF
  ' Couleur trait noir, épaisseur = 1, arrière-plan transparent:
  inip% = -2
  Pr_res% = DLL_CALL6("PrinterFunction",6,ADR(phnd%),ADR(chnd%),0,inip%,1)
  inip% = 1
END_SUB
' ==============================================================================
SUB Pr_Image(f$,x%,y%,w%,h%,u%)
  ' Impression de l'image f$ en x%,y%, dimensions w% x h% (sera redimensionnée pour
  ' tenir dans le cadre donné).
  ' u% = 0: unités pixels, u% = 1, unités millimètres
  ' ******** NB: coordonnées d'impression absolues (pixels): de 0,0 à 4962,7013 ********
  ' ATTENTION :
  ' =========
  ' les coordonnées prises en compte ont pour origine le début de la zone imprimable.
  ' Il faut donc soustraire les marges pour partir de l'angle supérieur gauche de la feuille.
  IF inip% = 0 THEN EXIT_SUB: ' imprimante non initialisée (Sub Pr_Init)
  IF u% = 1: ' unités en mm, conversion en pixels
      x% = x%*Pr_mmpix: y% = y%*Pr_mmpix: w% = w%*Pr_mmpix: h% = h%*Pr_mmpix
  END_IF
  x% = x%-Pr_mg%: y% = y%-Pr_mh%: ' sinon, marges ajoutées d'office
  Pr_res% = DLL_call6("PrinterFunction",4,ADR(phnd%),ADR(chnd%),0,x%,y%): ' positionnement
  Pr_res% = DLL_call6("PrinterFunction",7,ADR(phnd%),ADR(chnd%),ADR(f$),w%,h%)
END_SUB
' ==============================================================================
SUB Pr_Impr()
  ' Lancement de l'impression réelle ('fin d'impression')
  IF inip% = 0 THEN EXIT_SUB: ' imprimante non initialisée (Sub Pr_Init)
  Pr_res% = DLL_CALL4("PrinterManager",3,ADR(phnd%),ADR(chnd%),0)
  inip% = 0
  DLL_OFF
END_SUB
' ==============================================================================
A ajuster:
- le chemin du fichier provisoire d'impression, en tête
- le chemin de KGF.dll de l'ami Klaus, kgf$ en tête
La surface utile (imprimée) est de 200 x 290 mm

Edit: calcul automatique des dimensions de la page en pixels imprimés (fonction de KGF.dll)


Dernière édition par JL35 le Sam 28 Avr 2018 - 14:36, édité 6 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Papier millimétré   Sam 28 Avr 2018 - 10:54

Chouette !

Je suis sûr que tu peux simplifier la configuration du logiciel en demandant à KGF.dll de te fournir des renseignements sur l'imprimante. Cela te permettra d'adapter tout ) n'importe quelle imprimante et de gérer le cas de plusieurs imprimantes. Regarde PrinterFunction code 8:
Code:
      8 = retourner une dimension de la feuille
                opt1% = code de la valeur à retourner
                        1      PHYSICALOFFSETX    décalage horizontal en pixel
                        2      PHYSICALOFFSETY    décalage vertical en pixel
                        3      PHYSICALWIDTH        largeur totale en pixel
                        4      PHYSICALHEIGHT      hauteur totale en pixel
                        5      LOGPIXELSX                résolution horizontale en pixels/pouce
                        6      LOGPIXELSY                résolution verticale en pixels/pouce
                        7      HORZRES                    largeur utile en pixels
                        8      VERTRES                      hauteur utile en pixels
                        9      HORZSIZE                    largeur utile en millimètres
                        10      VERTSIZE                    hauteur utile en millimètres
Tu as même le nombre de pixels par pouce, et ce séparément pour la direction horizontale et verticale - et oui, il y a des impeimantes qui n'ont pas la même résolution dans les deux sens !

Je sais bien que tu utilises déjà ce code, mais uniquement pour avoir le nombre de pixels au total. Je pense que tu peux aller plus loin...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Papier millimétré   Sam 28 Avr 2018 - 13:11

Effectivement Klaus, je suis parti du principe que la résolution en pixels par mm sur l'imprimante était la même en horizontal et en vertical, ce qui n'est pas forcément le cas.
Mais bon, la sub Pr_Init() renvoie les deux valeurs Pr_lt% et Pr_ht% en pixels.

J'ai ajouté là-haut la fonction préalable de demande de ces paramètres. Il faut pour ça que l'imprimante soit allumée,
je lance la fonction, mais je ne peux pas en sortir sans impression systématique d'une page blanche à la fermeture...
Y a-t'il moyen d'obtenir ces renseignements sans impression physique ? J'avais noté qu'il fallait mettre une valeur quelconque comme nom d'imprimante de la fonction 10 de PrinterManager, mais ça imprime quand même... (dans la sub, Prn$<>"")

Un moment, autant pour moi, je regarde PrinterFunction...


Dernière édition par JL35 le Sam 28 Avr 2018 - 13:46, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Papier millimétré   Sam 28 Avr 2018 - 13:38

As-tu essayé de placer
Code:
  Pr_res% = DLL_CALL4("PrinterManager",1,ADR(phnd%),ADR(chnd%),0): ' init
plus loin, après la récupération des paramètres de l'imprimante ? Cela devrait te permettre de récupérer la configuration avant d'initialiser l'impression, et donc de sortir; le cas échéant, sans imprimer de page blanche. Dès que cette command a été passée, une page blanche est préparée dans le buffer pour le driver, et en arrêtant, celle-ci est imprimée.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Papier millimétré   Sam 28 Avr 2018 - 13:58

Bon, je n'y arrive pas, je récupère les paramètres, mais pas moyen de sortir sans une impression bidon:
Si, ça marche ! je corrige là-haut
Code:
DLL_ON kgf$
    prn$ = ""
    x% = DLL_CALL4("PrinterManager",1,ADR(phnd%),ADR(chnd%),ADR(prn$))
    Pr_lt% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),3,0,0)
    Pr_ht% = DLL_CALL6("PrinterFunction",8,ADR(phnd%),ADR(chnd%),4,0,0)
    x% = DLL_CALL4("PrinterManager",7,ADR(phnd%),ADR(chnd%),0)
DLL_OFF: ' dimensions en pixels de la feuille A4 imprimée
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Papier millimétré   

Revenir en haut Aller en bas
 
Papier millimétré
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Paper Case : protéger vos CD avec une feuille de papier
» Récupérer des images du presse-papier
» Un presse-papier amélioré
» Calculer un point GPS a partir d'une carte routière papier
» Road book papier

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: