Sub test()

Set pvtTable = ActiveCell.PivotTable

With ActiveSheet.PivotTables(pvtTable.Name).PivotFields("Наименование и техническая  характеристика")
        .PivotItems(ActiveCell.Value).Visible = False
End With



End Sub

Sub PrintFm()
v = Application.Dialogs(xlDialogPrinterSetup).Show ' диалого выбора принтера
If v = True Then
        strPrinterName = Application.ActivePrinter ' если принтер выбран запоминамем выбор
Else: Exit Sub ' если отмена то выходим
End If

Set wshPrint = CreateObject("WScript.Shell") ' получаем принтер по умолчанию
Prn = wshPrint.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device")
tmparr = Split(Prn, ",")
DefPrint = tmparr(LBound(tmparr)) ' получаем имя принтера по умолчанию

Set WshNetwork = CreateObject("Wscript.Network")
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set Printers = objWMI.ExecQuery("Select * From Win32_Printer")

For Each printer In Printers
    sPrName = Left(strPrinterName, Len(printer.Name)) ' для корректного сравнения обрезаем имя до кол-ва знаков переменной printer.Name (убираем (Ne02:)
    'MsgBox (s & ",  " & printer.Name)
 If printer.Name = sPrName Then
  WshNetwork.SetDefaultPrinter sPrName ' устанавливаем выбранный принтер принтером по умолчанию
  Exit For
 End If
Next

With Print_A4 'печатаем форму
    h = .Height
    .Height = 860
    .PrintForm
    .Height = h
End With


WshNetwork.SetDefaultPrinter DefPrint ' восстанавливаем принтер по умолчанию
    
End Sub