Modifier les paramètres de l'imprimante depuis une macro

**c-maire** · 21/02/2019, 12h50

Bonjour à tous

Je crée cette discussion car j'ai besoin de votre aide. Je suis plus que novice dans le domaine VBA, et je cherche à modifier les paramètres de mon imprimante depuis une macro excel.
Je veux passer les passer les paramètres d'impression de mon imprimante de Paysage a Portrait. Puis de Portrait à paysage. Aussi de modifier l'impression sur les bords courts et longs. (Je vais rajouter des photos dans la journée pour être le plus clair possible.

Merci d'avance

**halaster08** · 21/02/2019, 13h40

Bonjour,

Je te conseille deux choses, l'aide interne et l'enregistreur de macro.
Voici ce que m'as donné l'enregistreur quand j'ai voulu imprimé en paysage:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Application.Goto Reference:="Macro1"
End Sub

Comme tu peux le voir il y a beaucoup d'option, pour en savoir plus sur l'une d'entre elle, l'aide interne est là pour ça

Ici c'est .Orientation = xlLandscape qui me permet de passer en paysage
Pour les bords je ne suis pas sur à 100% mais je crois que c'est les options .???Margin

**c-maire** · 21/02/2019, 14h45

D'accord, merci de la réponse.
Comment affiche tu l'aide interne. Et comment as tu affiché tous ces paramètres ?

**halaster08** · 21/02/2019, 14h53

L'aide interne c'est la touche F1
Comme déjà expliqué j'ai obtenu mon code en utilisant l'enregistreur de macro: https://fauconnier.developpez.com/tu...istreur-macro/

**c-maire** · 21/02/2019, 15h37

Ok merci pour le F1.
Le code que tu m'as donné change la mise en page.
Voici le chemin que j'aimerai bien codé :
Nom : Capture.PNG
Affichages : 2881
Taille : 59,8 Ko

Nom : Capture.PNG
Affichages : 2881
Taille : 59,8 Ko

Nom : Capture 2.PNG
Affichages : 2981
Taille : 27,5 Ko

Je cherche à modifier ces deux paramètre de mon imprimante

J'attends votre aide

Merci d'avance

**c-maire** · 21/03/2019, 14h20

Je relance un coup le sujet car j'ai besoin d'aide, et toujours pas de réponses.

Merci d'avance

**halaster08** · 21/03/2019, 15h04

Dans la FAQ il y a un paragraphe sur le listing des propriétés de l'imprimante, à voir si tu peux modifier le code:https://excel.developpez.com/faq/?pa...tesImprimantes

**c-maire** · 28/03/2019, 08h19

Bonjour

La macro marche bien elle me sort les paramètres de mon imprimante. Mais si je change les paramètres et que j’exécute la macro les paramètres ne changent pas.
Et je ne sais pas comment définir mon imprimante par défaut et ensuite mettre ces paramètres dans la macro.

**Menhir** · 28/03/2019, 08h32

Les paramètre d'une imprimante sont propres à chaque imprimante. C'est pour ça qu'elles ont toutes un drivers.
Pour modifier les paramètres de l'imprimante, il faudrait donc accéder à la bibliothèque de ce driver qui doit être différente pour chaque modèle.
Bref, une migraine en perspective.

Par contre, il est assez simple d'accéder à certains paramètres liés à la mise en page.
L'orientation et les marges, par exemple, en font partie.

Pour plus d'info : https://docs.microsoft.com/fr-fr/off...xcel.pagesetup

**c-maire** · 01/04/2019, 07h53

Bonjour merci de la réponse.
Mon soucis c'est que j'imprime plusieurs documents PDF depuis une macro excel, et j'ai des documents en portrait et en paysage. Voila pourquoi je veux modifier les paramètres de l'imprimante. En modifiant portrait ou paysage dans la mise en page les fichiers restent dans le mode de base de l'imprimante (donc j'ai des paysage qui sont en portrait).

Pour vous c'est trop compliqué d'aller modifier ces paramètres ?

**patricktoulon** · 01/04/2019, 08h24

bonjour

paramétrer l'imprimante dans Excel est une chose(Excel)

modifier les paramètres dans le spooleur en est une autre ( WMI , WScript.Network , api win32, Librairie "winspool.drv")

regarde par ici peut être

**Menhir** · 01/04/2019, 09h06

Envoyé par c-maire

En modifiant portrait ou paysage dans la mise en page les fichiers restent dans le mode de base de l'imprimante (donc j'ai des paysage qui sont en portrait).

Normalement, la plupart des générateurs de PDF (entre autre PDF Creator) reprennent les paramètres de mise en page, y compris pour le mode portrait/paysage (je viens de faire le test).
Comment génères-tu tes PDF ?

Attention, il y a un piège dans lequel beaucoup tombent : la mise en page est propre à chaque page d'un fichier.
Comme le montrent les exemples du lien que j'ai fourni, PageSetup est une propriété de Worksheet et non de Workbook.
Donc, mettre un onglet en portrait ne changera pas l'orientation des autres onglets.

**c-maire** · 01/04/2019, 10h13

Patricktoulon Merci pour la réponse, mais je dois prendre le code au dessus et inclure la partie que j'ai besoin ?

Menhir voici le code que j'ai pris sur internet :

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
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Sub ImprimerFichierconsigne()
    Dim NomFichier As String
    Dim x As Long
 
    x = FindWindow("XLMAIN", Application.Caption)
    NomFichier = " (nom fichier) "
 
    ShellExecute x, "print", NomFichier, "", "", 1
End Sub

Et j'ai essayé de changer les paramètres d'orientation de ma page entre mes paysages et portrait, mais ça n'a pas marché (possible que j'ai fait une erreur)

**Menhir** · 01/04/2019, 10h50

Pour exporter un fichier Excel en PDF, il faut utiliser la méthode ExportAsFixedFormat.
https://msdn.microsoft.com/fr-fr/lib...1(v=office.15)

**c-maire** · 02/04/2019, 10h23

Attention je n'exporte pas, j'imprime des PDF depuis une macro Excel.

**patricktoulon** · 02/04/2019, 10h31

re
je pige pas la
tes fichiers pdf externes ne sont ils pas déjà formaté en paysage ou normal???

**c-maire** · 02/04/2019, 11h40

Si ils le sont mais les paramétrages de mon imprimante ne changent pas dans Excel :
Et en plus j'imprime une feuille A3 excel en premier et ensuite des fichiers PDF depuis excel. Mon imprimante reste paramétré en paysage et ne passe pas en portrait.

**Menhir** · 02/04/2019, 11h58

Envoyé par c-maire

Attention je n'exporte pas, j'imprime des PDF depuis une macro Excel.

Envoyé par c-maire

Mon imprimante reste paramétré en paysage et ne passe pas en portrait.

Je ne sais pas quel reader de PDF tu utilises, mais dans Accrobat Reader, il y a des options à l'impression pour adapter l'impression au document, entre autre, pour l'orientation, il y a l'option "Portrait/paysage automatique".

Mais pour en revenir à ta question de base, tu ne pourras pas obtenir de réponse parce que la réponse dépend de l'imprimante et de son driver.
Même si tu indiquais leur type, il est peu probable qu'un participant à ce forum dispose du même et puisse fournir une réponse.
Donc, il est conseillé de trouver une solution de contournement.

**c-maire** · 18/04/2019, 09h17

J'utilise Foxit Reader (c'est mon PC de travail). Je vais voir si Foxit possède cette même fonction.

Et pour les imprimantes se sont des imprimantes de chez Ricoh donc je ne pense pas être le seul à en utiliser

**c-maire** · 18/04/2019, 09h18

Et si quelqu'un pense à une solution de contournement qu'il n'hésite pas j'essayerai

Modifier les paramètres de l'imprimante depuis une macro

Macros et VBA Excel

Discussions similaires

Partager

Partager