Missing "winspool" constant with "Printer$"

[norbert doerre]

I'm missing the "winspool" constant when getting the default printer via "Printer$". My software requires a syntax like " CANON MP610 series Printer,winspool,LPT1:". I'm using the following code and currently add manually ",winspool," which i think is not quite correct. It seems that "Printer$" could only give back the printer's name and port. Perhaps one of You knows more.

         If PrinterCount > 0 Then
            For i = 1 To PrinterCount
               sPrinter = Printer$(Name, i)
               XPrint Attach sPrinter
               XPrint Close
            Next i
            XPrint Attach Default, "" 'Den Standarddrucker als Dummy anfügen
            For i = 1 To PrinterCount
               sPrinter = Printer$(Name, i)
               sPort = Printer$(Port, i)
               If sPrinter = XPrint$ Then
                  sDefaultPrinter = sPrinter + ",winspool," + sPort 
                  Exit For
               End If
            Next i
         End If