Choix imprimante par Default

Résolu/Fermé

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 - 8 mai 2020 à 22:54
hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 - 9 mai 2020 à 12:06

Bonjour a tous,
j'utilise un code qui me permet d'imprimer en pdf
mais si je change d'imprimante les marges ce modifient.
je souhaiterais ajouter ce petit bout de code

Application.ActivePrinter = "microsoft print to pdf"

au code que j'utilise actuellement

Sub copi_pdf()
            Application.DisplayAlerts = False
      Dim Chemin As String
       Dim dossier As String
        Dim sousdossier As String
 
 Chemin = "C:\Users\moi\Documents\"
dossier = Sheets("test").Range("B27").Value & " " & Sheets("test").Range("B26").Value
sousdossier = Sheets("test").Range("B22").Value & " " & Sheets("test").Range("B25").Value 

  
Sheets("test pour pdf").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin & dossier & "\" & sousdossier & "\" & Sheets("test pour pdf").Range("A15").Value _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

        
       Application.DisplayAlerts = True
    End Sub

merci a vous

A voir également:

Application.activeprinter
Liste déroulante de choix excel - Guide
Spouleur imprimante - Guide
Pilote imprimante hp - Télécharger - Pilotes & Matériel
Imprimante reseau - Guide
Comment scanner un document avec une imprimante - Guide

7 réponses

Réponse 1 / 7

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 1
9 mai 2020 à 11:52

j'ai trouvé
Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
9 mai 2020 à 11:59

peux-tu alors marquer la discussion comme résolue?

Réponse 2 / 7

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
9 mai 2020 à 09:10

bonjour, et quel soucis rencontres-tu quand tu l'ajoutes?

Réponse 3 / 7

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 1
9 mai 2020 à 10:47

Bonjour yg_be,
si l'imprimante n'est pas microsoft print to pdf par default,
j'ai un message Application.ActivePrinter = "microsoft print to pdf" = faux

Réponse 4 / 7

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
9 mai 2020 à 11:12

peux-tu partager ton code, ainsi que le texte exact du message?
sous quelle forme ce message s'affiche-t'il, et quand?

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 1
9 mai 2020 à 11:30

code:

Sub copi_pdf()
Application.DisplayAlerts = False
Dim Chemin As String
Dim dossier As String
Dim sousdossier As String

Chemin = "C:\Users\moi\Documents\"
dossier = Sheets("test").Range("B27").Value & " " & Sheets("test").Range("B26").Value
sousdossier = Sheets("test").Range("B22").Value & " " & Sheets("test").Range("B25").Value

Application.ActivePrinter = "microsoft print to pdf"

Sheets("test pour pdf").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & dossier & "\" & sousdossier & "\" & Sheets("test pour pdf").Range("A15").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False


Application.DisplayAlerts = True
End Sub

message erreur:
vba excel erreur d'exécution 1004
La methode ActivePrinter de l'objet _Application a échoué

et quand je passe le curseur sur la ligne en jaune:
Application.ActivePrinter = "microsoft print to pdf" = faux

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
9 mai 2020 à 11:35

Bonjour,

N'est-ce pas simplement un problème de casse ?
Microsoft Print to PDF (au lieu de microsoft print to pdf)

Réponse 6 / 7

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 1
9 mai 2020 à 11:39

bonjour patrice,
je viens de tester, tjrs le même message d'erreur!

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 1
9 mai 2020 à 11:48

sinon et quand je passe le curseur sur la ligne en jaune:
Application.ActivePrinter = "fax sur NeO3"
(FAX est l'imprimante qui me sert à tester )

Réponse 7 / 7

hellomargo Messages postés 49 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 13 février 2023 1
9 mai 2020 à 12:06

pas de problème
merci a vous et bonne journée

Discussions similaires

Imprimante temporairement arrêtée

Mon imprimante HP est en pause. Que faire ?

pas d'impression car pas d'encre couleur

Mon imprimante imprime des caractères spéciaux

Conseil cartouche action

Discussions similaires

Newsletters