This should work
- Dim CurrentPrinter As String
- CurrentPrinter = Application.ActivePrinter
- If Application.ActivePrinter <> "NPI140D8A (HP LaserJet 400 M401n) on Ne00:" Then _
- Application.ActivePrinter = "NPI140D8A (HP LaserJet 400 M401n) on Ne00:"
- wsO.PrintOut ''/// use PrintPreview if you want to view before printing
- Application.ActivePrinter = CurrentPrinter
Your code has a comma in it. It should be just ws0.Printout