Announcement

Collapse
No announcement yet.

Missing "winspool" constant with "Printer$"

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Missing "winspool" constant with "Printer$"

    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.

    Code:
             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
    Norbert Doerre
Working...
X