Discussion :

[guilau24]

Bonjour,

tout d'abord tout nouveau ici, merci à vous pour pour votre acceuil.

j'utilise depuis un moment une macro pour effectuer la mise en page d'un doc en .csv, mais du jour au lendemain sans aucune intervention sur le code, celui ci ne fonctionne plus.

la variable page.setup présente une erreur 1004.

Voici mon code: ( en rouge l'erreur détectée )

Merci pour votre aide

Macro5 Macro

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

[EricDgn]

Bonjour,

En fait la seule partie utile dans cette macro est celle qui définit les marges, tout le reste étant des valeurs par défaut. La macro pourrait donc être réduite à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro5()
    With ActiveSheet.PageSetup
        .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)
    End With
End Sub

Si l'erreur persiste, il est aussi possible qu'il y ait dans une autre partie du code l'appel à une imprimante dont le nom est mal orthographié ou qui ne serait pas branchée.
Cordialement.

[guilau24]

merci, jai effacé les lignes inutiles mais le problème persiste.
j'ai effectivement changé de poste de travail récemment et ça doit être lié avec l'imprimante.
par contre je ne vois pas à quel moment ça fait appel à une imprimante en particulier, je pensais pouvoir utiliser ma macro n'importe ou

[guilau24]

en creusant un peu, mon erreur 1004 viendrait du changement d'imprimante.

est il possible de créer une macro utilisable sur plusieurs imprimantes?

[EricDgn]

Comme vous l'indiquiez, normalement les macros devraient fonctionner quelle que soit l'imprimante.
Théoriquement ce que vous imprimez est un formulaire ou un état. Que ce soit l'un ou l'autre, sélectionner cet objet, faites un "aperçu avant impression", cliquer sur "mise en page", là dans l'onglet "Page" vérifier que l'impression s'effectue bien sur l'imprimante par défaut (et pas sur une imprimante spécifique). A tester.
Cordialement.