Imprimer un userform au format paysage [Résolu]

[fowlie]

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 :

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 :

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 :

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.

[fowlie]

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 =)

[Ormonth]

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

[fowlie]

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 :

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 :

unload.me

quelque part.

Salutation.

[Ormonth]

Bonjour,

Envoyé par fowlie

J'ai essayé.. puis celui du tuto DVP

copier coller, c'est bien, lire ce qui est marqué pour comprendre, c'est encore mieux

Envoyé par Tutoriel

III-F. Effectuer l'aperçu avant impression d'une feuille de calcul depuis un UserForm
Lorsque vous souhaitez effectuer un aperçu avant impression d'une feuille de calcul, depuis un UserForm, utilisez:
Vba


Private Sub CommandButton1_Click()
Me.Hide
'Aperçu avant impression de la Feuil1
Feuil1.PrintPreview
Me.Show
End Sub

Code :

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
Private Sub CommandButton1_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
        Me.Hide
        With Ws
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = True
            '.PrintOut
            .PrintPreview
        End With
    End If
 Me.Show
End Sub

vois dans l'aide VBA et les tutos la notion de USF modal ou non , Hide etc...

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

[fowlie]

Merci effectivement ça marche mieux comme ça
Par contre est-il possible de faire la même chose mais uniquement avec l'intérieur du userform, sans le titre et le contour de fenêtre bleu? A la base c'est plutôt ce que je recherchais ...

quelqu'un saurait-il s'il est possible d'imprimer uniquement l'intérieur du userform? Enfin j'y arrive avec Me.PrintForm mais je voudrais imprimer le userform au format paysage. Ce dernier point, j'y arrive avec l'aide apportée par le forum ci-dessus ... Mais j'affiche aussi le titre du userform et son contour.

Comment faire pour imprimer l'intérieur uniquement et au format paysage?

Merci d'avance pour votre aide!

[Daniel.C]

A mon avis, ce n'est pas possible. Pourquoi mets-tu les contrôles sur un userform ? est-ce que tu ne peux pas les mettre sur une feuille de données ?

[fowlie]

Cad les controles sur le userform? tu parles du bouton d'impression? tu proposerais quoi sinon?

[Daniel.C]

Je veux dire que tu pourrais peut-être ne pas utiliser un userform. Tu mettrais les contrôles de ton userform sur une feuille.

[fowlie]

C'est une idée, mais je manque de temps.
finalement j'ai réussi, comme quoi tout est possible ^^ bon c'est un système D mais ça marche :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
        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
            Selection.ShapeRange.PictureFormat.CropTop = 21.75
        'impression centrée dans la page
        Me.Hide
 
        Selection.ShapeRange.PictureFormat.CropRight = 3.75
        Selection.ShapeRange.PictureFormat.CropBottom = 4.5
        Selection.ShapeRange.PictureFormat.CropLeft = 3#
        Selection.ShapeRange.IncrementLeft -3#
        Selection.ShapeRange.IncrementTop -21.75
        Selection.ShapeRange.ScaleWidth 1.04, msoFalse, msoScaleFromTopLeft
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Ws.Delete