none
Определение кол-во копий, заданных в текущем задании печати RRS feed

  • Общие обсуждения

  • Прошу помочь разобраться, как определить кол-во копий, заданных для текущего задания:

    Пытаюсь посмотреть в параметре CopyCount объекта PrintTicket для CurrentPrintTicket:

    Public Sub Main()
      Dim PrinterName As String = "Brother MFC-8880DN Printer"
      Dim printJobNames As String = " My Print Jobs:" & vbLf & vbLf
      
      ' Создание объекта "Принт-сервера"
      Dim myPrintServer As New LocalPrintServer()

      ' Получение очереди, заданной именем принтера
      Dim myPrintQueue As PrintQueue = myPrintServer.GetPrintQueue(PrinterName)
      
       ' Обновление свойств очереди значениями, поступающими от принтера и утилиты очереди печати
       myPrintQueue.Refresh()
       
       ' Получение коллекции заданий очереди печати
       Dim jobs As PrintJobInfoCollection = myPrintQueue.GetPrintJobInfoCollection()
        For Each job As PrintSystemJobInfo In jobs
          
         ' Получение параметров конфигурации для текущего задания печати
         Dim pj As PrintJobSettings = myPrintQueue.CurrentJobSettings
         ' Получение подробных настройек для задания печати
         Dim printTicket As PrintTicket = pj.CurrentPrintTicket
               
         printJobNames &= vbTab & "Job: " & job.JobName & " ID: " & job.JobIdentifier & " NumPage: " & job.NumberOfPages & vbLf & _
         vbTab & "CopyCount: " & printTicket.CopyCount & vbLf
          
        Next job
         
      MsgBox(printJobNames)

        End Sub

    но параметр CopyCount отображает кол-во копий из настроек принтера по умолчанию. Изменение кол-во копий из документа (например Word) не изменяет данный параметр, только если менять настройки принтера по умолчанию.

    Прошу подсказать, возможно я не там ищу :)

    21 ноября 2016 г. 9:56