Imprime facile

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Répondre
Avatar de l’utilisateur
MLD
Messages : 1124
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Imprime facile

Message par MLD »

Bonjour a tous

je suppose que comme moi, vous vous êtes pris le chou pour faire de simple impressions de textes. (Avec les DPI les pixels ect).
J'ai eu l'idée de me dire ce qu'il faut c'est une feuille de papier A4, un double décimètre, et quelques lignes de code.
Avec mes petites procédures vous pouvez facilement imprimer : Papier a lettre personalisé, factures, relances diverses ect.
Vous pouvez inclure ce code dans vos programmes en réalisant un pbi,une lib, Dll, ou autres.
Le code est libre.
Simplement s'il y a plus simple, ou des bugs, ou des ajouts. Remontez les codes sur le fofo SVP
A vous de jouer (les codes sont basés sur une imprimante réglée en 300 et 600 DPI)

Code : Tout sélectionner

;COMMANDES
;Tous les placements de texte sont en millimètres ( sauf chiffres négatif)
;MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l) 
;MLD_impDrawText(mmhz ,mmvert,"txt") écrit une ligne  
;           si mmhz = -1 imprime aprés le dernier texte
;           si mmhz = -2 centre le texte
;           si mmvert = -1 garde la même ligne de texte
;           si mmvert = -2 met un interligne  (calcul automatique en fonction de la police)
;MLD_impcadre(X.l,Y.l,L.l,H.l,coul) trace un cadre, indiquez des millimètres
;MLD_impline(X.l,Y.l,L.l,H.l,coul) trace une ligne horizontale, indiquez des millimètres
;MLD_implinevert(X.l,Y.l,X2.l,Y2.l,coul) trace une ligne verticale Y2 en mm = destination
;MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
;           si X.l = -1 imprime après le dernier texte
;           masque$ peut s'écrire comme ceci "### ### ###,##" pas plus de 2 chiffres après la virgule
Declare nbDPI()
Declare mmlH(nbmm.l)
Declare mmlV(nbmm.l)
Declare MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l)
Declare Intlig()
Declare MLD_impDrawText(hz.l,ht.l,txt$)
Declare MLD_impcadre(X.l,Y.l,L.l,H.l,coul)
Declare MLD_impline(X.l,Y.l,L.l,H.l,coul)
Declare MLD_implinevert(X.l,Y.l,Y2.l,coul)
Declare MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
Declare imp()
Global FontID1
Global DPIHZ.l,MGH.l,Lgmax.l
Global DPIVT.l,MGV.l,Htmax.l
Global Ecrdpihz.l,Ecrdpivt.l
Global largtxt.l,lig.l,poshz.l
Procedure nbDPI();initialisation
hdc = GetDC_(GetDesktopWindow_())
If hdc :Ecrdpihz.l  = GetDeviceCaps_(hdc, #LOGPIXELSX) :EndIf
If hdc :Ecrdpivt.l = GetDeviceCaps_(hdc, #LOGPIXELSY) : ReleaseDC_(GetDesktopWindow_(), hdc) : EndIf
If DefaultPrinter() <> 0
  printer_DC.l = StartDrawing(PrinterOutput())
  DPIHZ.l = GetDeviceCaps_(printer_DC,#LOGPIXELSX)
  DPIVT.l = GetDeviceCaps_(printer_DC,#LOGPIXELSY)
  MGH.l = GetDeviceCaps_(printer_DC,#PHYSICALOFFSETX)
  ;MGV.l = GetDeviceCaps_(printer_DC,#PHYSICALOFFSETY)
  MGV.l = 40
  Lgmax.l = GetDeviceCaps_(printer_DC,#PHYSICALWIDTH) - MGH.l
  Htmax.l = GetDeviceCaps_(printer_DC,#PHYSICALHEIGHT) - MGV.l 
  StopDrawing()
EndIf 
EndProcedure 
nbDPI()
Procedure MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l)
StopDrawing()
K.l = DPIHZ.l/Ecrdpihz.l
FontID1 = LoadFont(1,nomfont$,grd * K,opt1.l | opt2.l | opt3.l)
StartDrawing(PrinterOutput()) 
DrawingMode(#PB_2DDrawing_Transparent)
FrontColor(coul.l)
DrawingFont(FontID(1))
EndProcedure

Procedure mmlH(nbmm.l)
res.l = ((DPIHZ.l * nbmm.l) / 25.4) - MGH.l
If res.l <= MGH.l ;pour ne pas être < a la marge imposée
 res.l = MGH.l
EndIf
If res.l => Lgmax.l
 res.l = Lgmax.l ;pour ne pas être > a la marge imposée a droite de la feuille
EndIf
poshz.l = res.l + largtxt.l;* 25.4 /DPIHZ.l 
ProcedureReturn res
EndProcedure 

Procedure mmlV(nbmm.l)
res.l = ((DPIVT.l * nbmm.l) / 25.4) - MGV.l
If res.l <= MGV.l ;pour ne pas être < a la marge imposée en haut
 res.l = MGV.l
EndIf
If res.l => Htmax.l
 res.l = Htmax.l ;pour ne pas être > a la marge imposée en bas de la feuille
EndIf
lig.l = res.l ;en pixels 
ProcedureReturn res
EndProcedure

Procedure Intlig()
If TextHeight("AW") <= 43;en pixel
 kintlig.l = 1.3
Else
 kintlig.l = 1.4
EndIf   
Interlig.l = TextHeight("AW")/kintlig.l
res.l = lig.l + Interlig.l 
lig.l = res;en pixel
ProcedureReturn res.l
EndProcedure

Procedure MLD_cadre(X.l,Y.l,L.l,H.l,coul)
DrawingMode(#PB_2DDrawing_Transparent)
DrawingMode(#PB_2DDrawing_Outlined)
larg .l = (DPIHZ.l * L.l) / 25.4
haut.l = (DPIVT.l * H.l) / 25.4
Box(mmlH(X.l),mmlV(Y.l),larg .l,haut.l,coul)
EndProcedure

Procedure MLD_line(X.l,Y.l,L.l,H.l,coul)
DrawingMode(#PB_2DDrawing_Transparent)
larg .l = (DPIHZ.l * L.l) / 25.4
haut.l = (DPIVT.l * H.l) / 25.4
Line(mmlH(X.l),mmlV(Y.l),larg .l,haut.l,coul)
EndProcedure

Procedure MLD_linevert(X.l,Y.l,Y2.l,coul)
DrawingMode(#PB_2DDrawing_Transparent)
hz2 .l = (DPIVT.l * X.l) / 25.4
haut2.l = (DPIVT.l * Y2.l) / 25.4
LineXY(mmlH(X.l),mmlV(Y.l),mmlH(X2.l),mmlV(Y2.l),coul)
EndProcedure 

Procedure MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
If X.l = -1
 X.l = (poshz.l + MGH.l) * 25.4/DPIHZ.l
EndIf 
If masque$ <> ""
 masque$ = masque$ + "." + syb$
 xmax.l = X.l + (TextWidth(masque$) * 25.4/DPIHZ.l)
EndIf  
ind = 0
  ReplaceString(valeur$, ".", ",", #PB_String_InPlace, 1)
  For zz.w =  Len(valeur$) To 1 Step -1
   ind = ind + 1
   valeur2$ = valeur2$ + Mid(valeur$,zz,1)
   If Mid(valeur$,zz,1) = "," : ind = 0 :EndIf
   If ind = 3
    ind = 0
    If Mid(valeur$,zz,1) <> ","
     valeur2$ = valeur2$ + " "
    EndIf
  EndIf
  Next 
txt$ = ReverseString(valeur2$) + "." + syb$
If masque$ <> ""
 posd.l = xmax.l - (TextWidth(ReverseString(valeur2$) + "." + syb$) * 25.4/DPIHZ.l)
 If posd.l < X.l:posd.l = X.l:EndIf
Else
 posd.l = X.l
EndIf 
MLD_impDrawText(posd.l,Y.l,txt$)
EndProcedure

Procedure MLD_impDrawText(hz.l,ht.l,txt$)
DrawingMode(#PB_2DDrawing_Transparent)
largtxt.l = TextWidth(txt$);en pixel
Select hz.l
 Case -1 ;écrit a la fin du dernier texte
  chz.l = poshz.l
 Case -2 ;centre
  chz.l = ((Lgmax - MGH.l)  - TextWidth(txt$))/2 
 Default
  chz.l = mmlH(hz.l);déplacement horizontal
EndSelect   
Select ht.l
 Case -1 ; reste sur la même ligne
  cht.l = lig.l 
 Case -2 ;interligne
  cht.l = Intlig()
 Default
  cht.l = mmlV(ht.l); déplacement vertical
EndSelect   
DrawText(chz.l,cht.l,txt$)
EndProcedure
;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤  DEMO  ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Procedure imp1()
L1$ = "Marcel BAVARD"
L2$ = "AVOCAT AU BARREAU DE PARIS" 
L3$ = "15 rue du Rire 75001 Paris"
L4$ = "Tel : 01 01 01 01 10  FAX : 01 01 01 01 11  Mail : bavardavocat@wanadoo.fr"
L5$ = "n° siret : 12345671547645     n° TVA intracom FR89439376"
L6$ = "Membre d’une Association Agréée. Le règlement des honoraires par chèque est accepté." 
L7$ = "Spécialiste du droit des affaires"
If DefaultPrinter() <> 0 
 If StartPrinting("Mic")
  StartDrawing(PrinterOutput()) 
  MLD_impFont("Times New Roman",20,#PB_Font_HighQuality,#PB_Font_Bold,0,$0)
  MLD_impDrawText(15,20,L1$)
  MLD_impDrawText(0,-2,"")
  MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(15,-2,L2$)
  MLD_impDrawText(0,-2,"")
  MLD_impFont("Times New Roman",10,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(15,-2,L7$)
  MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(-2,265,L3$)
  MLD_impDrawText(-2,-2,L4$)
  MLD_impDrawText(0,-2,"")
  MLD_impFont("Times New Roman",8,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(-2,-2,L5$)
  MLD_impDrawText(-2,-2,L6$)
  StopDrawing()
  StopPrinting()
 EndIf
EndIf 
EndProcedure 

Procedure imp2()
L1$ = "Michel DUCHIEN                          Amélie LECHAT"
L2$ = "  Docteur vétérinaire diplomés de l'école d'Alfort" 
L3$ = "Rennes le :" + FormatDate("%dd / %mm / %yyyy", Date()) 
L4$ = "Madame, Monsieur"
L5$ = "   Nous vous informons que la date de vaccination de votre chien MEDOR arrive."
L6$ = " Pour une parfaite santé de votre animal, il serait souhaitable de prendre rendez vous"
L7$ = " auprés de la clinique sous quinzaine."
L8$ = " Nous praticons un tarif forfaitaire de vaccination de TTC : "
L9$ = "45.35"
L10$ = "Restant a votre entière disposition."
L11$ = "Les Vétérinaires"  
L12$ = "Clinique vétérinaire du Bison futé 7 rue du Grand singe 35000 Rennes"
L13$ = " Ouverture du lundi au samedi de 9H a 18H  Tel : 01 01 01 01 10  FAX : 01 01 01 01 11 "
L14$ = "n° siret : 12345671547645     n° TVA intracom FR89439376"
L15$ = "Membre d’une Association Agréée. Le règlement des honoraires par chèque est accepté." 

If DefaultPrinter() <> 0 
 If StartPrinting("Mic")
  StartDrawing(PrinterOutput()) 
  MLD_impFont("Georgia",18,#PB_Font_HighQuality,#PB_Font_Bold,0,$8B453B)
  MLD_impDrawText(-2,20,L1$)
  MLD_impDrawText(0,-2,"")
  MLD_impFont("Georgia",14,#PB_Font_HighQuality,0,0,$8B453B)
  MLD_impDrawText(-2,-2,L2$)
  MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(130,80,L3$)
  MLD_impDrawText(30,110,L4$)
  MLD_impDrawText(20,125,L5$)
  MLD_impDrawText(0,-2,"")
  MLD_impDrawText(20,-2,L6$)
  MLD_impDrawText(20,-2,L7$)
  MLD_impDrawText(0,-2,"")
  MLD_impDrawText(20,-2,L8$):MLD_impFormatmonnaie(-1,-1,L9$,"€","")
  MLD_impDrawText(0,-2,"")
  MLD_impDrawText(20,-2,L10$)
  MLD_impDrawText(130,190,L11$)
  MLD_impFont("Times New Roman",10,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(-2,265,L12$)
  MLD_impDrawText(-2,-2,L13$)
  MLD_impDrawText(0,-2,"")
  MLD_impFont("Times New Roman",8,#PB_Font_HighQuality,0,0,$0)
  MLD_impDrawText(-2,-2,L14$)
  MLD_impDrawText(-2,-2,L15$)
  StopDrawing()
  StopPrinting()
 EndIf
EndIf 
EndProcedure 

Enumeration 
#btess1
#btess2
EndEnumeration 

OpenWindow(1, 0, 0, 300, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
ButtonGadget(#btess1, 80, 50,150,30,"Test Imprimante 1")
ButtonGadget(#btess2, 80, 100,150,30,"Test Imprimante 2")
Repeat
   Event = WaitWindowEvent()
    Select Event
     Case #PB_Event_Gadget
      Select EventGadget() ; Gadgets
       Case #btess1
        imp1()
       Case #btess2
        imp2()
      EndSelect
   EndSelect
Until Event = #PB_Event_CloseWindow
End
:lol: Michel
Haut
Avatar de l’utilisateur
Micoute
Messages : 2584
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: Imprime facile

Message par Micoute »

Très bon travail, doit-on compiler en 32 ou 64 bits, car tu as choisi des longs plutôt que des entiers !
J'ai essayé en 64 bits et j'ai eu de très bons résultats et en plus ça facilite la vie, alors merci beaucoup de partager !
Joli cadeau de Noël !
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 6.20 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Haut
Avatar de l’utilisateur
MLD
Messages : 1124
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: Imprime facile

Message par MLD »

& Micoute
Merci :lol:
en 32, c'est aussi ok pour la compil
A+
Haut
Mesa
Messages : 1126
Inscription : mer. 14/sept./2011 16:59

Re: Imprime facile

Message par Mesa »

il faut compter 2 fois les marges :

Code : Tout sélectionner

;COMMANDES
;Tous les placements de texte sont en millimètres ( sauf chiffres négatif)
;MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l) 
;MLD_impDrawText(mmhz ,mmvert,"txt") écrit une ligne  
;           si mmhz = -1 imprime aprés le dernier texte
;           si mmhz = -2 centre le texte
;           si mmvert = -1 garde la même ligne de texte
;           si mmvert = -2 met un interligne  (calcul automatique en fonction de la police)
;MLD_impcadre(X.l,Y.l,L.l,H.l,coul) trace un cadre, indiquez des millimètres
;MLD_impline(X.l,Y.l,L.l,H.l,coul) trace une ligne horizontale, indiquez des millimètres
;MLD_implinevert(X.l,Y.l,X2.l,Y2.l,coul) trace une ligne verticale Y2 en mm = destination
;MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
;           si X.l = -1 imprime après le dernier texte
;           masque$ peut s'écrire comme ceci "### ### ###,##" pas plus de 2 chiffres après la virgule
Declare nbDPI()
Declare mmlH(nbmm.l)
Declare mmlV(nbmm.l)
Declare MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l)
Declare Intlig()
Declare MLD_impDrawText(hz.l,ht.l,txt$)
Declare MLD_impcadre(X.l,Y.l,L.l,H.l,coul)
Declare MLD_impline(X.l,Y.l,L.l,H.l,coul)
Declare MLD_implinevert(X.l,Y.l,Y2.l,coul)
Declare MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
Declare imp()
Global FontID1
Global DPIHZ.l,MGH.l,Lgmax.l
Global DPIVT.l,MGV.l,Htmax.l
Global Ecrdpihz.l,Ecrdpivt.l
Global largtxt.l,lig.l,poshz.l
Procedure nbDPI();initialisation
  hdc = GetDC_(GetDesktopWindow_())
  If hdc :Ecrdpihz.l  = GetDeviceCaps_(hdc, #LOGPIXELSX) :EndIf
  If hdc :Ecrdpivt.l = GetDeviceCaps_(hdc, #LOGPIXELSY) : ReleaseDC_(GetDesktopWindow_(), hdc) : EndIf
  If DefaultPrinter() <> 0
    printer_DC.l = StartDrawing(PrinterOutput())
    DPIHZ.l = GetDeviceCaps_(printer_DC,#LOGPIXELSX)
    DPIVT.l = GetDeviceCaps_(printer_DC,#LOGPIXELSY)
    MGH.l = GetDeviceCaps_(printer_DC,#PHYSICALOFFSETX)
    MGV.l = GetDeviceCaps_(printer_DC,#PHYSICALOFFSETY)
    ;MGV.l = 40
    ; =================2 Fois les marges===========================
    Lgmax.l = GetDeviceCaps_(printer_DC,#PHYSICALWIDTH) - 2*MGH.l
    Htmax.l = GetDeviceCaps_(printer_DC,#PHYSICALHEIGHT) - 2*MGV.l 
    ;==============================================================
    PhysW.l=GetDeviceCaps_(printer_DC,#PHYSICALWIDTH)
    PhysH.l=GetDeviceCaps_(printer_DC,#PHYSICALHEIGHT)
    StopDrawing()
    
    ; 	Debug Ecrdpihz
    ; 	Debug Ecrdpivt
    
    Debug "DPI"
    Debug DPIHZ
    Debug DPIVT
    Debug ""	
    
    Debug "PHYSIC en point imprimante"
    ;2.54cm=1pouce
    Debug PhysW ;(21cm/2.54)*DPI
    Debug PhysH ;(29.7cm/2.54)*DPI
    Debug "PHYSIC en cm"
    ;2.54cm=1pouce
    Debug PhysW*2.54/DPIHZ ;(21cm/2.54)*DPI
    Debug PhysH*2.54/DPIVT ;(29.7cm/2.54)*DPI
    Debug ""	
    
    Debug "MARGE MATERIEL en point imprimante"	
    Debug MGH ;(marge cm/2.54)*DPI
    Debug MGV ;(marge cm/2.54)*DPI
    Debug "MARGE MATERIEL en cm"	
    Debug MGH*2.54/DPIHZ
    Debug MGV*2.54/DPIVT	
    Debug ""	
    
    Debug "zone imprimable: PHYSIC - 2*MARGE MATERIEL en point imprimante"	
    Debug Lgmax
    Debug Htmax
    Debug "zone imprimable:PHYSIC - 2*MARGE MATERIEL en cm"	
    Debug Lgmax*2.54/DPIHZ
    Debug Htmax	*2.54/DPIVT	
    Debug ""	
    
    Debug "PB zone d'impression en pixels." 
    Debug PrinterPageWidth()
    Debug PrinterPageHeight()
    
    
  EndIf 
EndProcedure 
nbDPI()
Procedure MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l)
  StopDrawing()
  K.l = DPIHZ.l/Ecrdpihz.l
  FontID1 = LoadFont(1,nomfont$,grd * K,opt1.l | opt2.l | opt3.l)
  StartDrawing(PrinterOutput()) 
  DrawingMode(#PB_2DDrawing_Transparent)
  FrontColor(coul.l)
  DrawingFont(FontID(1))
EndProcedure

Procedure mmlH(nbmm.l)
  res.l = ((DPIHZ.l * nbmm.l) / 25.4) - MGH.l
  If res.l <= MGH.l ;pour ne pas être < a la marge imposée
    res.l = MGH.l
  EndIf
  If res.l => Lgmax.l
    res.l = Lgmax.l ;pour ne pas être > a la marge imposée a droite de la feuille
  EndIf
  poshz.l = res.l + largtxt.l;* 25.4 /DPIHZ.l 
  ProcedureReturn res
EndProcedure 

Procedure mmlV(nbmm.l)
  res.l = ((DPIVT.l * nbmm.l) / 25.4) - MGV.l
  If res.l <= MGV.l ;pour ne pas être < a la marge imposée en haut
    res.l = MGV.l
  EndIf
  If res.l => Htmax.l
    res.l = Htmax.l ;pour ne pas être > a la marge imposée en bas de la feuille
  EndIf
  lig.l = res.l ;en pixels 
  ProcedureReturn res
EndProcedure

Procedure Intlig()
  If TextHeight("AW") <= 43;en pixel
    kintlig.l = 1.3
  Else
    kintlig.l = 1.4
  EndIf   
  Interlig.l = TextHeight("AW")/kintlig.l
  res.l = lig.l + Interlig.l 
  lig.l = res;en pixel
  ProcedureReturn res.l
EndProcedure

Procedure MLD_cadre(X.l,Y.l,L.l,H.l,coul)
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawingMode(#PB_2DDrawing_Outlined)
  larg .l = (DPIHZ.l * L.l) / 25.4
  haut.l = (DPIVT.l * H.l) / 25.4
  Box(mmlH(X.l),mmlV(Y.l),larg .l,haut.l,coul)
EndProcedure

Procedure MLD_line(X.l,Y.l,L.l,H.l,coul)
  DrawingMode(#PB_2DDrawing_Transparent)
  larg .l = (DPIHZ.l * L.l) / 25.4
  haut.l = (DPIVT.l * H.l) / 25.4
  Line(mmlH(X.l),mmlV(Y.l),larg .l,haut.l,coul)
EndProcedure

Procedure MLD_linevert(X.l,Y.l,Y2.l,coul)
  DrawingMode(#PB_2DDrawing_Transparent)
  hz2 .l = (DPIVT.l * X.l) / 25.4
  haut2.l = (DPIVT.l * Y2.l) / 25.4
  LineXY(mmlH(X.l),mmlV(Y.l),mmlH(X2.l),mmlV(Y2.l),coul)
EndProcedure 

Procedure MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
  If X.l = -1
    X.l = (poshz.l + MGH.l) * 25.4/DPIHZ.l
  EndIf 
  If masque$ <> ""
    masque$ = masque$ + "." + syb$
    xmax.l = X.l + (TextWidth(masque$) * 25.4/DPIHZ.l)
  EndIf  
  ind = 0
  ReplaceString(valeur$, ".", ",", #PB_String_InPlace, 1)
  For zz.w =  Len(valeur$) To 1 Step -1
    ind = ind + 1
    valeur2$ = valeur2$ + Mid(valeur$,zz,1)
    If Mid(valeur$,zz,1) = "," : ind = 0 :EndIf
    If ind = 3
      ind = 0
      If Mid(valeur$,zz,1) <> ","
        valeur2$ = valeur2$ + " "
      EndIf
    EndIf
  Next 
  txt$ = ReverseString(valeur2$) + "." + syb$
  If masque$ <> ""
    posd.l = xmax.l - (TextWidth(ReverseString(valeur2$) + "." + syb$) * 25.4/DPIHZ.l)
    If posd.l < X.l:posd.l = X.l:EndIf
  Else
    posd.l = X.l
  EndIf 
  MLD_impDrawText(posd.l,Y.l,txt$)
EndProcedure

Procedure MLD_impDrawText(hz.l,ht.l,txt$)
  DrawingMode(#PB_2DDrawing_Transparent)
  largtxt.l = TextWidth(txt$);en pixel
  Select hz.l
    Case -1 ;écrit a la fin du dernier texte
      chz.l = poshz.l
    Case -2 ;centre
      chz.l = ((Lgmax - MGH.l)  - TextWidth(txt$))/2 
    Default
      chz.l = mmlH(hz.l);déplacement horizontal
  EndSelect   
  Select ht.l
    Case -1 ; reste sur la même ligne
      cht.l = lig.l 
    Case -2 ;interligne
      cht.l = Intlig()
    Default
      cht.l = mmlV(ht.l); déplacement vertical
  EndSelect   
  DrawText(chz.l,cht.l,txt$)
EndProcedure





;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤  DEMO  ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Procedure imp1()
  L1$ = "Marcel BAVARD"
  L2$ = "AVOCAT AU BARREAU DE PARIS" 
  L3$ = "15 rue du Rire 75001 Paris"
  L4$ = "Tel : 01 01 01 01 10  FAX : 01 01 01 01 11  Mail : bavardavocat@wanadoo.fr"
  L5$ = "n° siret : 12345671547645     n° TVA intracom FR89439376"
  L6$ = "Membre d’une Association Agréée. Le règlement des honoraires par chèque est accepté." 
  L7$ = "Spécialiste du droit des affaires"
  If DefaultPrinter() <> 0 
    If StartPrinting("Mic")
      StartDrawing(PrinterOutput()) 
      MLD_impFont("Times New Roman",20,#PB_Font_HighQuality,#PB_Font_Bold,0,$0)
      MLD_impDrawText(15,20,L1$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(15,-2,L2$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",10,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(15,-2,L7$)
      MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,265,L3$)
      MLD_impDrawText(-2,-2,L4$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",8,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,-2,L5$)
      MLD_impDrawText(-2,-2,L6$)
      StopDrawing()
      StopPrinting()
    EndIf
  EndIf 
EndProcedure 

Procedure imp2()
  L1$ = "Michel DUCHIEN                          Amélie LECHAT"
  L2$ = "  Docteur vétérinaire diplomés de l'école d'Alfort" 
  L3$ = "Rennes le :" + FormatDate("%dd / %mm / %yyyy", Date()) 
  L4$ = "Madame, Monsieur"
  L5$ = "   Nous vous informons que la date de vaccination de votre chien MEDOR arrive."
  L6$ = " Pour une parfaite santé de votre animal, il serait souhaitable de prendre rendez vous"
  L7$ = " auprés de la clinique sous quinzaine."
  L8$ = " Nous praticons un tarif forfaitaire de vaccination de TTC : "
  L9$ = "45.35"
  L10$ = "Restant a votre entière disposition."
  L11$ = "Les Vétérinaires"  
  L12$ = "Clinique vétérinaire du Bison futé 7 rue du Grand singe 35000 Rennes"
  L13$ = " Ouverture du lundi au samedi de 9H a 18H  Tel : 01 01 01 01 10  FAX : 01 01 01 01 11 "
  L14$ = "n° siret : 12345671547645     n° TVA intracom FR89439376"
  L15$ = "Membre d’une Association Agréée. Le règlement des honoraires par chèque est accepté." 
  
  If DefaultPrinter() <> 0 
    If StartPrinting("Mic")
      StartDrawing(PrinterOutput()) 
      MLD_impFont("Georgia",18,#PB_Font_HighQuality,#PB_Font_Bold,0,$8B453B)
      MLD_impDrawText(-2,20,L1$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Georgia",14,#PB_Font_HighQuality,0,0,$8B453B)
      MLD_impDrawText(-2,-2,L2$)
      MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(130,80,L3$)
      MLD_impDrawText(30,110,L4$)
      MLD_impDrawText(20,125,L5$)
      MLD_impDrawText(0,-2,"")
      MLD_impDrawText(20,-2,L6$)
      MLD_impDrawText(20,-2,L7$)
      MLD_impDrawText(0,-2,"")
      MLD_impDrawText(20,-2,L8$):MLD_impFormatmonnaie(-1,-1,L9$,"€","")
      MLD_impDrawText(0,-2,"")
      MLD_impDrawText(20,-2,L10$)
      MLD_impDrawText(130,190,L11$)
      MLD_impFont("Times New Roman",10,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,265,L12$)
      MLD_impDrawText(-2,-2,L13$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",8,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,-2,L14$)
      MLD_impDrawText(-2,-2,L15$)
      StopDrawing()
      StopPrinting()
    EndIf
  EndIf 
EndProcedure 

Enumeration 
  #btess1
  #btess2
EndEnumeration 

OpenWindow(1, 0, 0, 300, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
ButtonGadget(#btess1, 80, 50,150,30,"Test Imprimante 1")
ButtonGadget(#btess2, 80, 100,150,30,"Test Imprimante 2")
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      Select EventGadget() ; Gadgets
        Case #btess1
          imp1()
        Case #btess2
          imp2()
      EndSelect
  EndSelect
Until Event = #PB_Event_CloseWindow
End
Mesa.
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Imprime facile

Message par Kwai chang caine »

Ca marche nikel sur une imprimante laser pro 8)
J'ai jamais utilisé l'impression avec PB, si ce n'est pour du brouillon d'un log, donc je ne connais pas encore la complexité de la chose au niveau mise en page.
Mais quand je m'y mettrais.....je penserais à toi et ton code :wink:
Quoi qu'il en soit merci pour ce partage 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Haut
Avatar de l’utilisateur
MLD
Messages : 1124
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: Imprime facile

Message par MLD »

& Mesa

Oui , je suis preneur , Merci :lol:

& KCC

Merci :lol: Tu verra si tu as des factures a imprimer par exemple "Le casse tête" :roll: :mrgreen:

Le code devient

Code : Tout sélectionner

; MLD le 19/12/2012 
;COMMANDES
;Tous les placements de texte sont en millimètres ( sauf chiffres négatif)
;MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l) 
;MLD_impDrawText(mmhz ,mmvert,"txt") écrit une ligne  
;           si mmhz = -1 imprime aprés le dernier texte
;           si mmhz = -2 centre le texte
;           si mmvert = -1 garde la même ligne de texte
;           si mmvert = -2 met un interligne  (calcul automatique en fonction de la police)
;MLD_impcadre(X.l,Y.l,L.l,H.l,coul) trace un cadre, indiquez des millimètres
;MLD_impline(X.l,Y.l,L.l,H.l,coul) trace une ligne horizontale, indiquez des millimètres
;MLD_implinevert(X.l,Y.l,X2.l,Y2.l,coul) trace une ligne verticale Y2 en mm = destination
;MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
;           si X.l = -1 imprime après le dernier texte
;           masque$ peut s'écrire comme ceci "### ### ###,##" pas plus de 2 chiffres après la virgule
Declare nbDPI()
Declare mmlH(nbmm.l)
Declare mmlV(nbmm.l)
Declare MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l)
Declare Intlig()
Declare MLD_impDrawText(hz.l,ht.l,txt$)
Declare MLD_impcadre(X.l,Y.l,L.l,H.l,coul)
Declare MLD_impline(X.l,Y.l,L.l,H.l,coul)
Declare MLD_implinevert(X.l,Y.l,Y2.l,coul)
Declare MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
Declare imp()
Global FontID1
Global DPIHZ.l,MGH.l,Lgmax.l
Global DPIVT.l,MGV.l,Htmax.l
Global Ecrdpihz.l,Ecrdpivt.l
Global largtxt.l,lig.l,poshz.l
Procedure nbDPI();initialisation
  hdc = GetDC_(GetDesktopWindow_())
  If hdc :Ecrdpihz.l  = GetDeviceCaps_(hdc, #LOGPIXELSX) :EndIf
  If hdc :Ecrdpivt.l = GetDeviceCaps_(hdc, #LOGPIXELSY) : ReleaseDC_(GetDesktopWindow_(), hdc) : EndIf
  If DefaultPrinter() <> 0
    printer_DC.l = StartDrawing(PrinterOutput())
    DPIHZ.l = GetDeviceCaps_(printer_DC,#LOGPIXELSX)
    DPIVT.l = GetDeviceCaps_(printer_DC,#LOGPIXELSY)
    MGH.l = GetDeviceCaps_(printer_DC,#PHYSICALOFFSETX)
    MGV.l = GetDeviceCaps_(printer_DC,#PHYSICALOFFSETY)
    Lgmax.l = GetDeviceCaps_(printer_DC,#PHYSICALWIDTH) - 2*MGH.l
    Htmax.l = GetDeviceCaps_(printer_DC,#PHYSICALHEIGHT) - 2*MGV.l 
   StopDrawing()
 EndIf 
EndProcedure 
nbDPI()
Procedure MLD_impFont(nomfont$,grd.l,opt1.l,opt2.l,opt3.l,coul.l)
  StopDrawing()
  K.l = DPIHZ.l/Ecrdpihz.l
  FontID1 = LoadFont(1,nomfont$,grd * K,opt1.l | opt2.l | opt3.l)
  StartDrawing(PrinterOutput()) 
  DrawingMode(#PB_2DDrawing_Transparent)
  FrontColor(coul.l)
  DrawingFont(FontID(1))
EndProcedure

Procedure mmlH(nbmm.l)
  res.l = ((DPIHZ.l * nbmm.l) / 25.4) - MGH.l
  If res.l <= MGH.l ;pour ne pas être < a la marge imposée
    res.l = MGH.l
  EndIf
  If res.l => Lgmax.l
    res.l = Lgmax.l ;pour ne pas être > a la marge imposée a droite de la feuille
  EndIf
  poshz.l = res.l + largtxt.l;* 25.4 /DPIHZ.l 
  ProcedureReturn res
EndProcedure 

Procedure mmlV(nbmm.l)
  res.l = ((DPIVT.l * nbmm.l) / 25.4) - MGV.l
  If res.l <= MGV.l ;pour ne pas être < a la marge imposée en haut
    res.l = MGV.l
  EndIf
  If res.l => Htmax.l
    res.l = Htmax.l ;pour ne pas être > a la marge imposée en bas de la feuille
  EndIf
  lig.l = res.l ;en pixels 
  ProcedureReturn res
EndProcedure

Procedure Intlig()
  If TextHeight("AW") <= 43;en pixel
    kintlig.l = 1.3
  Else
    kintlig.l = 1.4
  EndIf   
  Interlig.l = TextHeight("AW")/kintlig.l
  res.l = lig.l + Interlig.l 
  lig.l = res;en pixel
  ProcedureReturn res.l
EndProcedure

Procedure MLD_cadre(X.l,Y.l,L.l,H.l,coul)
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawingMode(#PB_2DDrawing_Outlined)
  larg .l = (DPIHZ.l * L.l) / 25.4
  haut.l = (DPIVT.l * H.l) / 25.4
  Box(mmlH(X.l),mmlV(Y.l),larg .l,haut.l,coul)
EndProcedure

Procedure MLD_line(X.l,Y.l,L.l,H.l,coul)
  DrawingMode(#PB_2DDrawing_Transparent)
  larg .l = (DPIHZ.l * L.l) / 25.4
  haut.l = (DPIVT.l * H.l) / 25.4
  Line(mmlH(X.l),mmlV(Y.l),larg .l,haut.l,coul)
EndProcedure

Procedure MLD_linevert(X.l,Y.l,Y2.l,coul)
  DrawingMode(#PB_2DDrawing_Transparent)
  hz2 .l = (DPIVT.l * X.l) / 25.4
  haut2.l = (DPIVT.l * Y2.l) / 25.4
  LineXY(mmlH(X.l),mmlV(Y.l),mmlH(X2.l),mmlV(Y2.l),coul)
EndProcedure 

Procedure MLD_impFormatmonnaie(X.l,Y.l,valeur$,syb$,masque$)
  If X.l = -1
    X.l = (poshz.l + MGH.l) * 25.4/DPIHZ.l
  EndIf 
  If masque$ <> ""
    masque$ = masque$ + "." + syb$
    xmax.l = X.l + (TextWidth(masque$) * 25.4/DPIHZ.l)
  EndIf  
  ind = 0
  ReplaceString(valeur$, ".", ",", #PB_String_InPlace, 1)
  For zz.w =  Len(valeur$) To 1 Step -1
    ind = ind + 1
    valeur2$ = valeur2$ + Mid(valeur$,zz,1)
    If Mid(valeur$,zz,1) = "," : ind = 0 :EndIf
    If ind = 3
      ind = 0
      If Mid(valeur$,zz,1) <> ","
        valeur2$ = valeur2$ + " "
      EndIf
    EndIf
  Next 
  txt$ = ReverseString(valeur2$) + "." + syb$
  If masque$ <> ""
    posd.l = xmax.l - (TextWidth(ReverseString(valeur2$) + "." + syb$) * 25.4/DPIHZ.l)
    If posd.l < X.l:posd.l = X.l:EndIf
  Else
    posd.l = X.l
  EndIf 
  MLD_impDrawText(posd.l,Y.l,txt$)
EndProcedure

Procedure MLD_impDrawText(hz.l,ht.l,txt$)
  DrawingMode(#PB_2DDrawing_Transparent)
  largtxt.l = TextWidth(txt$);en pixel
  Select hz.l
    Case -1 ;écrit a la fin du dernier texte
      chz.l = poshz.l
    Case -2 ;centre
      chz.l = ((Lgmax - MGH.l)  - TextWidth(txt$))/2 
    Default
      chz.l = mmlH(hz.l);déplacement horizontal
  EndSelect   
  Select ht.l
    Case -1 ; reste sur la même ligne
      cht.l = lig.l 
    Case -2 ;interligne
      cht.l = Intlig()
    Default
      cht.l = mmlV(ht.l); déplacement vertical
  EndSelect   
  DrawText(chz.l,cht.l,txt$)
EndProcedure





;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤  DEMO  ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Procedure imp1()
  L1$ = "Marcel BAVARD"
  L2$ = "AVOCAT AU BARREAU DE PARIS" 
  L3$ = "15 rue du Rire 75001 Paris"
  L4$ = "Tel : 01 01 01 01 10  FAX : 01 01 01 01 11  Mail : bavardavocat@wanadoo.fr"
  L5$ = "n° siret : 12345671547645     n° TVA intracom FR89439376"
  L6$ = "Membre d’une Association Agréée. Le règlement des honoraires par chèque est accepté." 
  L7$ = "Spécialiste du droit des affaires"
  If DefaultPrinter() <> 0 
    If StartPrinting("Mic")
      StartDrawing(PrinterOutput()) 
      MLD_impFont("Times New Roman",20,#PB_Font_HighQuality,#PB_Font_Bold,0,$0)
      MLD_impDrawText(15,20,L1$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(15,-2,L2$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",10,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(15,-2,L7$)
      MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,265,L3$)
      MLD_impDrawText(-2,-2,L4$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",8,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,-2,L5$)
      MLD_impDrawText(-2,-2,L6$)
      StopDrawing()
      StopPrinting()
    EndIf
  EndIf 
EndProcedure 

Procedure imp2()
  L1$ = "Michel DUCHIEN                          Amélie LECHAT"
  L2$ = "  Docteur vétérinaire diplomés de l'école d'Alfort" 
  L3$ = "Rennes le :" + FormatDate("%dd / %mm / %yyyy", Date()) 
  L4$ = "Madame, Monsieur"
  L5$ = "   Nous vous informons que la date de vaccination de votre chien MEDOR arrive."
  L6$ = " Pour une parfaite santé de votre animal, il serait souhaitable de prendre rendez vous"
  L7$ = " auprés de la clinique sous quinzaine."
  L8$ = " Nous praticons un tarif forfaitaire de vaccination de TTC : "
  L9$ = "45.35"
  L10$ = "Restant a votre entière disposition."
  L11$ = "Les Vétérinaires"  
  L12$ = "Clinique vétérinaire du Bison futé 7 rue du Grand singe 35000 Rennes"
  L13$ = " Ouverture du lundi au samedi de 9H a 18H  Tel : 01 01 01 01 10  FAX : 01 01 01 01 11 "
  L14$ = "n° siret : 12345671547645     n° TVA intracom FR89439376"
  L15$ = "Membre d’une Association Agréée. Le règlement des honoraires par chèque est accepté." 
  
  If DefaultPrinter() <> 0 
    If StartPrinting("Mic")
      StartDrawing(PrinterOutput()) 
      MLD_impFont("Georgia",18,#PB_Font_HighQuality,#PB_Font_Bold,0,$8B453B)
      MLD_impDrawText(-2,20,L1$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Georgia",14,#PB_Font_HighQuality,0,0,$8B453B)
      MLD_impDrawText(-2,-2,L2$)
      MLD_impFont("Times New Roman",14,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(130,80,L3$)
      MLD_impDrawText(30,110,L4$)
      MLD_impDrawText(20,125,L5$)
      MLD_impDrawText(0,-2,"")
      MLD_impDrawText(20,-2,L6$)
      MLD_impDrawText(20,-2,L7$)
      MLD_impDrawText(0,-2,"")
      MLD_impDrawText(20,-2,L8$):MLD_impFormatmonnaie(-1,-1,L9$,"€","")
      MLD_impDrawText(0,-2,"")
      MLD_impDrawText(20,-2,L10$)
      MLD_impDrawText(130,190,L11$)
      MLD_impFont("Times New Roman",10,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,265,L12$)
      MLD_impDrawText(-2,-2,L13$)
      MLD_impDrawText(0,-2,"")
      MLD_impFont("Times New Roman",8,#PB_Font_HighQuality,0,0,$0)
      MLD_impDrawText(-2,-2,L14$)
      MLD_impDrawText(-2,-2,L15$)
      StopDrawing()
      StopPrinting()
    EndIf
  EndIf 
EndProcedure 

Enumeration 
  #btess1
  #btess2
EndEnumeration 

OpenWindow(1, 0, 0, 300, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
ButtonGadget(#btess1, 80, 50,150,30,"Test Imprimante 1")
ButtonGadget(#btess2, 80, 100,150,30,"Test Imprimante 2")
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      Select EventGadget() ; Gadgets
        Case #btess1
          imp1()
        Case #btess2
         imp2()
      EndSelect
  EndSelect
Until Event = #PB_Event_CloseWindow
End
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Imprime facile

Message par Kwai chang caine »

Bah, c'est ce que j'ai cru comprendre en voyant le nombre de ligne qu'il faut 8O
Ca encourage pas...je crois que je vais continuer à sauver des arbres :lol:
En tout cas encore merci, cela me sera surement et "malheureusement" utile le jour ou je serais forcé d'utiliser une imprimante 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Imprime facile

Message par Backup »

sans vouloir critiquer ce travail

je me suis instantanément demandé , pourquoi etre partie de commandes "basique"
pour faire effectuer une mise en page

au lieu d'etre partie d'un Gadget éditeur ?

ta mise en page aurai été plus "userFriendly" Wyswyg

avec un system de Variables ( par exemple entre crochets) et une petite interprétation au moment de l'impression

genre dans l'editeur :

Mr [Nom]
[Adress]
[tel]
[ville]


Monsieur,

blabla blabla blabla blablablablablablablablablabla blabla

blabla blabla blabla blablablablablablablablablabla blabla

blabla blabla blabla blablablablablablablablablabla blabla

blabla blabla blabla blablablablablablablablablabla blabla

( et donc ta commande d'impression reprends le contenu de ton "gadget editeur" et interprete ce qui se trouve entre crochets , et remplace par les Variables citées)

ça te permet d’éviter toutes les commandes de mise en page ...
l'editeur Gadget gerant le format RTF , l'impression Formaté est facile ...

tu pourrai meme du coup sauvegarder sous forme de fichier RTF

fichier, qui pourrai alors servir pour juste etre rechargé par une commande , et imprimer par la commande d'impression ... ;)

bref , partir d'une edition basé sur le GadgetEditor serai a mon avis plus simple a utiliser ... non ?



ps : d'ailleurs , dans l'absolu , tu peux aussi faire un model de document avec un traitement de text
et utiliser ce model pour l'impression dans ton soft ...

voir ici :
http://www.purebasic.fr/french/viewtopi ... format+RTF
Dernière modification par Backup le mer. 19/déc./2012 12:28, modifié 1 fois.
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Re: Imprime facile

Message par Ar-S »

Je n'ai pas encore essayé mais nul doute que ça me servira. Merci MLD !
sans vouloir critiquer ce travail
je me suis instantanément demandé , pourquoi etre partie de commandes "basique"
pour faire e(...)
Wyswyg
Il fait le gros du boulot, à savoir la possibilité d'imprimer en utilisant des réglages précis d'après des champs précis.
Libre à nous de faire une GUI. ^^

En tout cas c'est le genre de code qui me (re)motive à créer un "Ciel Autoentrepreneur Like" (en beaucoup plus light) pour facturer et gérer mes clients. Le but serait qu'après validation de la facture, le logiciel lance l'impression PUIS crées une version PDF qu'il sauve à un endroit précis. Cette simple double exécutions de tâche me simplifierait bien la vie.
Reste à trouver le temps pour faire ^^ (là je vous écris du taf ou je vais former une 15n de nénettes qui débarquent dans 30 min) :mrgreen:
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Imprime facile

Message par Backup »

Ar-S a écrit :J
Il fait le gros du boulot, à savoir la possibilité d'imprimer en utilisant des réglages précis d'après des champs précis.
Libre à nous de faire une GUI. ^^

oui mais
ps : d'ailleurs , dans l'absolu , tu peux aussi faire un model de document avec un traitement de text
et utiliser ce model pour l'impression dans ton soft ...

voir ici :
viewtopic.php?f=1&t=13380&hilit=format+RTF
a moins d'avoir a imprimer des millimétrés ... la précision reste toute relative en matiere d'impression .... ;)
mais je respecte le travail effectué hein .... (j'ai commencé mon text par "sans vouloir critiquer ce travail" ) ;)
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Imprime facile

Message par Kwai chang caine »

là je vous écris du taf ou je vais former une 15n de nénettes qui débarquent dans 30 min
8) :D :mrgreen:
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Haut
Avatar de l’utilisateur
wood51
Messages : 122
Inscription : ven. 05/juin/2009 13:04
Localisation : orléans

Imprime facile

Message par wood51 »

Salut ,
Super ton MLD . Merci . C'est exactement ce que j'ai fais pour ma première version d'un log de bon de livraison .
Le seul soucis avec cette méthode c'est que si tu veut changer de modèle , il faut recoder ... La méthode Dobro que j'ai exploré marche nickel . Sauf dans un cas particulier (fallait que ça tombe sur moi :mrgreen: ) , le rtf ne gère pas plusieurs tableau imbriqué .
Reste plus que l'ultime solution : un outils du genre nxreport . J'ai commencer à en coder un mais c'est pas près d'être finis .
Enfin voilà j'amène juste mon petit grain de sel ... Bonne après midi
@wood51
Compétences : Bricoleur PureBasic du dimanche
Crâmage de cerveau en cours 100% :D
Projet en cours : http://purepicbasic.frenchboard.com/
Haut
Avatar de l’utilisateur
MLD
Messages : 1124
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: Imprime facile

Message par MLD »

& Merci a tous :lol:

Ar-S, a raison Les lignes de texte L$ ne sont ici que pour la démo. En général les textes proviennent de fichiers. :wink:
Mais il me semble plus simple de parler en mm . J'imprime a 40mm du bord gauche et a 100mm du haut de la page, que de chatouiller les pixels en fonction des DPI.

A propos de chatouiller. Ar-S c'est ou l'adresse pour former les nénettes 8O :wink: :lol:
Haut
Avatar de l’utilisateur
Mindphazer
Messages : 695
Inscription : mer. 24/août/2005 10:42

Re: Imprime facile

Message par Mindphazer »

C'est bien cool !
Le même, sans les API, et je signe des 2 mains !!!
Bureau : Win10 64bits
Maison : Macbook Pro M3 16" SSD 512 Go / Ram 24 Go - iPad Pro 32 Go (pour madame) - iPhone 15 Pro Max 256 Go
Haut
Répondre

Revenir à « Trucs et astuces »