|
|
|
|
|
|
|
|
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 !!!!
|
|
|
|
|
