如何让System.Printing.PrintServer.GetPrintQueues从远程服务器返回打印队列列表？
问题
我正在尝试获取远程服务器上可用的打印队列列表。
最终，这将需要从ASP.NET执行，但是现在我已经满足于控制台应用程序的工作。
当我使用远程服务器的路径创建System.Printing.PrintServer类的实例时，我能够获得有关打印服务器的基本信息。但是当我调用GetPrintQueues方法时，我只获得在本地框中定义的队列。无论我用于远程设备。
码
Imports System.Printing
Module Module1
Sub Main()
ListPrintQueues("\local")
ListPrintQueues("\remote")
ListPrintQueues("\other")
End Sub
Sub ListPrintQueues(ByVal server As String)
Dim ps As New PrintServer(server)
Console.WriteLine("Printer Server=" & ps.Name)
Dim flags() As EnumeratedPrintQueueTypes = {EnumeratedPrintQueueTypes.Connections, EnumeratedPrintQueueTypes.Local}
Dim queues As PrintQueueCollection = ps.GetPrintQueues(flags)
For Each pq As PrintQueue In queues
Console.WriteLine(pq.FullName)
Next
Console.WriteLine()
End Sub
End Module
没有找到相关结果
已邀请:
2 个回复
杰黔轿缺
Imports System.Printing Module Module1 Sub Main() ListPrintQueues("\local") ListPrintQueues("\remote") ListPrintQueues("\other") End Sub Sub ListPrintQueues(ByVal server As String) Dim ps As New PrintServer(server) Console.WriteLine("Printer Server=" & ps.Name) Dim flags() As EnumeratedPrintQueueTypes = {EnumeratedPrintQueueTypes.Local} Dim queues As PrintQueueCollection = ps.GetPrintQueues(flags) For Each pq As PrintQueue In queues Console.WriteLine(pq.FullName) Next Console.WriteLine() End Sub End Module凰葱崎济邯
Private Sub btnreanudar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreanudar.Click Dim SERVIDOR As New System.Printing.PrintServer() 'SUPERIOR DEL SISTEMA DE IMPRESION (EL ORDENADOR) Dim IMPRESORAS As PrintQueueCollection = SERVIDOR.GetPrintQueues() 'IMPRESORAS DISPONIBLES For Each IMPRESORA As PrintQueue In IMPRESORAS 'RECORRE TODAS LAS IMPRESORAS Try If IMPRESORA.NumberOfJobs > 0 Then 'SI LA IMPRESORA TIENE ALGUNA IMPRESION EN MARCHA...... IMPRESORA.Refresh() Dim IMPRESIONES As PrintJobInfoCollection = IMPRESORA.GetPrintJobInfoCollection() 'CREA UNA COLECCION DE IMPRESIONES EN MARCHA For Each IMPRESION In IMPRESIONES ' POR CADA IMPRESION...... If IMPRESION.JobIdentifier = joblist.CurrentRow.Cells("JobId").Value Then IMPRESION.Resume() Exit Sub End If Next End If Catch ex As Exception End Try Next End Sub