USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Impressões/Impressoras)

Título da Dica:  Listando e Selecionando a Impressora para Impressão
Postada em 14/8/2003 por The Ñëëñjå            
Parte desta dica eu peguei aqui mesmo no VBWeb. mas adaptei alguma coisinhas...  vai aí pra quem precisar !!

Objetivo.: Listar num ListView, todas as impressoras instaladas no sistema (identificando a impressora Padrão) e selecionar a desejada para Imprimir o que vc quiser ::

Você precisará ter um ImageList relacionado na propriedade do ListView;
Este imagelist deve conter 2 ícones:
Neste Exemplo vamos usar o ícone 1 para a impressora padrão, e um ícone diferente (número 2) para as demais impressoras.

'-------------Para Listar as Impressoras--------------
Dim xPrinter As Printer
Dim sIcone As String
Dim sDesc As String
Dim sDriver As String
Dim idx As Integer

For Each xPrinter In Printers
    
    If xPrinter = Printer.DeviceName Then 'É a Impressora Padrão
          sIcone = ImageList1.ListImages(1).Key
    
    Else 'Outras Impressoras Instaladas
          sIcone = ImageList1.ListImages(2).Key
    End If

    sDesc = xPrinter.DeviceName
    sDriver = xPrinter.DriverName
        
    ListView1.ListItems.Add , , sDesc, sIcone, sIcone
    ListView1.ListItems(idx).SubItems(lvCad.ColumnHeaders(2).SubItemIndex) = sDriver
        
    idx = idx + 1

Next xPrinter



'-------------Para Selecionar a Impressora--------------

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

     Dim xPrinter As Printer

     For Each xPrinter In Printer
        
        If xPrinter.DeviceName = ListView1.ListItems(Item).Text Then
              Set Printer = xPrinter
              Exit For
        End If

    Next xPrinter

End Sub


'---------------------------------
É só usar  !!!!
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página