Printer Manager

[Nine]

In this topic, it was mentioned by @mLipok that it could be doable to manage printers with winspool.drv DLL.  It was enough to get my attention on it.  I do not remember seeing any UDF gathering all those functions.

Func _PRNT_GetDefaultPrinter()
Func _PRNT_SetDefaultPrinter($sPrinter)
Func _PRNT_OpenPrinter($sName)
Func _PRNT_ClosePrinter($hPrinter)
Func _PRNT_GetPrinterInfo($hPrinter, $bGlobal, $bRAW = False)
Func _PRNT_SetPrinterInfo($hPrinter, $iProp, $iValue, $bGlobal)
Func _PRNT_EnumPrinters()
Func _PRNT_IsValidDevmode($tDevMode)
Func _PRNT_EnumJobs($hPrinter)

Version 2023-10-17

*added new functions _PRNT_IsValidDevmode and _PRNT_EnumJobs

Version 2023-10-15

* solved a problem where garbage collector would destroy $tDevMode after a while on return of _PRNT_GetPrinterInfo

 

There is a multitude of other functions that could be part of this UDF, but I have decided to stop here and see how you like it.

If you have comments or suggestions, they are always welcome.

Printer_UDF.zip

Edited October 17, 2023 by Nine

[taurus905]

@Nine Thank you for the nice looking UDF with an example script to run.

I didn't look closely at this, but wanted to show you the error I received by running the script:

Line 17

ConsoleWrite($tDevMode.Duplex & @CRLF)
ConsoleWrite($tDevMode^ ERROR

Error: Variable must be of type "Object".

Also:

Printer_UDF.au3"(62,28) : error: missing separator character before keyword.

taurus905

[Andreik]

Use without fear @error macro to see what function (before line 17) failed and why.

[Nine]

@taurus905 You seems to have an old version of AutoIt.  If the duplex component of the DevMode structure is absent, that could explain your issue.  So print out $tagDEVMODE so we can identify if it's missing.  And check all @error that you can intercept like @Andreik rightly told you.

[taurus905]

@Nine Is this the right version?

I will check the rest later.

Thank you.

taurus905

[taurus905]

I guess I don't know how to troubleshoot this.

@error doesn't get triggered even after adding it below each line before this:

Example.au3" (22) : ==> Variable must be of type "Object".:
ConsoleWrite($tDevMode.Duplex & @CRLF)
ConsoleWrite($tDevMode^ ERROR

My "WinAPIGdi.au3" is datestamped 9/14/2022 and is 200kb

Global Const $tagDEVMODE = 'wchar DeviceName[32];ushort SpecVersion;ushort DriverVersion;ushort Size;ushort DriverExtra;dword Fields;short Orientation;short PaperSize;short PaperLength;short PaperWidth;short Scale;short Copies;short DefaultSource;short PrintQuality;short Color;short Duplex;short YResolution;short TTOption;short Collate;wchar FormName[32];ushort Unused1;dword Unused2[3];dword Nup;dword Unused3;dword ICMMethod;dword ICMIntent;dword MediaType;dword DitherType;dword Reserved1;dword Reserved2;dword PanningWidth;dword PanningHeight'

I am curious if there is something wrong with my install.

Thanks for any help.

taurus905

[Andreik]

5 hours ago, taurus905 said:

Printer_UDF.au3"(62,28) : error: missing separator character before keyword.

There is a missing space in line 62 of the UDF

If @error Or Not $aRet[0]Then Return SetError(1)

should be

If @error Or Not $aRet[0] Then Return SetError(1)

 

[taurus905]

3 minutes ago, Andreik said:

There is a missing space in line 62 of the UDF

I saw that and fixed it before.

Same issue.

taurus905

[Andreik]

The other error is related to this line from _PRNT_GetPrinterInfo()

Local $tDevMode = DllStructCreate($tagDEVMODEex, $tPointer.pDevMode)

If $tPointer.pDevMode is null the creation of this structure fails. You can check this by adding

If @error Then MsgBox(0,'Error', @error & @CRLF & $tPointer.pDevMode)

right after and you'll probably see error 3 and 0x00000000.

[taurus905]

How can this work for others and not for me?

Example.au3"(17,71) : error: $tPointer: undeclared global variable.
  If @error Then MsgBox(0,'Error', @error & @CRLF & $tPointer.pDevMode)

taurus905

[Nine]

Ok I just found a problem with the garbage collector.  Since $tDevMode is part of another structure ($tBuff),  it will get destroy after a little while after return, so I needed to create a perm $tDevmode before return.

New version available 

[Nine]

Added support to two new functions, new version available 

[water]

Added this UDF the wiki 🙂