Interfaz IADsPrintQueue (iads.h)

Artículo
08/24/2023

La interfaz IADsPrintQueue representa una impresora en una red. Es una interfaz dual que hereda de los IAD. Los métodos de propiedad de esta interfaz permiten acceder a datos sobre una impresora, por ejemplo, modelo de impresora, ubicación física y dirección de red.

Herencia

La interfaz IADsPrintQueue hereda de IDispatch e IADs. IADsPrintQueue también tiene estos tipos de miembros:

Comentarios

Use esta interfaz para examinar una colección de trabajos de impresión en la cola de impresión. Para controlar una impresora a través de una red, use la interfaz IADsPrintQueueOperations . Para obtener una colección de los trabajos de impresión, llame al método IADsPrintQueueOperations::P rintJobs .

En Windows, una impresora o una cola de impresión se administra mediante un equipo host. Si se conoce la ruta de acceso a una cola de impresión, se enlaza a ella como a cualquier otro objeto ADSI.

En el siguiente ejemplo de código de Visual Basic se muestra la operación de enlace.

Dim pq as IADsPrintQueue
Set pq = GetObject("WinNT://aMachine/aPrinter")

En el siguiente ejemplo de código de C++ se muestra la operación de enlace.

IADsPrintQueue *pq;
LPWSTR adsPath = L"WinNT://aMachine/aPrinter";
HRESULT hr = ADsGetObject(adsPath,
                          IID_IADsPrintQueue,
                          (void**)&pq);

Para enumerar todas las colas de impresión en un equipo determinado

Enlace al objeto de equipo.
Determine si el equipo contiene objetos "PrintQueue".
Enumera todos los objetos de impresora encontrados.

Ejemplos

En el ejemplo de código siguiente se enumeran las impresoras de un equipo determinado.

Dim cont As IADsContainer
Dim pq As IADsPrintQueue

On Error GoTo Cleanup
 
' Bind to the computer object
Set cont = GetObject("WinNT://fabrikam1,computer")

cont.Filter = Array("PrintQueue")

For Each p In cont
   Set pq = GetObject(p.ADsPath)
   MsgBox pq.Name & " is a " & pq.Model
Next p

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set cont = Nothing
    Set pq = Nothing