Discussion :

[Nikodemus]

Bonjour,
J'ai listé des fichiers PDF d'un dossier sur mon réseau.
Je souhaiterais tous les imprimer. J'ai donc utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Sub ImprimerFichier()
 
Dim x As Long
Dim Chemin As String, DernièreLigne As Integer, i As Integer
 
DernièreLigne = Range("A65536").End(xlUp).Row
 
For i = 1 To DernièreLigne
 
If Range("B" & i).Value <> "" Then
Chemin = Range("B" & i).Value
 
    x = FindWindow("XLMAIN", Application.Caption)  
    ShellExecute x, "print", Chemin, "", "", 1
 
End If
Next
 
End Sub

Cependant, c'est l'imprimante par défaut qui se lance (pour moi PDFCreator, donc aucun interêt d'imprimer un pdf en pdf ...).
Je souhaiterai lui spécifier une imprimante à utiliser sans modifier mon imprimante par defaut (exemple : Imprimante réseau FRPT002245) ce que j'arrivais à faire pour un fichier excel mais pas pour un pdf.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PrintOut ActivePrinter:="FRPT002245"

Auriez-vous une solution ?
Merci par avance.

[BlueMonkey]

Bonsoir,

Comme il s'agit d'une autre application que Excel qui s'occupe de l'impression, le plus simple est encore de :
- sauvegarder le nom de l'imprimante par défaut,

- de changer l'imprimante par défaut de Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set objNetwork = CreateObject("WScript.Network")
objNetwork.SetDefaultPrinter <nom de la nouvelle imprimante par défaut>

- imprime tous les fichiers Pdf

- remet l'imprimante par défaut d'origine.

[Nikodemus]

Salut.

Et comment je fais pour enregistrer la valeur de l'imprimante par défaut dans une valeur tampon ?

Merci d'avance.

Résolu