Re: Différences de fonctionnement de la fonction Window.DrawInto

[Antoine Crêtaux <antoine at cretaux dot fr>]

La solution du tableau n'est valable  que si tu veux garder les pages  
pouyr les imprimer plus tard. Tu peux aussi imprimer au fur et à  
mesure en  utilisant le next page :


  Cpt = ubound(tableau)
 //=== Je mets le papier dans l'imprimante. Je compte le Nb pages  
que j'ai 10 par pages
  cpt = cpt/10
  St1 = str(cpt)
  St1 =Str( val(st1)+1)
  Alerter("Merci de placer "+St1+" feuilles d'annexes dans  
l'imprimante.")
  //= Je cherche l'imprimante
  g  = OpenPrinterDialog()
  If g <> nil then
   Cpt = 0
    For i = Borne1 to borne2
      UneImage =ImprimeSeance(tableau(i))
      Monimage.graphics.drawpicture(UneImage,0,(265+(Cpt*40)))
      cpt = cpt+1
      //==  Une nouvelle page ?
      If i mod 10 = 0  then
         g.nextPage
        Cpt = 0
      End if
    Next

       //== Et voila j'imprime
    g.DrawPicture Monimage,MargeX,MargeY
  End if