Print code on userform

[ipbr21054]

Hi,
The working code supplied below is what i use to view a saved invoice.
What i am looking for is to now use the same code but with an edit.
Once the button is pressed it will look for the invoice number & print it as opposed to viewing it.
Thanks

Private Sub OpenInvoice_Click()

    Const FILE_PATH As String = "C:\Users\Ian\Desktop\REMOTES ETC\DR COPY INVOICES\"
    
    If txtInvoiceNumber = "N/A" Or Len(txtInvoiceNumber) = 0 Then
                MsgBox "Invoice N/A For This Customer", vbExclamation, "N/A INVOICE NOTICE"
    Else
        If Len(Dir(FILE_PATH & txtInvoiceNumber.Value & ".pdf")) = 0 Then
            If MsgBox("Would You Like To Open The Folder ?", vbCritical + vbYesNo, "Warning Invoice is Missing.") = vbYes Then
                CreateObject("Shell.Application").Open ("C:\Users\Ian\Desktop\REMOTES ETC\DR COPY INVOICES\")
            End If
        Else
            CreateObject("Shell.Application").Open (FILE_PATH & txtInvoiceNumber.Value & ".pdf")
        End If
    End If
End Sub

 

[ipbr21054]

Hi,
Pressing print after customer has been selected shows me the pdf invoice.
I then see a Run Time Error of,
2147217375 (80041021)

Pressing Debug shows me this in yellow.

Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & sComputer & "\root\cimv2")

 

[Jaafar Tribak]

@ipbr21054

Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & sComputer & "\root\cimv2")

Where are the anti-slashes "" ?

Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2

 

[ipbr21054]

I copied the code from post #10 & now looking at that post 1 x / is missing,see below.

Now with the extra \ added to the code after the print has finished the Adobe shutsdown etc by itself & thus works.

See post 10 code below

[COLOR=#333333]Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}![/COLOR][COLOR=#ff0000]\[/COLOR][COLOR=#333333]" & sComputer & "\root\cimv2")[/COLOR]

Many thanks for your time & help.

Cheers

 

[Jaafar Tribak]

@ipbr21054

Thanks for the feedback and glad you got this working in the end.