Printer Name Matching

Behind-the-Scenes Printer Name Matching

In Sherpa, for Printer Pricer to recognize which machines from TCO are authorized to be serviced in the MPS Pricebook administration area, the names of the printers need to match exactly. In order to catch as many minor differences as possible, our developers have coded quite a few fixes into the system. We have listed them below. These fixes to the names stay behind the scenes and won’t be noticed on the front end of the database.

The one thing the name matching does not catch though, is the difference of two machines that are the same but have a different name extender indicating attachments. For example, an “HP Color LaserJet 3700” vs an “HP Color LaserJet 3700dn” wouldn’t be recognized by Sherpa as being the same machine. Both instances of the machine would need to be listed in the MPS Pricebook as an authorized machine in order to be recognized in Printer Pricer.

'HP

    strModel = Replace(strModel, "h.p.", "hp")

    strModel = Replace(strModel, "h p", "hp")

    strModel = Replace(strModel, "hewlett packard", "hp")

    strModel = Replace(strModel, "hewlett-packard", "hp")

    strModel = Replace(strModel, " series", "")

    strModel = Replace(strModel, "laser jet", "laserjet")

    strModel = Replace(strModel, "lj", "laserjet")

    strModel = Replace(strModel, "enterprise", "")

    strModel = Replace(strModel, "flow", "")  

    'Canon

    strModel = Replace(strModel, "ir", "imagerunner")

    strModel = Replace(strModel, "clc", "colorlaserclass")

    strModel = Replace(strModel, "lc", "laserclass")

    strModel = Replace(strModel, " ic ", "imageclass")

    strModel = Replace(strModel, "ipf", "imageprograf")  

    'Kyocera Mita

    strModel = Replace(strModel, "kyocera mita", "kyocera")

    strModel = Replace(strModel, "mita", "kyocera")

    strModel = Replace(strModel, "kyocera-mita", "kyocera")

    strModel = Replace(strModel, "dialta", "")

    'Konica Minolta

    strModel = Replace(strModel, "konica", "konicaminolta")

    If strModel.Contains("konicaminolta") = False Then

  strModel = Replace(strModel, "minolta", "konicaminolta")

    End If

    strModel = Replace(strModel, "konica-minolta", "konicaminolta")

    strModel = Replace(strModel, "kmbs", "konicaminolta")

    'Pitney Bowes

    strModel = Replace(strModel, "pitney", "pitneybowes")

    strModel = Replace(strModel, "bowes", "pitneybowes")

    'Fuji Xerox

    strModel = Replace(strModel, "fuji", "fujixerox")

    strModel = Replace(strModel, "xerox", "fujixerox")

    strModel = Replace(strModel, "fuji-xerox", "fujixerox")

    'remove mfp

    strModel = Replace(strModel, "mfp", "")

    strModel = Replace(strModel, "enhanced", "")

    strModel = Replace(strModel, "micr", "")

    If strModel.Contains("copier/printer") = False Then

  strModel = Replace(strModel, "printer", "")

                    strModel = Replace(strModel, "copier", "")

    End If

    strModel = Replace(strModel, "+", "plus")

    strModel = Replace(strModel, " pro ", "")

    strModel = Replace(strModel, "professional", "")

    strModel = Replace(strModel, "select", "")

    strModel = Replace(strModel, "personal", "")

    strModel = Replace(strModel, "machine", "")

    strModel = Replace(strModel, "bubblejet", "bj")

             strModel = Replace(strModel, "bubblejet color", "bjc")

    strModel = Replace(strModel, "photo", "")

    strModel = Replace(strModel, "(", "")

    strModel = Replace(strModel, ")", "")

    strModel = Replace(strModel, "wireless", "")

    strModel = Replace(strModel, "network", "")

    strModel = Replace(strModel, "all in one", "")

    strModel = Replace(strModel, "all-in-one", "")

          strModel = Replace(strModel, "inkjet", "")

    strModel = Replace(strModel, "multifunction", "")

    strModel = Replace(strModel, "mono", "")

    strModel = Replace(strModel, "color", "")

    If strModel.Contains("laserjet") = False Then

  strModel = Replace(strModel, "laser", "")

    End If

    strModel = Replace(strModel, "workgroup", "")

    strModel = Replace(strModel, "digital", "")

          strModel = Replace(strModel, "printing", "")

    strModel = Replace(strModel, "System", "")

    strModel = Replace(strModel, "edition", "")

    strModel = Replace(strModel, "artistic", "")

    strModel = Replace(strModel, "business", "")

    strModel = Replace(strModel, "compact", "")

    strModel = Replace(strModel, "small-in-one", "")

    strModel = Replace(strModel, "small in one", "")

            strModel = Replace(strModel, "home", "")

    strModel = Replace(strModel, "expression", "")

    If strModel.Contains("copier/printer/color scanner") = False Then

  strModel = Replace(strModel, "scan", "")

  strModel = Replace(strModel, "scanner", "")

    End If

    strModel = Replace(strModel, "duplicator", "")

    strModel = Replace(strModel, "multifunctional", "")

    strModel = Replace(strModel, "with", "")

    strModel = Replace(strModel, "\", "")

    strModel = Replace(strModel, "/", "")

    strModel = Replace(strModel, "e-all-in-one", "")

    strModel = Replace(strModel, "e all in one", "")

    strModel = Replace(strModel, "advantage", "")

    strModel = Replace(strModel, "ink", "")

    strModel = Replace(strModel, "mobile", "")

    strModel = Replace(strModel, "e-printer", "")

    strModel = Replace(strModel, "eprinter", "")

    strModel = Replace(strModel, "e printer", "")

          strModel = Replace(strModel, "premium", "")

    strModel = Replace(strModel, "premier", "")

    strModel = Replace(strModel, "estation", "")

    strModel = Replace(strModel, "e-station", "")

    strModel = Replace(strModel, "e station", "")

    strModel = Replace(strModel, "express", "")

    strModel = Replace(strModel, "production", "")

    If strModel.Contains("imagepress") = False Then

  strModel = Replace(strModel, "press", "")

    End If

    strModel = Replace(strModel, "model", "")

    strModel = Replace(strModel, "mac ready", "")

    strModel = Replace(strModel, "printrio", "")

    strModel = Replace(strModel, "fax machine", "")

    strModel = Replace(strModel, "ultra", "")

    strModel = Replace(strModel, "priport", "")

    strModel = Replace(strModel, "-", "")

          strModel = Replace(strModel, "b&w", "")

    strModel = Replace(strModel, "b/w", "")

    strModel = Replace(strModel, "secure", "")

    strModel = Replace(strModel, "highlight", "")

    strModel = Replace(strModel, "hotspot", "")

    strModel = Replace(strModel, "perfecting", "")

    strModel = Replace(strModel, "perfect", "")               

           strModel = Replace(strModel, "oki data", "oki")

            strModel = Replace(strModel, "selphy", "")

    strModel = Replace(strModel, "desktop", "")

    strModel = Replace(strModel, "wide format", "")

    strModel = Replace(strModel, "flow", "")

    strModel = Replace(strModel, ",", "")

    strModel = Replace(strModel, "dialta", "")

    strModel = Replace(strModel, "force", "")

    strModel = Replace(strModel, "ecosys", "")

    strModel = Replace(strModel, "forms", "")

    strModel = Replace(strModel, "optra", "")

    strModel = Replace(strModel, "panafax", "")

    strModel = Replace(strModel, "label", "")

    strModel = Replace(strModel, "aficio", "")

    strModel = Replace(strModel, "xpress", "")

    strModel = Replace(strModel, "x-press", "")

    strModel = Replace(strModel, "x press", "")

    strModel = Replace(strModel, "express", "")

    If strModel.Contains("hp br clr lsrjet cp2025") Then

  Dim t As String = ""

    End If

    strModel = Replace(strModel, " br ", " ")

    strModel = Replace(strModel, " comp ", " ")

    'strModel = Replace(strModel, " clr ", " color ")

    strModel = Replace(strModel, " clr ", " ")

    strModel = Replace(strModel, "lsrjet", "laserjet")

    strModel = Replace(strModel, "lsrjt", "laserjet")

    strModel = Replace(strModel, "clr lj", "color laserjet")

    strModel = Replace(strModel, "koncia", "konica minolta")

    strModel = Replace(strModel, "magiclr", "magicolor")

    strModel = Replace(strModel, "copycntr", "copycentre")

        strModel = Replace(strModel, "faxcntr", "faxcentre")

    strModel = Replace(strModel, "workcntr", "workcentre")

    strModel = Replace(strModel, "wrkcntr", "workcentre")

    strModel = Replace(strModel, "wrkctr", "workcentre")

    strModel = Replace(strModel, "biz pro", "bizhub pro")

    strModel = Replace(strModel, "biz pres", "bizhub press")

    strModel = Replace(strModel, "docprint", "docuprint")

    strModel = Replace(strModel, "docuprt", "docuprint")

    strModel = Replace(strModel, "prt", "")

    strModel = Replace(strModel, "laserjet", "")

    strModel = Replace(strModel, "/", "")

    strModel = Replace(strModel, "-", "")

    strModel = Replace(strModel, " ", "")

 

This same list of name matching is also used in the TCO area when importing from a meter tool or excel file in order to recognize industry average costs from the Sherpa default list of devices. It is also recognized when importing machines into the MPS Pricebook no matter which supplier or spreadsheet is being imported.

To make a machine authorized in the MPS Pricebook so that it’s recognized in the Printer Pricer, add the machine into the MPS Pricebook as a new model. You can use existing machines as a starting point for pricing and just update the information that is different between the two. For a tutorial on how to add machines in MPS Pricebook, be sure to attend the “Administrator Training MPS Pricebook” web training session.