API

USUARIO.EXCLUIDOS 04/05/2005 12:44:20
#81574
Olá pessoal, alguem já usou alguma API para visualizar as impressoras instaladas e poder selecionar a impressora desejada. Na verdade eu preciso setar direto tal impressora q no caso não é a padrão.
Alguem conhece alguma forma de fazer isso.

Valeu
T+
Fábio
USUARIO.EXCLUIDOS 04/05/2005 15:05:24
#81603
Você pode utilizar o common dialog...
Tenho um exemplo que não utiliza o common dialog. Utiliza somente o objeto printer.
Mais ou menos assim:

For Each xPrinter In Printers
        
        If xPrinter.DeviceName = Printer.DeviceName Then 'é a Impressora Padrão
            blnImpressoraPadrao = true
        Else 'Outras Impressoras...
            blnImpressoraPadrao = false
        End If
        
        sDesc = xPrinter.DeviceName 'Nome da Impressora
        sDriver = xPrinter.DriverName 'Driver da Impressora
        debug.print sDriver & " - " & sDesc & iif( blnImpressoraPadrao , "impressora padrão", "")
        idx = idx + 1

    Next xPrinter

e para setar a impressora:


Set Printer = xPrinter


Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar