imprime 2 pg alors qu'il m'en faut qu'une seuleRésolu

Question

Voila mon code, et mon probl&#232;me est le suivant rien de bien dur je suppose...
l'impression de la facture se passe nickel, seule l'impression du total de la facture pose probl&#232;me, en effet, elle s'imprime sur une 2&#232;me page... et je ne vois pas pourquoi.... (p&#234; 2 lignes de code &#224; inverser...) j'ai &#224; peu pr&#232;s tout essay&#233;....
mais je ne vois pas ou est mon probl&#232;me...

Private Sub btImp_Click()
    Dim Ordo As Double 'Position CurrentY
    Dim Absc As Double 'Position CurrentX
    Dim TotOrdo As Double
    
    TotOrdo = 0
    Printer.CurrentY = 270.835
    Printer.CurrentX = 270.835
    Printer.Print "Facture n&#176; " & cbNumFact
    Printer.CurrentY = 541.67
    Printer.CurrentX = 270.835
    Printer.Print "Table n&#176; " & TxtNumTab
    Printer.CurrentY = 812.505
    Printer.CurrentX = 270.835
    Printer.Print "Nb de couverts : " & TxtNbCouv
    Absc = 270.835
    Ordo = 1354.175
    For i = 0 To lstLibArt.ListCount - 1
        Printer.CurrentY = Ordo
        Printer.CurrentX = Absc
        Ordo = Ordo + 270.835
        Printer.Print lstLibArt.List(i)
    Next i
    Absc = 2708.35
    Ordo = 1354.175
    For i = 0 To lstTotLig.ListCount - 1
        Printer.CurrentY = Ordo
        Printer.CurrentX = Absc
        Ordo = Ordo + 270.835
        TotOrdo = TotOrdo + Ordo
        Printer.Print lstTotLig.List(i)
    Next i
    Printer.CurrentY = TotOrdo
    Printer.CurrentX = 2708.35
    Printer.Print lbTotFact
    Printer.EndDoc
End Sub

~*~ L&#238;L&#239;? ~*~

BasicInstinct · Accepted Answer

verifie tes marges par rapport a ce que tolere ton imprimante. J'avais 1 page sur 2 systematiquement blanche, et ca venez de mes pauvres marges.
je m'en suis apercu en changeant d'imprimante.

 BasicInstinct

cs_moustachu · Answer

Printer.CurrentX = 2708.35


c'est normal ?

tu as  270.835 plus haut ?


++
Moustachu

liliesma · Answer

oui c'ets normal, 2708.35 correspond &#224; 5 cm sur l'axe des abscisses, c'est pour pouvoir imprimer sur 2 colonnes...

~*~ L&#238;L&#239;? ~*~

cs_moustachu · Answer

Ok. C'est vrai que c'est bizarre. Quelque soit le nombre de lignes de ta facture, le total passe &#224; la page suivante ?

++
Moustachu

liliesma · Answer

oui ...

~*~ L&#238;L&#239;? ~*~

liliesma · Answer

effectivement c'&#233;tait bien les marges...  comme koi, c'est vraiment avec des erreurs toutes betes qu'on perd le plus de temps... 

~*~ L&#238;L&#239;? ~*~

Imprime 2 pg alors qu'il m'en faut qu'une seule

6 réponses

Discussions similaires