Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 17/11/2010, 15h32   #1
Membre Expert
 
Avatar de stigma
 
Homme Alain
Développeur informatique
Inscription : octobre 2003
Messages : 843
Détails du profil
Informations personnelles :
Nom : Homme Alain
Âge : 61
Localisation : France, Oise (Picardie)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Industrie

Informations forums :
Inscription : octobre 2003
Messages : 843
Points : 1 053
Points : 1 053
Envoyer un message via MSN à stigma
Par défaut Imprimer un grand controle image

Bonjour à tous
Je travaille sur un formulaire comportant un contrôle image de 50 x 34 cm
Il s'agit d'un plan d'usine (jpg) et je cherche à l'imprimer en A3. Le formulaire est donc assez grand car l'utilisateur déplace des appareils à la souris pour les positionner correctement et il y a donc des ascenseurs pour pouvoir accéder à la totalité du formulaire.
Je fais un
Code :
1
2
    Forms("F_Plan").Printer.Orientation = acPRORLandscape
    DoCmd.PrintOut
pour l'imprimer en paysage, mais évidemment ça sort sur 4 feuilles au lieu d'une.
Donc, comment coder l'impression et la forcer sur une seule page, sachant que je dois impérativement utiliser l'imprimante par défaut. ?
Là, je bloque un peu. Merci pour vos lumières.
__________________
Je ne suis pas une adresse IP, je suis un homme libre !
stigma est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/11/2010, 17h30   #2
Responsable Access
 
Avatar de Arkham46
 
Inscription : septembre 2003
Messages : 4 300
Détails du profil
Informations personnelles :
Localisation : France, Loiret (Centre)

Informations forums :
Inscription : septembre 2003
Messages : 4 300
Points : 7 936
Points : 7 936
bjr,

si tu veux imprimer juste l'image, tu pourrais quand même éventuellement passer par un état dans lequel tu laisses juste une section détail contenant une image en mode zoom

tu peux régler la taille de ton état et des marges (et du contrôle image) pour faire du A3
et sur formattage, tu récupères l'image du formulaire avec PictureData pour la mettre dans l'image de l'état

Code :
1
2
3
4
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Me.Image0.PictureData = Forms("MonFormulaire").Image0.PictureData
End Sub
edit : je viens de penser en relisant que peut-être tu as plusieurs contrôles images superposés dans le formulaire?
__________________
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL

Blog Office Mon Site DVP
Arkham46 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/11/2010, 08h04   #3
Membre Expert
 
Avatar de stigma
 
Homme Alain
Développeur informatique
Inscription : octobre 2003
Messages : 843
Détails du profil
Informations personnelles :
Nom : Homme Alain
Âge : 61
Localisation : France, Oise (Picardie)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Industrie

Informations forums :
Inscription : octobre 2003
Messages : 843
Points : 1 053
Points : 1 053
Envoyer un message via MSN à stigma
Je n'ai qu'un contrôle image, mais par dessus, j'ai 50 zones de texte que l'utilisateur peut déplacer à la souris.
J'avais pensé à un état, mais à cause de ces zones de texte j'ai abandonné cette piste.
__________________
Je ne suis pas une adresse IP, je suis un homme libre !
stigma est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 17h38.


 
 
 
 
Partenaires

Hébergement Web