Microsoft 365 Problème imprimante par défaut

[sylviecro]

Bonjour,

J'ai cherché, essayé plein de trucs mais voilà que rien ne fonctionne.
J'aimerais faire une copie d'une feuille excel et l'imprimer en Foxit reader, mais je
suis incapable de changer l'imprimante par défaut. Ça ne change pas.
Voici le code :

Private Sub CommandButton4_Click()

Dim monfichier As String

monfichier = Sheets("Rapport urgence").Range("S1")
ActiveWorkbook.SaveAs Filename:=monfichier
Application.ActivePrinter = "Foxit Reader PDF Printer sur Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Foxit Reader PDF Printer sur Ne01:", Collate:=True

End Sub

Merci de m'aider 🙂

 

[Staple1600]

Bonsoir le fil

Il y a plus simple 😉
Excel sait "enregistrer" un classeur en PDF tout seul comme un grand!
O joie O bonheur 😉

 

[Staple1600]

Re

Voila ce que cela peut donner par le biais d'une macro

Sub Macro1()
Dim NomChemFic$
NomChemFic = "C:\Users\STAPLE\Documents\2020\WelcomeToTheMachine.pdf" ' ici adapter chemin dossier et nom fichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=NomChemFic, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

 

[patricktoulon]

re
bonjour
j'ai un doute
"ActiveWorkbook.SaveAs Filename:=monfichier "
de désélectionnerait il pas les onglets par hasard ????,
mais je rejoins Staple1600
ExportAsFixedFormat .... As .....pdf

 

[Staple1600]

Re

•>patricktoulon.
Ah bah, voila (émulation/synergie) 😉
(cf message#2 et #3)

 

[patricktoulon]

re
ouuuaaaiiis j'ai pris l'air sur la terrasse

 

[Staple1600]

Re

Quel rapport avec l'émulation et la synergie?
T'avais ton petit masque à fleurs, sur ta terrasse ? 😉

 

[patricktoulon]

ouuuaais et un binch brune 7°

 

[sylviecro]

Bonsoir le fil

Il y a plus simple 😉
Excel sait "enregistrer" un classeur en PDF tout seul comme un grand!
O joie O bonheur 😉

o
oui je sais mais la mise en page ne se fait pas bien et avec Foxit tout est ok et ça prend moins de place avec Foxit pour l'envoie

 

[Staple1600]

Re

Voila ce que j'ai retenu moi, à propos de FoxitReader 😉

Foxit PDF Reader - Wikipedia

en.wikipedia.org

Notamment le passage qui cause de malware.

 

[sylviecro]

Merci j'ai copié le code plus haut et ajusté à ma feuille et ça fonctionne... surement le workbook qui fonctionnait pas, mais bon j'ai compris c'est ce qui compte.
Encore un gros merci de votre aide, sans vous on pourrait rien faire nous les apprentis 🙂

 

[Staple1600]

Re

•>sylviecro
Tu as vu le lien de mon dernier message?

 

[sylviecro]

Re

Voila ce que j'ai retenu moi, à propos de FoxitReader 😉

Foxit PDF Reader - Wikipedia

en.wikipedia.org

Notamment le passage qui cause de malware.

oups je savais pas je viens de lire... je vais rectifier le tir. Merci