Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Toujour avec mon printer!

Toujour avec mon printer!

3 réponses
Avatar
Serialv
bonjour!
voici mon code:
Do While Not R = 24
R = R + 1
With Object
.FontSize = 12 / Z
.CurrentX = 120 / Z
.CurrentY = b / Z
.Font = "Courier New"
End With
Object.Print Donnee(A, 2)

With Object
.FontSize = 48 / Z
.CurrentX = 120 / Z
.CurrentY = (b + 6) / Z
.Font = "barcode font"
End With
Object.Print Donnee(A, 1)
A = A + 1
b = b + 30
Loop
object.enddoc


le probleme s'est que l'imprimante n'attend pas que la boucle se termine,ce
qui donne comme resultat 50page a imprimer
si qqun aurait une solution pour la faire attendre je suis preneur!
merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
EddiGordo
Bonjour

A mon avis, tu devrais vérifier ta gestion de .CurrentY qui doit imprimer en
dehors de la page et qui provoque de ce fait des sauts de pages
intempestifs...

Enjoy !

"Serialv" a écrit dans le message de news:

bonjour!
voici mon code:
Do While Not R = 24
R = R + 1
With Object
.FontSize = 12 / Z
.CurrentX = 120 / Z
.CurrentY = b / Z
.Font = "Courier New"
End With
Object.Print Donnee(A, 2)

With Object
.FontSize = 48 / Z
.CurrentX = 120 / Z
.CurrentY = (b + 6) / Z
.Font = "barcode font"
End With
Object.Print Donnee(A, 1)
A = A + 1
b = b + 30
Loop
object.enddoc


le probleme s'est que l'imprimante n'attend pas que la boucle se


termine,ce
qui donne comme resultat 50page a imprimer
si qqun aurait une solution pour la faire attendre je suis preneur!
merci




Avatar
Gigfy
Un certain Serialv écrivait ici même ce qui suit:

Exact Donc je modifie mes current x et y
la ca marche je nutilise que la moitier de la feuille!
comment je peux faire il me change la feuille a 297mionimetre!!




Salut.

Est-tu sûr du paramétrage de ton driver imprimante ?

--
========== Gigfy

Le Bluesy masqué..... :=)
Avatar
EddiGordo
Bonjour

Peut-être as-tu oublié de passer en millimétre : Printer.ScaleMode = 6 ?
En général cela facilite les calculs de positionnement (mais c'est moins
précis que les twips...)

Enjoy !

"Serialv" a écrit dans le message de news:

Exact Donc je modifie mes current x et y
la ca marche je nutilise que la moitier de la feuille!
comment je peux faire il me change la feuille a 297mionimetre!!

"EddiGordo" a écrit dans le message de news:
3f16bcc3$0$2000$
> Bonjour
>
> A mon avis, tu devrais vérifier ta gestion de .CurrentY qui doit


imprimer
en
> dehors de la page et qui provoque de ce fait des sauts de pages
> intempestifs...
>
> Enjoy !
>
> "Serialv" a écrit dans le message de news:
>
> > bonjour!
> > voici mon code:
> > Do While Not R = 24
> > R = R + 1
> > With Object
> > .FontSize = 12 / Z
> > .CurrentX = 120 / Z
> > .CurrentY = b / Z
> > .Font = "Courier New"
> > End With
> > Object.Print Donnee(A, 2)
> >
> > With Object
> > .FontSize = 48 / Z
> > .CurrentX = 120 / Z
> > .CurrentY = (b + 6) / Z
> > .Font = "barcode font"
> > End With
> > Object.Print Donnee(A, 1)
> > A = A + 1
> > b = b + 30
> > Loop
> > object.enddoc
> >
> >
> > le probleme s'est que l'imprimante n'attend pas que la boucle se
> termine,ce
> > qui donne comme resultat 50page a imprimer
> > si qqun aurait une solution pour la faire attendre je suis preneur!
> > merci
> >
> >
>
>