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

Version imprimable

21/02/2019, 12h50
c-maire

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

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

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:

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

21/02/2019, 14h45
c-maire

D'accord, merci de la réponse.
Comment affiche tu l'aide interne. Et comment as tu affiché tous ces paramètres ?
21/02/2019, 14h53
halaster08

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/
21/02/2019, 15h37
c-maire

2 pièce(s) jointe(s)

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é :
Pièce jointe 452080
Pièce jointe 452082

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

J'attends votre aide

Merci d'avance
21/03/2019, 14h20
c-maire

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

Merci d'avance
21/03/2019, 15h04
halaster08

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
28/03/2019, 08h19
c-maire

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.
28/03/2019, 08h32
Menhir

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
01/04/2019, 07h53
c-maire

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 ?
01/04/2019, 08h24
patricktoulon

re

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
01/04/2019, 09h06
Menhir

Citation:

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.

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:

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)

01/04/2019, 10h50
Menhir

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)
02/04/2019, 10h23
c-maire

Attention je n'exporte pas, j'imprime des PDF depuis une macro Excel.
02/04/2019, 10h31
patricktoulon

re

re
je pige pas la
tes fichiers pdf externes ne sont ils pas déjà formaté en paysage ou normal???
02/04/2019, 11h40
c-maire

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.
02/04/2019, 11h58
Menhir

Citation:

Envoyé par c-maire

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

Citation:

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.
18/04/2019, 09h17
c-maire

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 ;)
18/04/2019, 09h18
c-maire

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