Accueil > Forum > > > > Mise en page et impression d'un UserForm
Mise en page et impression d'un UserForm
vendredi 12 janvier 2007 à 04:04:10 |
Mise en page et impression d'un UserForm

avyrex1926
|
Bonjour, Je voudrais imprimer un UserForm en 3 copies. Pour ce qui est de l'impression, tous va bien avec ce code:Private Sub CommandButton3_Click()UserForm3.PrintForm UserForm3.PrintForm UserForm3.PrintForm End SubLe problème est que la mise en page ne ce fait pas. Il me manque une partie du UserForm. Si au lieu de simprimer " Portrait" il s'imprimait " Paysage", je suis sure que ça fonctionnerais. Mais comment faire pour le mettre en Paysage centré dans la page? 
|
|
vendredi 12 janvier 2007 à 05:10:28 |
Re : Mise en page et impression d'un UserForm

michelxld
|
bonjour
Tu peux tester cette procédure (exemple Excel) pour imprimerl'USF en mode paysage. (tu pourras encore redimensionner l'objet collé s'il dépasse des bords de la feuille)
Option Explicit Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Private Sub CommandButton1_Click() Dim Ws As Worksheet 'Copie d'écran de la forme active keybd_event vbKeySnapshot, 1, 0&, 0& DoEvents 'Ajoute une feuille pour coller l'image de la forme Set Ws = Sheets.Add Ws.PageSetup.Orientation = xlLandscape Ws.Paste 'impression centrée dans la page With Ws .PageSetup.CenterHorizontally = True .PageSetup.CenterVertically = True .PrintOut End With End Sub
michel
|
|
vendredi 12 janvier 2007 à 12:23:46 |
Re : Mise en page et impression d'un UserForm
|
vendredi 12 janvier 2007 à 14:37:49 |
Re : Mise en page et impression d'un UserForm

mortalino
|
Salut, Michel ne t'as pas mis .... Lib "UserForm3" mais ... "user32". UserForm3 n'est pas une librairie, mais un objet... @++
--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"
|
|
vendredi 12 janvier 2007 à 18:24:28 |
Re : Mise en page et impression d'un UserForm

avyrex1926
|
Je suis désolé j'ai mal inscris  Mais je crois que je ne comprend pas le principe de se code: Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Ou dois-je l'insérer se code? Je cherche mais ne comprend pas ou le placer!
|
|
vendredi 12 janvier 2007 à 18:44:45 |
Re : Mise en page et impression d'un UserForm

michelxld
|
bonsoir
la procédure doit être placée dans le module objet du UserForm
L'USF doit contenir un CommandButton nommé "CommandButton1"
bon week end michel
|
|
vendredi 12 janvier 2007 à 21:50:15 |
Re : Mise en page et impression d'un UserForm

avyrex1926
|
Je sens qu'ont y arrivent,
Bon j'ai placé se code à la bonne place : Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
Maintenant, il reste un problème. Il me donne un erreur de compilation: Sub ou Fonction non définie:
Private Sub CommandButton3_Click() Dim Ws As Worksheet 'Copie d'écran de la forme active keybd_event vbKeySnapshot, 1, 0&, 0& DoEvents 'Ajoute une feuille pour coller l'image de la forme Set Ws = Sheets.Add Ws.PageSetup.Orientation = xlLandscape Ws.Paste 'impression centrée dans la page With Ws .PageSetup.CenterHorizontally = True .PageSetup.CenterVertically = True .PrintOut End With
End Sub
Qu'est-ce que ça peut-être?
|
|
Cette discussion est classée dans : impression, page, userform, paysage, printformuserform3
Répondre à ce message
Sujets en rapport avec ce message
SOS problémes d'impression [ par pascal ]
jèimprime un formulaire avec printer, mais, dans sa dimension maxi, il ne remplit que la moitié de page imprimée.Que puis je faire?C'est pour faire im
Impression de page HTML [ par Dieu ]
J'ai un petit probéme pour imprimer une page Web avec mon navigateur perso fait en VB (Pour l'aide de mon logiciel)Qu'elle est la procedure a suivre p
PrintForm et impression A4 [ par NAIN ]
Bonjour,J'ai un gros souci!!!! Je dois imprimer une feuille au format A4 avec un graphique et diverses informations avec une mise en page tres stricte
URGENT!!!vsview et l'impression d'étiquettes... [ par Corwin ]
Je cherche à imprimer des étiquettes à partir du contrôle VS Printer, sachant que changer la propiété PaperSize en pprUser ne marche pas (je ne peut d
Impression d'une page en Word [ par anspauldou ]
Salut J'ai de serieux probleme avec Word de Office 97. Chaque fois que je lance une impression j'ai le compagnon office qui apparait. Et cela ce produ
Impression en Paysage dans vb6 [ par veloce ]
Est ce quelqu'un peut me donner un truc pour passer des états en mode paysage avec VB6.Je n'ai rien trouvé dans le HELP, et mes essais tels que config
impression ss VB.NET [ par astruc ]
bonjour @ ts!qq1 sait comment ajouter une autre page ss vb7 lors d'une impression d'un doc?e.HasMorePages = True ne marche pas comme je le souhaite pu
pitié aidez moi sur Impression en paysage [ par Dragon ]
Salut !J'ai besoin d'aide, j'suis en stage je suis en train de faire un soft pour l'entreprise et si j'y arrive pas je vais perdre ma crédibilité.Mon
Impression : Page de. à . [ par vilain21 ]
Comment faire pour faire apparaitre l'option imprimer de la page .. à la page .. avec showprinter?Je verifie juste que mon fichier existe et rien d'au
option d'impression [ par vilain21 ]
Comment faire pour faire apparaitre l'option imprimer de la page .. à la page .. avec showprinter?Je verifie juste que mon fichier existe et rien d'au
Livres en rapport
|
Derniers Blogs
GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|