Druckerfächer ansprechen

[Busfahrer]

Hallo Leute,

ich bin relativ neu in Sachen VB.Net und habe nun den Auftrag eine Druckerfach ansprechung zu basteln !

Soweit bin ich atm.
[highlight=vbnet]Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim prn As New Printing.PrintDocument

prn.PrinterSettings.PaperSources.ToString()
prn.PrinterSettings.PrinterName.ToString()




AddHandler prn.PrintPage, AddressOf Me.PrintPageHandler

prn.Print()

RemoveHandler prn.PrintPage, AddressOf Me.PrintPageHandler

End Sub

Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)

args.Graphics.DrawString("Das ist ein Test 1234567890", New Font("Arial", 32, FontStyle.Bold), Brushes.Black, 150, 125)

End Sub
End Class[/highlight]

Jetzt druckt er jedoch nur auf dem Standardfach.
Wie kann ich die Fächer ansprechen über die Auswahl in der Kombobox.

Grüße
Marco

[hwoess]

laut MSDN kann man sich über PrinterSettings.PaperSources die verfügbaren Laden eines Druckers holen und diese dann mittels PageSettings.PaperSource verwenden. Habe es aber selber bisher noch nicht ausprobiert. Weitere nützliche Druckereigenschaften findet man hier.

bye,
Helmut

[Busfahrer]

Nur wie hol ich mir diese Fächer ?

Ich sitz ratlos vor diesem Code :/

Gruß
Marco

[hwoess]

MSDN ist doch voll mit Beispielen:

' Add list of paper sources found on the printer to the combo box.
' The DisplayMember property is used to identify the property that will provide the display string.
comboPaperSource.DisplayMember = "SourceName"

Dim pkSource As PaperSource
For i = 0 to printDoc.PrinterSettings.PaperSources.Count - 1
    pkSource = printDoc.PrinterSettings.PaperSources.Item(i)
    comboPaperSource.Items.Add(pkSource)
Next

...

Private Sub MyButtonPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyButtonPrint.Click

...

    ' Set the paper source based upon the selection in the combo box.
    If comboPaperSource.SelectedIndex <> -1 Then
        printDoc.DefaultPageSettings.PaperSource = _
        printDoc.PrinterSettings.PaperSources.Item(comboPaperSource.SelectedIndex)
    End If

...

    ' Print the document with the specified source.
    printDoc.Print()

End Sub

bye,
Helmut

[Busfahrer]

Vielen Dank !

Bin erst seit 5Tagen mit VB unterwegs

[hwoess]

Mache selber gar nichts mit VB, habe nie was mit VB gemacht und werde auch in Zukunft nichts damit machen - aber ich benutze MSDN seit Jahren! Probiere mal links oben den Link zu Visual Basic ...

bye,
Helmut