Choix imprimante par Default
Résolu
hellomargo
Messages postés
52
Statut
Membre
-
hellomargo Messages postés 52 Statut Membre -
hellomargo Messages postés 52 Statut Membre -
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
au code que j'utilise actuellement
merci a vous
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
7 réponses
-
j'ai trouvé
Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:" -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, et quel soucis rencontres-tu quand tu l'ajoutes? -
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 -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
peux-tu partager ton code, ainsi que le texte exact du message?
sous quelle forme ce message s'affiche-t'il, et quand?-
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 -
Bonjour,
N'est-ce pas simplement un problème de casse ?
Microsoft Print to PDF (au lieu de microsoft print to pdf)
-
bonjour patrice,
je viens de tester, tjrs le même message d'erreur! -
