Hallo zusammen,
ich habe mich mal ans Drucken gewagt und komme jetzt nicht weiter.
Die Vorschau sieht so aus wie ich es erwarte. aber wenn ich dann das ergebnis ausdrucke spuckt der Drucke immer nur 1 lehre Seite aus.
Um das naheliegenenste vorweg zu nehemen der Toner/tinte ist nicht alle. Der Ausdruck auf eine PDF drucker erhält das selbe ergebnis.
Hier mein Code.
Und hier meine Vorschau
ich habe mich mal ans Drucken gewagt und komme jetzt nicht weiter.
Die Vorschau sieht so aus wie ich es erwarte. aber wenn ich dann das ergebnis ausdrucke spuckt der Drucke immer nur 1 lehre Seite aus.
Um das naheliegenenste vorweg zu nehemen der Toner/tinte ist nicht alle. Der Ausdruck auf eine PDF drucker erhält das selbe ergebnis.
Hier mein Code.
VB.NET-Quellcode
- Private Sub cmdDruck_Click(sender As Object, e As EventArgs) Handles cmdDruck.Click
- intSeite = 1
- intEtiket = 1
- pdocEtiketten.DefaultPageSettings.PaperSize = New PaperSize("DinA4", 830, 1170)
- pdocEtiketten.DefaultPageSettings.Landscape = False
- Using dlg = New PrintDialog
- dlg.Document = Me.pdocEtiketten
- If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
- Return
- End If
- End Using
- Using dlg = New PrintPreviewDialog
- dlg.Document = Me.pdocEtiketten
- dlg.WindowState = FormWindowState.Maximized
- If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
- Return
- End If
- End Using
- End Sub
- Private Sub pdocEtiketten_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles pdocEtiketten.PrintPage
- Dim x As Integer = 35
- Dim y As Integer = 2
- For i As Integer = 1 To 8
- x = 35
- For j As Integer = 1 To 3
- Dim bol As Boolean = False
- For z As Integer = 0 To lEtikettDrucken.Count - 1
- If lEtikettDrucken(z)._Seite = intSeite Then
- If lEtikettDrucken(z)._Etiket = intEtiket Then
- If lEtikettDrucken(z)._Artikelnummer.Length > 4 Then
- pibArtikel.BackgroundImage = Code128(lEtikettDrucken(z)._Artikelnummer, "A")
- pibCharge.BackgroundImage = Code128(lEtikettDrucken(z)._Charge, "A")
- e.Graphics.DrawImage(pibArtikel.BackgroundImage, x, y, w, h)
- e.Graphics.DrawString(lEtikettDrucken(z)._ArtikelName, New Font("Calibre", 8, FontStyle.Regular), New SolidBrush(Color.Black), x, y + 40)
- e.Graphics.DrawImage(pibCharge.BackgroundImage, x, y + 60, w2, h)
- End If
- bol = True
- Exit For
- End If
- End If
- Next
- If bol Then
- x = x + w + 165
- intEtiket = intEtiket + 1
- End If
- Next
- y = y + h + 106
- If intEtiket = 25 Then
- intEtiket = 1
- intSeite = intSeite + 1
- e.HasMorePages = True
- End If
- Next
- End Sub
Und hier meine Vorschau