XL 2016 impression USERFORM en pdf

[MOEZ-TUN]

Bonjour
j'utilisé cet macro pour imprimer une USERFORM
Sub impressionForm()
Dim x, tbl(), i, texte
x = 0
With CreateObject("WScript.Network")
Set imprimantes = .EnumPrinterConnections
For i = 0 To imprimantes.Count - 1
If InStr(LCase(imprimantes(i)), "pdf") > 0 Then ReDim Preserve tbl(0 To x): tbl(x) = imprimantes(i): texte = texte & x & "--" & imprimantes(i) & vbCrLf: x = x + 1
Next
i = InputBox("choissisez une imprimante " & vbCrLf & texte, "impression userform")
If i <> "" Then
.SetDefaultPrinter tbl(Val(i))
UserForm1.printform

End If
End With
End Sub

Mais j'arrive pas a ajouter une troisième choix de type de l'imprimante , ni a définir le chemin et nom de fichier a imprimé.

Merci pour voter support

 

[kiki29]

Salut, pour info

 

[i20100_]

Bonjour,

dans ta macro il y a un seul choix de type de l'imprimante c'est "PDF"

If InStr(LCase(imprimantes(i)), "pdf") > 0

pour en ajouter d'autres comme par exemple "hp" ou "cannon",

If InStr(LCase(imprimantes(i)), "pdf") > 0 Or InStr(LCase(imprimantes(i)), "hp") > 0 Or InStr(LCase(imprimantes(i)), "canon") > 0 Then ReDim Preserve tbl(0 To x): tbl(x) = imprimantes(i): texte = texte & x & "--" & imprimantes(i) & vbCrLf: x = x + 1

 

[patricktoulon]

bonsoir
ma fois il suffit tout simplement de supprimer ceci :

If InStr(LCase(imprimantes(i)), "pdf") > 0 Then

pour avoir la liste complète des imprimante dispo

 

[MOEZ-TUN]

ok merci
et pourquoi l'imprimante par défaut se change après le choix de l'imprimante?

 

[patricktoulon]

re:
bonjour
ben par ce que la macro la change pardi!!!!
un peu de lecture

collection fausse boite de dialogue (Patricktoulon) episode 2 dialog selecteur d'imprimante

cette boite de dialogue vous permet de sélectionner une imprimante par défaut pour Windows(pas celle pour excel) tres pratique quand on veut imprimer des fichier externe a excel sur une imprimante précise excel)

www.excel-downloads.com

 

[MOEZ-TUN]

ok merci

 

[patricktoulon]

re
dans la journée quand j'ai un moment je te fait le retour a l'imprimante initiale après impression pdf

 

[MOEZ-TUN]

ok merci
problème résolu