Fórum There is no default printer currently selected... #265306

Printers.Pas bug: ´There is no default printer currently selected´ http://buglist.jrsoftware.org/generated/entry0616.htm Reported by Eivind Bakkestuen Even if the machine in question does have a default network printer selected, this message would crop up and the user would have to select a local printer manually within our program to be able to print. Reproducing it: it´s probably related to using login script functionality to get the list of printers from the server upon workstation startup. It is a bug, since the machine most definitely does have a default printer selected (that it is a network printer shouldn´t matter). Cause: The TPrinter.SetToDefaultPrinter routine in Printers.Pas makes an assumption that all printer names returned from win32 api functions will always be capitalized exactly the same. It is this line inside the loop that determines the default printer (line 867 in D5´s printers.pas) that´s the cause of the problem: if TPrinterDevice(Objects[I]).Device = Device then After perusing a log file from the client, generated by a log-enabled version of this routine, it turned out that Device was something like ´HP Printer something´ while the devicelist contained ´HP PRINTER SOMETHING´, leading the comparison to fail. Workaround / Fix The workaround is simple enough: I stuck an AnsiUpperCase() call on each side of the equals sign, and then the default printer was recognized as such.