Imprime 2 pg alors qu'il m'en faut qu'une seule [Résolu]

Messages postés
69
Date d'inscription
mercredi 5 janvier 2005
Dernière intervention
15 septembre 2005
- - Dernière réponse : liliesma
Messages postés
69
Date d'inscription
mercredi 5 janvier 2005
Dernière intervention
15 septembre 2005
- 10 juin 2005 à 17:22
Voila mon code, et mon problè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ème, en effet, elle s'imprime sur une 2ème page... et je ne vois pas pourquoi.... (pê 2 lignes de code à inverser...) j'ai à peu près tout essayé....
mais je ne vois pas ou est mon problè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° " & cbNumFact
Printer.CurrentY = 541.67
Printer.CurrentX = 270.835
Printer.Print "Table n° " & 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îLï? ~*~
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Dernière intervention
20 octobre 2014
17
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 117 internautes nous ont dit merci ce mois-ci

Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Dernière intervention
1 janvier 2012
1
0
Merci
Printer.CurrentX = 2708.35


c'est normal ?

tu as 270.835 plus haut ?


++
Moustachu
Messages postés
69
Date d'inscription
mercredi 5 janvier 2005
Dernière intervention
15 septembre 2005
0
Merci
oui c'ets normal, 2708.35 correspond à 5 cm sur l'axe des abscisses, c'est pour pouvoir imprimer sur 2 colonnes...

~*~ LîLï? ~*~
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Dernière intervention
1 janvier 2012
1
0
Merci
Ok. C'est vrai que c'est bizarre. Quelque soit le nombre de lignes de ta facture, le total passe à la page suivante ?

++
Moustachu
Messages postés
69
Date d'inscription
mercredi 5 janvier 2005
Dernière intervention
15 septembre 2005
0
Merci
oui ...

~*~ LîLï? ~*~
Messages postés
69
Date d'inscription
mercredi 5 janvier 2005
Dernière intervention
15 septembre 2005
0
Merci
effectivement c'était bien les marges... comme koi, c'est vraiment avec des erreurs toutes betes qu'on perd le plus de temps...

~*~ LîLï? ~*~

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.