Sub Печать_4118_сетевой()
' Печать_4118_сетевой Макрос
Dim v, s
Dim strTargetPrinterName
    strTargetPrinterName = GetTcpIPPrinter("192.168.0.104")
    If strTargetPrinterName <> "" Then
    s = Application.ActivePrinter
    Application.ActivePrinter = strTargetPrinterName
    Application.ScreenUpdating = False
    Worksheets("Расшифровка_о_расходе").PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Донесение").PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Акт_списания").PrintOut Copies:=3, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Акт_списания (2)").PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Ведомость_замера").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Протокол").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Реестр").PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Реестр(2)").PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
    Worksheets("Округление").Select
    Application.ActivePrinter = s
    Application.ScreenUpdating = 1
    Worksheets("Округление").Range("H41").Value = s
    Else
        MsgBox "The printer is not connected to this system!"
    End If
End Sub

Function GetTcpIPPrinter(ByVal strHostAddress As String) As String
'Return name of network printer connected directly to PC via tcpip port
Const strComputer = "."
Dim strPrinterName As String
Dim strPortName  As String
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPorts = objWMIService.ExecQuery("Select * from Win32_TCPIPPrinterPort Where HostAddress = '" & strHostAddress & "'")
For Each objPort In colInstalledPorts
    strPortName = objPort.Name
     
    Set colInstalledPrinters = objWMIService.ExecQuery("Select Name from Win32_Printer where PortName='" & strPortName & "'")
     
    For Each objPrinter In colInstalledPrinters
        GetTCIPPrinter = objPrinter.Name
    Next
Next
End Function