SetDefaultPrinter library...

[Rings]

Its a driver, but also export functions like a dll:

Code: Select all

PrinterName.s="Brother HL-1250"
#Lib=1
winspoollib=OpenLibrary(#lib,"Winspool.drv")
Prototype ProtoSetDefaultPrinter(name.s)
 If winspoollib
 
 SetDefaultPrinter.ProtoSetDefaultPrinter=GetFunction(#Lib,"SetDefaultPrinterA")
 Result=SetDefaultPrinter(PrinterName)
 Debug result
EndIf

[Skipsy]

Well, I am not sure it's a driver, the goal is not to add a nex printer, just
to define a nex one as default in the existing list.

Iam not sur to understand that code so Iam trying tomorrow.

I was also working on another way :
rundll32 printui.dll,PrintUIEntry /y /n "printer"
but it doesn't work using RunProgram()...

Thks,
WW