voila j'ai un feuille qui sert a imprimer avec un combo qui contien le nom des imprimantes instalées : dim Imprimante as printer For Each Imprimante In Printers cmbImprimante.AddItem Imprimante.DeviceName Next Voila mes questions : 1- Comment pourrais-je faire pour que le combo affiche l'imprimante par défaut au début ? 2- Comment faire pour que l'imprimante par défaut change en fonction de celle que l'utilisateur a choisit dans le combo.

Salut
Cherches bien dans les codes de vbfrance....
sinon je te passe ce code qu'il te faudra adapter a ton probleme...



1. Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
2. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As String) As Long
3. Sub Main()
4.   If Command$ = "" Then
5.     For Each Prt In Printers: Set Printer = Prt: m$ = m$ + vbCrLf + Printer.DeviceName: Next
6.     MsgBox "Pour changer l'imprimante par défaut, passez en paramètre au programme une sous-chaîne unique d'une des chaînes suivantes (attention aux majuscules/minuscules) :" + _
7.            vbCrLf + m$, 64, "ImpDefaut"
8.   Else
9.     For Each Prt In Printers
10.       If InStr(Prt.DeviceName, Command$) > 0 Then Set Printer = Prt: Exit For
11.     Next
12.     
13.     r = WriteProfileString("windows", "Device", Printer.DeviceName + "," + Printer.DriverName + "," + Printer.Port)
14.     l = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, "windows")
15.   End If
16. End Sub

Vla @ tte