Sélection auto du port de l'imprimante

[francedemo]

bonjour à tous,

ce petit message pour partager une macro qui sélectionne automatiquement le port de mon imprimante "pdf"

[code=vb]
Sub Impression_vers_pdf()
' Macro créée par francedemo

Dim ImpDft As String
Dim ImpPdF As String
Dim NomFichier As String
Dim x As Byte

'===Désactiver la mise à jour de l'affichage
Application.ScreenUpdating = False
'===Mémoriser l'impramante active
ImpDft = Application.ActivePrinter

'===Valider les variables
NomFichier = ActiveWorkbook.Name
'===Lancer l'impression de la page courante
'===Valider le port de l'imprimante pdf
For x = 0 To 9
    On Error Resume Next
    ImpPdF = "PDFill PDF&Image Writer sur Ne0" & x & ":"
    Application.ActivePrinter = ImpPdF
Next x
ActiveWindow.SelectedSheets.PrintOut _
    Copies:=1, _
    ActivePrinter:=Application.ActivePrinter, _
    Collate:=True
'===Remettre l'imprante par défaut
Application.ActivePrinter = ImpDft
'===Activer la mise à jour de l'affichage
Application.ScreenUpdating = True
        
End Sub

[/CODE]

ça peut servir quand un fichier doit être imprimé à partir de plusieurs postes, on ne sait jamais sur quel port cela va se faire
la contrainte est d'avoir la même imprimante "pdf" installée partout

voilà, si ça peut servir à quelqu'un
à+