Ouvrir les propriétés de l'imprimante

Description

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

Codes Sources

A voir également

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.