Discussion :

[Invité]

Bonjour,

Comme l'indique le sujet, je souhaite imprimer un userform au format paysage. Pour le moment mon code me permet de l'imprimer au format portrait, et le problème est donc qu'il ne remplit que la moitié d'une page A4. Voici mon code, trés basique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
    Me.PrintForm
End Sub

Pour effectuer mes test je n'imprime pas, mais j'enregistre au format PDF, celà est-il du à la fonction ou aux paramétres par défaut d'impression de mon ordinateur?

C'est la première fois que j'utilise cette fonction alors je ne la connait pas trés bien ...

Merci d'avance pour votre aide et vos conseils

[Daniel.C]

Bonjour, j'ai trouvé ceci en cherchant sur internet. Le principe estde copier l'image de l'userform, de la copier sur une feuille, de mettre ma forme au format paysage et de l'imprimer. L'userform doit être visible. Le code prévoit un boouton de commande sur l'userform pour commander l'impression. Dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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

Le code du bouton d'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
' keybd_event VK_SNAPSHOT, 0, 0, 0
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")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
'added to force landscape
ActiveSheet.PageSetup.Orientation = xlLandscape
'ActiveWindow.SelectedSheets.PrintOut Copies:=1 '
ActiveWindow.SelectedSheets.PrintPreview
ActiveWorkbook.Close False
End Sub

Je ne sais pas s'il est possible d'éviter de passer par un commandbutton.

[Invité]

Merci je vais essayer ça =D de toute façon je passe déja par un commande bouton alors ce n'est pas un problème =)

[Didier Gonard]

Bonjour,

En cherchant sur DVP, tu as ceci avec les liens Tutos


Imprimer toutes les pages d'un USF Multipages

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Invité]

Merci pour vos réponses,

J'ai essayé le code de Daniel, puis celui du tuto DVP et j'ai le même problème dans les deux cas... Lorsque je clique sur mon bouton imprimer, j'ai apparemment un aperçu avant impression qui s'ouvre, mais j'ai toujours mon userform en premier plan et là ça bloque, je ne peux rien fermer, rien arrêter .. je suis obligé de passer par le gestionnaire de tâches =s

Voici le dernier code tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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 PrintButton_Click()
    If TextBox3.Value = "" Then
        MsgBox "Vous devez rentrer le nombre de personnes de ce secteur"
    Else
        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.Paste
        ActiveSheet.PageSetup.Orientation = xlLandscape
        'impression centrée dans la page
        With Ws
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = True
            '.PrintOut
            .PrintPreview
        End With
    End If
 
End Sub

[jcderchain]

Bonjour,

tu ne "decharche"pas ton userform. est-ce normal ?
tu devrait essayer de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

unload.me

quelque part.

Salutation.