OVH Cloud OVH Cloud

marges d'impression

5 réponses
Avatar
François ROLAND
Comment faire pour imprimer un point par exemple, à 8 cm du haut d'une page,
et à 10 cm du bord, et ceci quelque soit l'imprimante

si je fait Printer.CurrentX=5
Printer.CurrentY=8

je ne peut pas etre sure du résultat d'une imprimant à l'autre

Existe il une solution?

Cordialement

--

François ROLAND
francois.roland@free.fr

5 réponses

Avatar
Zoury
Salut François! :O)

Existe il une solution?



L'unité de mesure par défaut est le twips..

tu peux donc soit modifié l'unité de mesure de l'imprimante afin de la
placer en centimètre :

<non testé>
'***
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = 5
Printer.CurrentY = 8
Printer.Print "<- (5, 8)"
Call Printer.EndDoc
'***

ou encore convertir chacune des valeurs avant de les passer à l'imprimante..
:

<non testé>
'***
Printer.CurrentX = Printer.ScaleX(5, vbCentimeters, vbTwips)
Printer.CurrentY = Printer.ScaleY(8, vbCentimeters, vbTwips)
Printer.Print "<- (5, 8)"
Call Printer.EndDoc
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
Driss HANIB
Bonjour,

ne faudrait il pas d'abord rechercher la position et la taille de la zone
réellement imprimable de l'imprimante (DEVICECAPS ?)
et retranccher ensuite de la position absolue demandée ?

Driss


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Salut François! :O)

> Existe il une solution?

L'unité de mesure par défaut est le twips..

tu peux donc soit modifié l'unité de mesure de l'imprimante afin de la
placer en centimètre :

<non testé>
'***
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = 5
Printer.CurrentY = 8
Printer.Print "<- (5, 8)"
Call Printer.EndDoc
'***

ou encore convertir chacune des valeurs avant de les passer à


l'imprimante..
:

<non testé>
'***
Printer.CurrentX = Printer.ScaleX(5, vbCentimeters, vbTwips)
Printer.CurrentY = Printer.ScaleY(8, vbCentimeters, vbTwips)
Printer.Print "<- (5, 8)"
Call Printer.EndDoc
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
François ROLAND
comment connaitre cette zone?


"Driss HANIB" a écrit dans le message de news:
u7YxN$
Bonjour,

ne faudrait il pas d'abord rechercher la position et la taille de la zone
réellement imprimable de l'imprimante (DEVICECAPS ?)
et retranccher ensuite de la position absolue demandée ?

Driss


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
> Salut François! :O)
>
> > Existe il une solution?
>
> L'unité de mesure par défaut est le twips..
>
> tu peux donc soit modifié l'unité de mesure de l'imprimante afin de la
> placer en centimètre :
>
> <non testé>
> '***
> Printer.ScaleMode = vbCentimeters
> Printer.CurrentX = 5
> Printer.CurrentY = 8
> Printer.Print "<- (5, 8)"
> Call Printer.EndDoc
> '***
>
> ou encore convertir chacune des valeurs avant de les passer à
l'imprimante..
> :
>
> <non testé>
> '***
> Printer.CurrentX = Printer.ScaleX(5, vbCentimeters, vbTwips)
> Printer.CurrentY = Printer.ScaleY(8, vbCentimeters, vbTwips)
> Printer.Print "<- (5, 8)"
> Call Printer.EndDoc
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
>
>




Avatar
Zoury
Salut François! :O)

suite à une courte recherche je suis tombé làdessus :
http://groups.google.com/groups?threadm¨v46a%2429o3%241%40ulysses.noc.ntua.gr

je ne m'y connais pas trop dans ce domaine.. mais il est possible que ce
soit exact.. j'vais garder l'oeil ouvert si je trouve autre chose sur le
sujet..

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
Driss HANIB
à voir aussi sur
http://www.google.fr/search?sourceid=navclient&hl=fr&q=VB+getDeviceCaps


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Salut François! :O)

suite à une courte recherche je suis tombé làdessus :



http://groups.google.com/groups?threadm¨v46a%2429o3%241%40ulysses.noc.ntua.gr

je ne m'y connais pas trop dans ce domaine.. mais il est possible que ce
soit exact.. j'vais garder l'oeil ouvert si je trouve autre chose sur le
sujet..

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous