Enregistrement en PDF problème imprimante

Bonjour,

Je dois enregistrer une feuille de mon classeur en pdf (et pas forcement l'imprimer dans un premiers temps), j'utilise donc la seule macro que j'ai pu trouver qui me permet de le faire:

With Worksheets("Sheet1")
        Fichier = "\" & .Range("C2") & ".pdf"

        chemin = Dossier & Fichier

        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End With

ça marche la plupart du temps mais il se trouve que sur certain PC sur lesquels je vais devoir utiliser cette macro, l'imprimante par défaut n'est pas bien reconnu ou pas bien synchronisé ce qui mène à faire échouer la macro qui va boucler sur un choix d'imprimante. Il faut savoir aussi que sur ces PC en question je n'ai pas les droit d'administrateur pour éventuellement changer l'imprimante par défaut.

Si quelqu'un à un solution je le remercie par avance.