2 petites questions

Question

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.

le_virus · Answer

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

Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As String) As Long
Sub Main()
If Command$ "" Then
For Each Prt In Printers: Set Printer Prt: m$ = m$ + vbCrLf + Printer.DeviceName: Next
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) :" + _
vbCrLf + m$, 64, "ImpDefaut"
Else
For Each Prt In Printers
If InStr(Prt.DeviceName, Command$) > 0 Then Set Printer Prt: Exit For
Next
r WriteProfileString("windows", "Device", Printer.DeviceName + "," + Printer.DriverName + "," + Printer.Port)
l = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, "windows")
End If
End Sub

Vla @ tte

2 petites questions

1 réponse

Discussions similaires