Hallo,
ich hab ein bisschen mit den druckfunktionen rumgespielt.
Ich habe eine Druckvorschau und die zeigt Daten aus einer Datenbank an.
es werden immer nur ein paar Datensätze angezeigt(Verkaufte Artikel zu einem Kassenbon)
das geht auch aber nur einmal.
wie kann ich denn die Druckvorschau neu einladen, bzw. die nächsten Daten in die Druckvorschau laden?
ich hab ein bisschen mit den druckfunktionen rumgespielt.
Ich habe eine Druckvorschau und die zeigt Daten aus einer Datenbank an.
es werden immer nur ein paar Datensätze angezeigt(Verkaufte Artikel zu einem Kassenbon)
das geht auch aber nur einmal.
wie kann ich denn die Druckvorschau neu einladen, bzw. die nächsten Daten in die Druckvorschau laden?
VB.NET-Quellcode
- Private Sub DruckVorschau()
- Dim PrintDoc As New PrintDocument
- AddHandler PrintDoc.PrintPage, AddressOf Me.Printtext
- PrintDoc.PrinterSettings.PrinterName = "Microsoft XPS Document Writer"
- PrintPreviewDialog1.Document = PrintDoc
- PrintPreviewControl1.Document = PrintPreviewDialog1.Document
- PrintPreviewControl1.AutoZoom = True
- End Sub
- Private Sub Printtext(ByVal sender As Object, ByVal e As PrintPageEventArgs)
- Dim ArtikelString As String = vbCrLf & vbCrLf
- e.Graphics.DrawString(Form1.FirmenName, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 1, 10)
- e.Graphics.DrawString(Form1.Strasse, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 1, 30)
- e.Graphics.DrawString(Form1.PLZ, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 1, 50)
- e.Graphics.DrawString(Form1.Stadt, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 1, 70)
- e.Graphics.DrawString(Form1.Steuernummer & vbCrLf, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 1, 90)
- BonDatenEinlesen(MenueBonNummer, Form1.MyBuchdatum)
- For i = 0 To ArtikelArray.Count - 1
- ArtikelString += ArtikelArray(i)
- ArtikelString += vbCrLf
- ArtikelString += vbCrLf
- Next
- e.Graphics.DrawString(ArtikelString, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 1, 110)
- End Sub