Vous pouvez utilisez ce code pour les propriétés de l'imprimante, mais moi je l'ai trouver pour la question que j'ai posé sur le forum (comment savoir si une imprimante est configurer sur l'ordi)
Source / Exemple :
Option Explicit
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long
Private Sub Form_Load()
On Error GoTo Fin
Dim hPrinter As Long
OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
PrinterProperties Me.hwnd, hPrinter
ClosePrinter hPrinter
Exit Sub
Fin: MsgBox ("Aucune imprimente n'est configurer sur votre ordinateur, les imprimeries ne seront pas accessibles")
End Sub
Conclusion :
Le code aurais pus bien être dans les API aussi mais bon. Slut à tous!!!!
La source vient de
'KPD-Team 2001
'URL:
http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.