Set to default printer

[Jake975]

How do i set this code to change the "default" printer instead of manually configuring the printer name?

Sub prit()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'ET0021B73612A4'")
 
For Each ObjPrinter In colInstalledPrinters
    ObjPrinter.resume
Next
End Sub

 

[JLGWhiz]

Maybe you can use the method described in Chip Pearson's article.

Printers In VBA

cpearson.com

 

[Jake975]

i figured it out with that website and Microsoft website as well thanks
Do you know how to cancel specific documents with a given name?

 

[JLGWhiz]

Do you know how to cancel specific documents with a given name?

I am not sure what this means, can you elaborate?

 

[Jake975]

How would I cancel specific documents in the printer spool with a given name

 

[JLGWhiz]

That is outside the realm of my knowledge. Maybe someone else can answer it.
regards, JLG