OVH Cloud OVH Cloud

Orientation de l'impression en VBA ?

1 réponse
Avatar
Gus
En voila une question qu'elle est bonne !!!
Voila mon probl=E8me .
Dans mon appli, je suis amener =E0 imprimer une=20
Userform ... Jusque la pas de probl=E8me , j'utilise le=20
code suivant : Userform4.Printform et =E7a marche..
Mais ou est donc le probl=E8me alors me dira vous ?
Et bien mon Userform =E9tant assez large je voudrais=20
l'imprimer en format paysage et c'est la qu'est le=20
probl=E8me : comment affecter le format paysage a=20
l'impression d'un Userform ?
je pourrais configurer directement mon imprimante en=20
paysage , mon appli est utiliser sur notre r=E9seau par=20
plusieurs personnes donc il est impensable de configure=20
chaque imprimante une a une =E0 la main ..
Existe t'il un moyen en VBA de contr=F4ler l'imprimante=20
par d=E9faut et de modifie ses propri=E9t=E9s pour qu'elle=20
imprime en paysage ?
Je pensais utilise aussi la fonction=20
PageSetup.Orientation =3D xlLandscape mais marche pas non=20
plus.
Je pourrais =E9galement utiliser la propri=E9t=E9 zoom pour=20
r=E9tr=E9cir ma Userform , la aussi =E7a marche mais =E7a devient=20
illisible.

Merci a ceux qui se casseront la t=EAte pour me r=E9pondre.

1 réponse

Avatar
François Picalausa
"Gus" a écrit dans le message de
news:061501c3ad20$4f05ba40$
En voila une question qu'elle est bonne !!!
Voila mon problème .
Dans mon appli, je suis amener à imprimer une
Userform ... Jusque la pas de problème , j'utilise le
code suivant : Userform4.Printform et ça marche..
Mais ou est donc le problème alors me dira vous ?
Et bien mon Userform étant assez large je voudrais
l'imprimer en format paysage et c'est la qu'est le
problème : comment affecter le format paysage a
l'impression d'un Userform ?
je pourrais configurer directement mon imprimante en
paysage , mon appli est utiliser sur notre réseau par
plusieurs personnes donc il est impensable de configure
chaque imprimante une a une à la main ..
Existe t'il un moyen en VBA de contrôler l'imprimante
par défaut et de modifie ses propriétés pour qu'elle
imprime en paysage ?
Je pensais utilise aussi la fonction
PageSetup.Orientation = xlLandscape mais marche pas non
plus.
Je pourrais également utiliser la propriété zoom pour
rétrécir ma Userform , la aussi ça marche mais ça devient
illisible.



Bonjour/soir,

Pour changer l'orientation de l'impression:
http://msdn.microsoft.com/library/en-us/gdi/prntspol_8nle.asp

Avec SetPrinter et une structure PRINTER_INFO_2 (level = 0), il devrait y
avoir moyen de s'en sortir:
http://msdn.microsoft.com/library/en-us/gdi/prntspol_13ua.asp

pour imprimer une feuille en partiulier via les APIs, sous VB:
http://support.microsoft.com/?kbid1299

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com