Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Impression userform en mode paysage

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

romubzh35

XLDnaute Occasionnel
Bonjour à toutes et à tous
j'utilise une macro pour imprimer mon useform mais je n'arrive pas à l'imprimer au format paysage, j'ai essayé quelques petits trucs mais pas moyen.
pourriez vous m'aider svp
VB: 
Sub impressionForm(usf)
    Dim x, tbl(), i, texte
    x = 0
    With CreateObject("WScript.Network")
        Set imprimantes = .EnumPrinterConnections
        .Orientation = xlLandscape
        For i = 0 To imprimantes.Count - 1
            If InStr(LCase(imprimantes(i)), "pdf") > 0 Then ReDim Preserve tbl(0 To x): tbl(x) = imprimantes(i): texte = texte & x & "--" & imprimantes(i) & vbCrLf: x = x + 1
        Next
        i = InputBox("choissisez  une imprimante " & vbCrLf & texte, "impression userform")
        If i <> "" Then
            .SetDefaultPrinter tbl(Val(i))
            usf.printform
        End If
    End With


End Sub
 
Trier par date Trier par votes
j'ai mis dans le module
VB: 
Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1
puis dans le bouton d'impression j'ai mis
Code: 
Private Sub CommandButton_Print_Click()
'BOITE DE DIALOGUE POUR LA DEMANDE D'IMPRESSION
Dim IPVM
  IPVM = MsgBox("AVEZ-VOUS UNE IMPRIMANTE DE CONNECTEE ?", vbYesNo + vbDefaultButton2 + vbQuestion, " DEMANDE D'IMPPRESSION")
  If IPVM = vbNo Then Exit Sub

  If IPVM = vbYes Then
        Application.ScreenUpdating = False
        DoEvents
        keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
        keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
        DoEvents
        Workbooks.Add
        Application.Wait Now + TimeValue("00:00:01")
        With ActiveSheet
            .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
            .Range("A1").Activate
            .PageSetup.Orientation = xlLandscape
            .PageSetup.LeftMargin = Application.InchesToPoints(0)
            .PageSetup.RightMargin = Application.InchesToPoints(0)
            .PageSetup.TopMargin = Application.InchesToPoints(0.3)
            .PageSetup.BottomMargin = Application.InchesToPoints(0)
            .PageSetup.HeaderMargin = Application.InchesToPoints(0)
            .PageSetup.FooterMargin = Application.InchesToPoints(0)
            .PageSetup.PrintHeadings = False
            .PageSetup.PrintGridlines = False
            .PageSetup.PrintComments = xlPrintNoComments
            .PageSetup.CenterHorizontally = False
            .PageSetup.CenterVertically = False
            .PageSetup.Draft = False
            .PageSetup.PaperSize = xlPaperA4
            .PageSetup.Order = xlDownThenOver
            .PageSetup.BlackAndWhite = False
            .PageSetup.Zoom = 100
        End With
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        ActiveWorkbook.Close False
        UserForm1.CommandButton1.SetFocus
        Application.ScreenUpdating = True
  End If
End Sub
et j'arrive a un bug sur la partie du code dans le module à chaque fois
 
Vote positif 0 Vote négatif
re
le meilleur moyen est de déterminer le printarea du pagesetup
selon les dimensions du userform
printarea=range("a1",shapes(1)bottomrightcells)
il va de soit que la shapes(1) c'est celle que tu viens de coller (en l’occurrence la capture du userform)

gros somodo comme ceci
je variabilise le classeur temporaire
VB: 
Private Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = 44
Private Const VK_LMENU = 164
Private Const KEYEVENTF_KEYUP = 2
Private Const KEYEVENTF_EXTENDEDKEY = 1


Private Sub CommandButton1_Click()
     Dim WbK as workbook
   keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
        keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
        DoEvents
       ' Me.Hide
        Set wbk = Workbooks.Add
        With wbk.Sheets(1)
            .Pictures.Paste
             .PageSetup.PrintArea = .Range("a1", .Shapes(1).BottomRightCell)
            .PageSetup.Orientation = xlLandscape
             .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = True
              .PageSetup.Zoom = 100
        .PrintOut
        End With
         wbk.Close False
       'Me.Show 0
       End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2010 Impression d'un userform en pdf & Multipages
Réponses
6
Affichages
2 K
PoloTaz67
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
599
AtTheOne
  • Résolu(e)
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
773
patricktoulon
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
591
cathodique
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
783
bérylion
B
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
571
candido57
C
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
  • Question Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
7 K
TooFatBoy
M
  • Question Question
XL 2016 impression USERFORM en pdf
Réponses
8
Affichages
2 K
MOEZ-TUN
M
  • Résolu(e)
XL 2019 Importer des données de colonne spécifiques dans combobox
Réponses
4
Affichages
985
fanfan38
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
661
Mody200
M
  • Question Question
XL 2013 couleur texte listbox en fonction des lignes d'une feuille
Réponses
1
Affichages
560
patricktoulon
  • Résolu(e)
XL 2013 Userform recherche - Listbox double clic renvoi vers cellule
Réponses
7
Affichages
1 K
CGU2022.
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
522
un internaute
U
  • Question Question
XL 2013 Hauteur ligne listbox
Réponses
1
Affichages
669
sylvanu
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
724
Liner77
L
  • Résolu(e)
XL 2019 Copier d'une feuille à l'autre en ignorant la valeur zéro
Réponses
12
Affichages
785
mapomme
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
4 K
meyscal
M
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
483
tactic6
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…