Hallo liebe Runde,
ich bin neu in VB und versuche aktuell mein altes Programm für mein Laden noch mal wieder neu zu schreiben. Damals war es eine reine WebApplication mit HTML, PHP, MYSQL und CSS umgesetzt, nun wollte ich es als Desktop Variante umsetzen und habe mir dazu VBNet rausgesucht. Nun habe ich ein Fehler, wo ich zwar ein paar Lösungen gefunden habe, die aber nicht wirklich klappen. Und zwar habe ich folgenden Code bis jetzt:
Ich habe in dem Button " BTNAufBes_Click" alle meine TextBox Felder genommen und sie in Variablen reingepackt. Nun wollte ich diese Variablen in meiner "Private Sub PrintDocument1" in die Druckvorschau mit einarbeiten, so das der Drucker dann ein Vertragsformular mit allen angegebenen Daten druckt. Leider komme ich zum Teufel komm raus nicht an die Variablen ran. Vielleicht ist es für euch eine reine Lapalje, aber es wäre schön wenn mir einer das Problem erklären könnte so das ich es verstehe und mit eine Lösung bieten könnte.
Liebe Grüße
ich bin neu in VB und versuche aktuell mein altes Programm für mein Laden noch mal wieder neu zu schreiben. Damals war es eine reine WebApplication mit HTML, PHP, MYSQL und CSS umgesetzt, nun wollte ich es als Desktop Variante umsetzen und habe mir dazu VBNet rausgesucht. Nun habe ich ein Fehler, wo ich zwar ein paar Lösungen gefunden habe, die aber nicht wirklich klappen. Und zwar habe ich folgenden Code bis jetzt:
VB.NET-Quellcode
- Public Class Form1
- Private Sub BTNClose_Click(sender As Object, e As EventArgs) Handles BTNClose.Click
- Application.Exit()
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- NAPanel.Enabled = True
- NAPanel.Visible = True
- End Sub
- Public Sub BTNAufBes_Click(sender As Object, e As EventArgs) Handles BTNAufBes.Click
- Dim RegVorname As String = NAVorname.Text
- Dim RegNachname As String = NANachname.Text
- Dim RegAusweiss As String = NAAusweissnummer.Text
- Dim RegWohnhaft As String = NAWohnort.Text
- Dim RegGeraet As String = NAGeraet.Text
- Dim RegIMEI As String = NaIMEI.Text
- Dim RegModel As String = NAModel.Text
- Dim RegSchaden As String = NASchaden.Text
- Dim RegPreis As String = NAPreis.Text
- Dim RegTermin As String = NATermin.Text
- Dim RegTel As String = NATelefon.Text
- Using dlg As New PrintPreviewDialog
- Me.PrintDocument1.DocumentName = "Test" ' Arbeitstitel
- dlg.Document = Me.PrintDocument1
- dlg.ShowDialog()
- End Using
- End Sub
- Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- e.Graphics.DrawString("Reperaturvetrag", New Font("arial", 30), Brushes.Black, New Point(30, 30))
- e.Graphics.DrawString(RegTel, New Font("arial", 10), Brushes.Black, New Point(40, 40))
- End Sub
- End Class
Ich habe in dem Button " BTNAufBes_Click" alle meine TextBox Felder genommen und sie in Variablen reingepackt. Nun wollte ich diese Variablen in meiner "Private Sub PrintDocument1" in die Druckvorschau mit einarbeiten, so das der Drucker dann ein Vertragsformular mit allen angegebenen Daten druckt. Leider komme ich zum Teufel komm raus nicht an die Variablen ran. Vielleicht ist es für euch eine reine Lapalje, aber es wäre schön wenn mir einer das Problem erklären könnte so das ich es verstehe und mit eine Lösung bieten könnte.
Liebe Grüße