Копии и настройка цвета для очередей принтера - PullRequest
0 голосов
/ 22 февраля 2020

Это старая история, но у меня никогда не было ничего подобного. У меня есть «нормальная» процедура с очередями печати, с DefaultTicket и UserTicket, уже обсуждаемый вариант с «HostingPrintServer.GetPrintQueue», но задание печати всегда приносит 1 (одну) страницу в цвете независимо от настроек, хотя я установил для Пример 2 страницы и оттенки серого:

 Dim Queue As PrintQueue = pq.HostingPrintServer.GetPrintQueue(pq.Name)

 Queue.UserPrintTicket.CopyCount = Copies
 Queue.UserPrintTicket.OutputColor = Color
 Queue.UserPrintTicket.OutputQuality = OutputQuality.High
 Queue.UserPrintTicket.PageResolution = New PageResolution(PageQualitativeResolution.Normal)
 Queue.UserPrintTicket.PhotoPrintingIntent = PhotoPrintingIntent.PhotoBest
 Queue.CurrentJobSettings.Description = "directFaktura2010"

 If loadedCanvas.MinHeight < loadedCanvas.MinWidth = True Then
    Queue.UserPrintTicket.PageOrientation = PageOrientation.Landscape
 Else
    Queue.UserPrintTicket.PageOrientation = PageOrientation.Portrait
 End If

 Queue.Commit()

 Dim docWriter As Xps.XpsDocumentWriter = Printing.PrintQueue.CreateXpsDocumentWriter(Queue)
 ...
 docWriter.Write(paginator)
...