Hallo an alle,
wie bekomme ich es hin, dass die PrintForm1.Print() nicht ausgeführt wird, bzw. ich den Druckvorgang stoppe.
PrintForm1.Print() = False klappt nicht.
Vor dem Drucken soll überorüft werden, das alle notwendigen Eingaben getätigt wurden. Ich hänge Euch mal den Code dazu:
Ich weiß, Formen auszudrucken ist Blödsinn, über den Printdialog habe ich es auch schon versucht, wo kann bitte der Fehler liegen. Einwenig geschummelt, eigentlich soll festgestellt werden, ob die Boxen entweder mit Zahlen oder Buchstaben gefüllt sind, aber ich denke, so geht es auch...
Ich bin mehr der Mensch - Learning by doing... Vielleicht ist mein Code mal wieder völlig daneben, aber für Hilfe wäre ich dankbar.
Grüße aus Wentorf
Friedhelm
P.S.: Löffelmann - die Variablen habe ich durch. Schon lustig, wie der erste Rechner über Berechnungen der Konsole aussah.
wie bekomme ich es hin, dass die PrintForm1.Print() nicht ausgeführt wird, bzw. ich den Druckvorgang stoppe.
PrintForm1.Print() = False klappt nicht.
Vor dem Drucken soll überorüft werden, das alle notwendigen Eingaben getätigt wurden. Ich hänge Euch mal den Code dazu:
VB.NET-Quellcode
- Private Sub btn_drucken_Click(sender As Object, e As EventArgs) Handles btn_drucken.Click
- If txt_nr.Text = "" Then txt_nr.BackColor = Color.DarkBlue
- If comb_emmi.Text = "" Then comb_emmi.BackColor = Color.DarkBlue
- If cmb_eintragen.Text = "" Then cmb_eintragen.BackColor = Color.DarkBlue
- If txt_netto.Text = "" Then txt_netto.BackColor = Color.DarkBlue
- If txt_gesamt.Text = "" Then txt_gesamt.BackColor = Color.DarkBlue
- If comb_von.Text = "" Then comb_von.BackColor = Color.DarkBlue
- Beep()
- Select Case MessageBox.Show(" Bitte füllen Sie alle blau markierten Felder aus", "Quittungsblock Fehler", MessageBoxButtons.OK, MessageBoxIcon.Stop)
- Case Windows.Forms.DialogResult.OK
- If Windows.Forms.DialogResult.OK Then
- 'PrintForm1.PrintAction = False
- End If
- End Select
- If DialogResult.OK Then
- txt_summe.BackColor = Color.White
- txt_netto.BackColor = Color.White
- txt_nr.BackColor = Color.White
- cmb_eintragen.BackColor = Color.White
- comb_emmi.BackColor = Color.White
- comb_von.BackColor = Color.White
- txt_gesamt.BackColor = Color.White
- End If
- If txt_summe.BackColor = Color.White And
- txt_netto.BackColor = Color.White And
- txt_nr.BackColor = Color.White And
- cmb_eintragen.BackColor = Color.White And
- comb_emmi.BackColor = Color.White And
- comb_von.BackColor = Color.White And
- txt_gesamt.BackColor = Color.White Then
- 'PrintForm1.Print()
- End If
- End Sub
Ich weiß, Formen auszudrucken ist Blödsinn, über den Printdialog habe ich es auch schon versucht, wo kann bitte der Fehler liegen. Einwenig geschummelt, eigentlich soll festgestellt werden, ob die Boxen entweder mit Zahlen oder Buchstaben gefüllt sind, aber ich denke, so geht es auch...
Ich bin mehr der Mensch - Learning by doing... Vielleicht ist mein Code mal wieder völlig daneben, aber für Hilfe wäre ich dankbar.
Grüße aus Wentorf
Friedhelm
P.S.: Löffelmann - die Variablen habe ich durch. Schon lustig, wie der erste Rechner über Berechnungen der Konsole aussah.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Viddi“ ()