Erreur 1004 imprimante [Résolu]

Signaler
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020
-
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020
-
Bonjour,

Récemment une macro que j'utilisais toutes les semaines, ne fonctionne plus et j'ai une erreur 1004.

J'ai au même moment changer de bureau et d'imprimante, en creusant un peu, je pense que cela vient de là.

Néanmoins mes connaissances étant limitées, je n'ai pas réussi à modifier le code favorablement.

Pourriez vous m'apporter un peu d'aide.

Merci


Voici le code qui ressort en erreur à partir de .LeftHeader ""

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


Configuration: Windows / Internet Explorer 11.0

3 réponses

Messages postés
12712
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 octobre 2020
706
bonjour, quel est ne numéro de ligne qui donne l'erreur, ou son contenu complet?
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020

ligne 14

Merci
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020

erreur toute bête mais ça peut servir à d'autres, après réinstallation de mon imprimante, one note s'est mis comme imprimante par défaut.
il me suffisait de remettre mon imprimante par défaut pour ne plus avoir d'erreur