TargetFolder ="C:\New folder"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set colItems = objFolder.Items
msgbox colitems.Count
For Each objItem in colItems
msgbox objitem
objItem.InvokeVerbEx("Print")
Next
Get the Printers list which are added in the system
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Find the Default printer name with below statement
'Set colPrinters = objWMIService.ExecQuery("Select * from Win32_Printer Where Default = TRUE")
Set colPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter in colPrinters
strOldDefault = objPrinter.Name
msgbox strOldDefault
Next
' Make printer default with below statement
' strOldDefault = Replace(strOldDefault, "\", "\\")