Papierschächte beim Drucker wechseln

[hose63de]

Hallo Leute,

kann mir jemand verraten, wie man beim Drucker die Papierschächte wechselt?

Für die Rechnungsschreibung setzen wir den Reportgenerator von DevExpress ein. Die erste Seite einer Rechnung soll z.B. aus Schacht1 kommen, alle folgenden Seiten aus Schacht2. DevExpress bietet leider nur die Möglichkeit einen Drucker anzugeben. Ich habe die Möglichkeit, den Report zu splitten - Seite 1 ausdrucken und anschließend den Rest.

Aber wie kann man vom Standarddrucker den Papierschacht wechseln?

Danke schonmal,

Holger

Der folgende Code druckt zwar, leider werden die Einstellungen des Druckerschachts vollkommen ignoriert.

Dim mobjPrintDoc As New PrintDocument

Dim OrgDrucker As String = mobjPrintDoc.PrinterSettings.PrinterName

'setzt den default Windowsdrucker

Helfer.SetPrinter.ChangePrinter(objDruckerZuordnung.Zuordnung)

mobjPrintDoc.PrinterSettings.PrinterName = objDruckerZuordnung.Zuordnung

For Each value In mobjPrintDoc.PrinterSettings.PaperSources

     If value.RawKind = objDruckerZuordnung.Schacht_erste_Seite Then Exit For

Next

mobjPrintDoc.PrinterSettings.DefaultPageSettings.PaperSource = value

repRechnung.Print 'Ausdruck auf default Windowsdrucker

' orginalen Wert wieder herstellen 

Helfer.SetPrinter.ChangePrinter(OrgDrucker) 

[hose63de]

Hab die Lösung.

Man muss einen eigenen Handler zusammen bauen.

Private Sub PrintingSystemStartPrint(ByVal sender As Object, _

                     ByVal e As DevExpress.XtraPrinting.PrintDocumentEventArgs)

    e.PrintDocument.DefaultPageSettings.PaperSource = aktPaperSource

End Sub


Friend Function Ausdruck(ByVal strName As String, _

                     ByVal blnDuplikat As Boolean) As Boolean


    Dim repRechnung As DXRechnung = New DXRechnung()

    AddHandler repRechnung.PrintingSystem.StartPrint, AddressOf PrintingSystemStartPrint

...