Choix imprimante par Default

Résolu

hellomargo Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
hellomargo Messages postés 52 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Vba microsoft print to pdf
Liste déroulante de choix excel - Guide
Spouleur imprimante - Guide
Télécharger pilote imprimante hp - Télécharger - Pilotes & Matériel
Imprimante temporairement arrêtée - Forum Logiciels
Imprimante compatible cartouche action - Forum Imprimante

7 réponses

Réponse 1 / 7

hellomargo Messages postés 52 Date d'inscription Statut Membre Dernière intervention 1

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

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

Réponse 2 / 7

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

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

Réponse 3 / 7

hellomargo Messages postés 52 Date d'inscription Statut Membre Dernière intervention 1

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 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

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 52 Date d'inscription Statut Membre Dernière intervention 1

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 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 52 Date d'inscription Statut Membre Dernière intervention 1

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

hellomargo Messages postés 52 Date d'inscription Statut Membre Dernière intervention 1

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 52 Date d'inscription Statut Membre Dernière intervention 1

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

Discussions similaires

Problème mot de passe vboxuser

Imprimante temporairement arrêtée

Le voyant de mon imprimante ne cesse de clign

Conseil cartouche action

Problème hp2710 e0

Votre réponse

Discussions similaires