Interface IADsPrintQueue (iads.h)

Artigo
08/24/2023

A interface IADsPrintQueue representa uma impressora em uma rede. É uma interface dupla que herda de IADs. Os métodos de propriedade dessa interface permitem que você acesse dados sobre uma impressora, por exemplo, modelo de impressora, local físico e endereço de rede.

Herança

A interface IADsPrintQueue herda de IDispatch e IADs. IADsPrintQueue também tem esses tipos de membros:

Comentários

Use essa interface para procurar uma coleção de trabalhos de impressão na fila de impressão. Para controlar uma impressora em uma rede, use a interface IADsPrintQueueOperations . Para obter uma coleção dos trabalhos de impressão, chame o método IADsPrintQueueOperations::P rintJobs .

No Windows, uma impressora ou uma fila de impressão é gerenciada por um computador host. Se o caminho para uma fila de impressão for conhecido, associe-o a qualquer outro objeto ADSI.

O exemplo de código do Visual Basic a seguir mostra a operação de associação.

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

O exemplo de código C++ a seguir mostra a operação de associação.

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

Para enumerar todas as filas de impressão em um determinado computador

Associar ao objeto do computador.
Determine se o computador contém objetos "PrintQueue".
Enumerar todos os objetos de impressora encontrados.

Exemplos

O exemplo de código a seguir enumera impressoras em um determinado computador.

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