[Resolvido]Configurando o nome da impressora padrão

Senhores, bom dia!

Tenho uma função no VBA do meu Access que imprimi um documento Word, é instanciado um objeto do tipo word e alterado o nome da impressora padrão para "PDFCreator".

A questão é a seguinte, várias pessoas utilizam isso. Mas o nome da impressora não está igual em todos os computados, por isso ocorre erro quando o nome da impressora não é exatamente "PDFCreator".

"Run time error '5216': Printer error"

Tem computador que o nome está como "Adobe PDF" ou "ImpressoraPDF" ou só "PDF".

Segue o código:

Código:

Set oWord = CreateObject("Word.Application")
oldPrinter = oWord.ActivePrinter
oWord.ActivePrinter = "PDFCreator"
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="28", Copies:=1
oWord.ActivePrinter = oldPrinter

A minha intenção é na parte do código 'oWord.ActivePrinter = "PDFCreator"' alterar para encontrar o qualquer nome que possua "PDF" dentro.

oWord.ActivePrinter = '*PDF*'

Como eu faria isso pelo VBA??
Grande abraço a todos.

Leonardo Picoli

Veja neste meu artigo:

http://www.usandoaccess.com.br/tutoriais/tuto47.asp?id=1#inicio

Sucesso!

Cara, tem muita coisa interessante nesse artigo.
Gostei muito!

Mas para o que eu precisava encontrei essa função: http://word.mvps.org/faqs/macrosvba/AvailablePrinters.htm

A função do link acima lista todas as impressoras da sua máquina, então criei a função abaixo para procurar qual das impressoras da lista tem escrito "PDF" no nome, segue:

Código:

Public Function PrinterName() As String

Dim StrPrinters As Variant, x, i As Long
StrPrinters = ListPrinters

If IsBounded(StrPrinters) Then
    For x = LBound(StrPrinters) To UBound(StrPrinters)
        For i = 1 To Len(StrPrinters(x))
            If Mid(UCase(StrPrinters(x)), i, 3) = "PDF" Then
                PrinterName = StrPrinters(x) 'Se contém PDF no nome define esta como a impressora
                GoTo Fim
            End If
        Next i
    Next x
Else
    PrinterName = "PDFCreator"
End If

Fim:
End Function

Usando a função:

Código:

Set oWord = CreateObject("Word.Application")
oWord.ActivePrinter = PrinterName

[Resolvido]

Obrigado!!

Quem bom que resolveu.

Só para constar, o código estava lá no artigo. Veja abaixo a parte. Era só adaptar, aproveitando o loop do FOR.

Código:

Private Sub Form_Load()
Dim objPrinter As Object
'Adicione nome das impressoras na ListBox
For Each objPrinter In Printers
  Me!ListaImpressoras.AddItem objPrinter.DeviceName
Next
'Seleciona a impressora padrão do Windows
Me!ListaImpressoras.Value = Application.printer.DeviceName
End Sub

Sim, eu vi sim Avelino. Funciona muito bem e economiza muito código! Obrigado.

No Access vai que é uma beleza. É que como eu também uso o VBA do Word, nele não reconhece o Objeto do tipo Printers, por isso tive que fazer esse "gato" pra conseguir a lista de impressoras, rs.

Valeu man, abraço.

Léo