Hallo und "Frohe Weihnachten".
Bin nach langer Zeit mal wieder in diesem Forum.
Ich möchte gerne einen Drucker auswählen und eine Form drucken.
Das Drucken mit dem Standartdrucker funzt.
Ich komme auch nach der Druckerauswahl bis zur Druckvorschau und der Druck wird auch eingeleitet.
Aber es kommt dann die Fehlermeldung: Die Einstellungen für den Zugriff auf den Drucker sind ungültig.
Der jetzige Quellcode:
Ins Formload:
Irgendwo ist noch ein Fehler.
Für jede Hilfe, mein Dank im voraus.
Gruß Skaletti!
Bin nach langer Zeit mal wieder in diesem Forum.
Ich möchte gerne einen Drucker auswählen und eine Form drucken.
Das Drucken mit dem Standartdrucker funzt.
Ich komme auch nach der Druckerauswahl bis zur Druckvorschau und der Druck wird auch eingeleitet.
Aber es kommt dann die Fehlermeldung: Die Einstellungen für den Zugriff auf den Drucker sind ungültig.
Der jetzige Quellcode:
Quellcode
- Option Explicit On
- Option Strict Off
- Imports System.IO
- Imports System.Drawing.Printing
- Private WithEvents PrintDoc As New System.Drawing.Printing.PrintDocument
- Private PrintPrev As New System.Windows.Forms.PrintPreviewDialog
- Private Sub cmdDrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDrucken.Click
- PrintPrev.Document = PrintDoc
- PrintPrev.WindowState = FormWindowState.Maximized
- PrintPrev.ShowDialog()
- For i = 1 To 1
- PrintPrev.Document.DefaultPageSettings.PrinterSettings.PrinterName = cboDruckerAuswahl.Text
- PrintPrev.Document.Print()
- Next
- NummerTextBox.Text = CStr(CDbl(NummerTextBox.Text) + 1)
- End Sub
Ins Formload:
Quellcode
- Private Sub Quittung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Quittung_VereineTableAdapter.Fill(Me.PokalDataSet.Quittung_Vereine)
- For Each Printername As String In PrinterSettings.InstalledPrinters
- cboDruckerAuswahl.Items.Add(Printername)
- Next
- cboDruckerAuswahl.Text = PrintPrev.Document.PrinterSettings.PrinterName
- End Sub
Irgendwo ist noch ein Fehler.
Für jede Hilfe, mein Dank im voraus.
Gruß Skaletti!