Vielen Dank. Es funktioniert jetzt:
Ich habe einige Formulare selbst erstellt, statt Standartformulare zu verwenden, da ich hier die Größe der Schaltflächen und Texte selbst anpassen möchte. Das Programm soll auch für sehbehinderte optimiert werden, die größere Beschriftungen benötigen.
VB.NET-Quellcode
- Try
- Using Druckserver As New LocalPrintServer()
- Dim myPrintQueues As New PrintQueueCollection
- Dim PrQu As PrintQueue = Druckserver.GetPrintQueue(Brailledrucker)
- If Not String.IsNullOrEmpty(Brailledrucker) Then
- Using Druckauftraege As PrintJobInfoCollection = Druckserver.GetPrintQueue(Brailledrucker).GetPrintJobInfoCollection
- If Druckauftraege.Count() > 0 Then
- FrageFormular.Text = My.Resources.Frage
- FrageFormular.FrageLabel.Text = String.Format(My.Resources.Druckauftraege_vorhanden_loeschen, Brailledrucker)
- FrageFormular.ShowDialog()
- If FrageFormular.Text = "Ja" Then
- LocalPrintServer.DeletePrintQueue(Brailledrucker)
- End If
- FrageFormular.Close()
- End If
- End Using
- End If
- End Using
- Brailleprinter.SendToPrinter(Brailledrucker, Inhalt, Brailledrucker)
- Catch Fehler As Exception
- InfoFormular.Text = My.Resources.Hinweis
- InfoFormular.InfoLabel.Text = My.Resources.Drucker_nicht_vorhanden_ausgeschaltet
- InfoFormular.ShowDialog()
- End Try
Ich habe einige Formulare selbst erstellt, statt Standartformulare zu verwenden, da ich hier die Größe der Schaltflächen und Texte selbst anpassen möchte. Das Programm soll auch für sehbehinderte optimiert werden, die größere Beschriftungen benötigen.