Thanks

Dave

To list all queues on a server: EnumPrinters
To list all jobs in a queueu: OpenPrinter > EnumJobs > ClosePrinter
To get printer details: OpenPrinter > GetPrinter > ClosePrinter

Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA"
(ByVal Flags As Long, ByVal Name As String, ByVal Level As Long,
pPrinterEnum As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As
Long) As Long
Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal
pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As
Long
Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal
hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level
As Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As
Long) As Long
Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As
Long
Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (ByVal
hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal cbBuf As Long,
pcbNeeded As Long) As Boolean

bye,

Richard

--------------------------------------