Это старая история, но у меня никогда не было ничего подобного. У меня есть «нормальная» процедура с очередями печати, с 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)