Como substituir os parâmetros abaixo utiliLIZANDO O MÉTODO CreateObject para fazer referência à biblioteca do WORD?
Public Function IDOC(LocalARQ As String)
On Error GoTo 200
Dim Word As Word.Application
Set Word = New Word.Application
With Word
.Documents.Open LocalARQ
.Visible = False
.PrintOut
.Quit
End With
Set Word = Nothing
Exit Function
200
Select Case Printers.Count
Case Is = ""
MsgBox "Ocorreu um erro ao tentar imprimir o arquivo. É possível que você não possui nenhuma impressora instalada.", vbCritical, "::. Controle de funcionários 2005.1"
Case Is <> ""
MsgBox "Ocorreu um erro ao tentar imprimir o arquivo. É possível que o arquivo esteja corrompido.", vbCritical, "::. Controle de funcionários 2005.1"
End Select
Word.Quit
Set Word = Nothing
End Function
Para não fazer referência à biblioteca do WORD diretamente do menu REFERÊNCIAS Estou utilizando assim:
Public Function IDOC(LocalARQ As String)
On Error GoTo 200
CreateObject ("Word.Application")
Dim Word
Set Word = CreateObject("Word.Application")
With Word
.Documents.Open LocalARQ
.Visible = False
.PrintOut
.Quit
End With
Set Word = Nothing
Exit Function
200
Select Case Printers.Count
Case Is = ""
MsgBox "Ocorreu um erro ao tentar imprimir o arquivo. É possível que você não possui nenhuma impressora instalada.", vbCritical, "::. Controle de funcionários 2005.1"
Case Is <> ""
MsgBox "Ocorreu um erro ao tentar imprimir o arquivo. É possível que o arquivo esteja corrompido.", vbCritical, "::. Controle de funcionários 2005.1"
End Select
Word.Quit
Set Word = Nothing
End Function
Tá funcionando, mas esta função está correta?
