VB.Net PrintPage Seiten Überlappen

GreenLiv · 31. Mai 2016, 22:20

Moin!

Ich habe ein Problem beim Drucken mit VB.Net
Mein Code sieht gekürzt so aus:

Quellcode

Public aktpage as integer
Public printdoc As New PrintDocument
Public Class Form_Drucken
Private Sub PB_Drucken_Click(sender As Object, e As EventArgs) Handles PB_Drucken.Click
AddHandler printdoc.PrintPage, AddressOf PDPrintPage
aktpage = 0
printdoc.Print()
End Sub
Private Sub PDPrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
(...)
If aktpage = 0 Then
Call Inhalt(...)
aktpage = 1
e.HasMorePages = True
ElseIf m_aktpage = 1 Then
Call anderenInhalt(...)
aktpage = 0
e.HasMorePages = False
End If
End Sub

Beim ersten Klick auf Drucken (PB_Drucken) läuft alles wunderbar, ich bekomme zwei Seiten ausgedruckt.

Beim zweiten Klick auf Drucken werden beide Seiten übereinander gedruckt.

Ich habe auch schon alle mir einfallenden Varianten benutzt, um aktpage zu erhöhen, abzufragen und auf null zu setzten.
Setzte ich Haltepunkte an den entsprechenden Stellen, scheint auch alles zu funktionieren. Der Ausdruck ist trotzdem ab dem zweiten Klick übereinander.
Wenn ich mein Form_Drucken schließe und neu öffne funktioniert es wieder für einen Klick.

Ich freue mich auf hilfreiche Beiträge

RodFromGermany · 1. Juni 2016, 06:46

@GreenLiv Willkommen im Forum. :thumbup:

Du musst den Ausdruck jedes Mal neu initialisieren. Dafür gibt es das PrintDocument.BeginPrint-Event.
Gugst Du hier.

GreenLiv · 9. Juni 2016, 12:36

Moin!

Danke schonmal für die Antwort, ich kam leider erst jetzt zum ausprobieren.

Der Code sieht jetzt folgendermaßen aus:

Quellcode

Private Sub PB_Drucken_Click(sender As Object, e As EventArgs) Handles PB_Drucken.Click
printdoc.DocumentName = "NeuesDokument"
Dim lMargins As Margins = New Margins(200, 190, 190, 200)
printdoc.DefaultPageSettings.Margins = lMargins
AddHandler printdoc.BeginPrint, AddressOf printdoc_BeginPrint
AddHandler printdoc.PrintPage, AddressOf PDPrintPage
printdoc.Print()
End Sub
Private Sub printdoc_BeginPrint(sender As System.Object, e As System.Drawing.Printing.PrintEventArgs)
aktpage = 0
End Sub
Private Sub PDPrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
If aktpage = 0 Then
- Inhalt Seite 1 -
aktpage = 1
e.HasMorePages = True
ElseIf aktpage = 1 Then
- Inhalt Seite 2 -
aktpage = 2
e.HasMorePages = True
ElseIf aktpage = 2 Then
- Inhalt Seite 3 -
e.HasMorePages = False
End If
End Sub

Leider das gleiche Problem.
Beim ersten Durchlauf druckt er alle 3 Seiten, beim zweiten druckt er Seite 1 und 2 übereinander, und beim dritten Durchlauf und allen folgenden alle drei Seiten übereinander.
aktpage startet jedesmal brav bei null.
Mit Haltepunkten in jeder if Abfrage ist mir aufgefallen, dass er bei dem zweiten Ausdruck die Druckroutine nach e.HasMorePages = False nicht beendet, sondern noch einmal aufruft, allerdings ohne in die If-Abfrage einzuspringen, obwohl aktpage ja immernoch 2 ist. Beim dritten Durchlauf passiert das nicht mehr.
Ich hab auch schon das e.HasMorePages = aktpage < 3 (mit aktpage = 3 in der letzten If Abfrage) an Anfang und Ende gestellt, das hat auch nichts geändert.

RodFromGermany · 9. Juni 2016, 13:02

@GreenLiv Ich kann das leider nicht nachvollziehen.
Kannst Du mal deinen Code posten, Du musst ja lediglich die Seitennummer ausgeben.

GreenLiv · 9. Juni 2016, 13:25

Code:

Spoiler anzeigen

Quellcode

Imports System.Drawing.Printing
Public Class Form6
Public printdoc As New PrintDocument
Public m_aktpage As Integer
Private Sub LB_Drucker_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LB_Drucker.SelectedIndexChanged
' Der Drucker für das aktuell zu druckende Dokument
' (printDoc) wird auf den ausgewählten Drucker gesetzt
If LB_Drucker.SelectedIndex <> -1 Then
' im Combobox-Text steht der Name des Druckers
printdoc.PrinterSettings.PrinterName = LB_Drucker.Text
End If
End Sub
Private Sub PB_Drucken_Click(sender As Object, e As EventArgs) Handles PB_Drucken.Click
printdoc.DocumentName = "NeuesDokument"
Dim lMargins As Margins = New Margins(200, 190, 190, 200)
printdoc.DefaultPageSettings.Margins = lMargins
AddHandler printdoc.BeginPrint, AddressOf PDBeginPrint
AddHandler printdoc.PrintPage, AddressOf PDPrintPage
printdoc.Print()
End Sub
Private Sub PDBeginPrint(sender As System.Object, e As System.Drawing.Printing.PrintEventArgs) ' Handles printdoc.BeginPrint
m_aktpage = 0 ' Startindex initialisieren
End Sub
Private Sub PDPrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' Wird für jede Seite geloopt
Dim myBrush = New SolidBrush(Color.Black)
Dim myFontNorm As Font = New Font("Arial", 12)
Dim Höhe As Double = e.PageBounds.Height / 100 * 25.4
Dim Breite As Double = e.PageBounds.Width / 100 * 25.4
' Umstellen der Maßeinheit auf Millimeter
e.Graphics.PageUnit = GraphicsUnit.Millimeter
If m_aktpage = 0 Then
Call Kopfzeile(myBrush, myFontNorm, e, Höhe, Breite)
Call Title(myBrush, myFontNorm, e, Höhe, Breite)
Call TEZF(myBrush, myFontNorm, e, Höhe, Breite)
m_aktpage = 1
' e.HasMorePages = True
ElseIf m_aktpage = 1 Then
Call Kopfzeile(myBrush, myFontNorm, e, Höhe, Breite)
Call Title(myBrush, myFontNorm, e, Höhe, Breite)
Call Regenereignis(myBrush, myFontNorm, e, Höhe, Breite)
m_aktpage = 2
' e.HasMorePages = True
ElseIf m_aktpage = 2 Then
'e.HasMorePages = False
Call Kopfzeile(myBrush, myFontNorm, e, Höhe, Breite)
Call Title(myBrush, myFontNorm, e, Höhe, Breite)
Call Ergebnis(myBrush, myFontNorm, e, Höhe, Breite)
m_aktpage = 3
' e.HasMorePages = False
End If
e.HasMorePages = m_aktpage < 3
End Sub
Private Sub PB_vorschau_Click(sender As Object, e As EventArgs) Handles PB_vorschau.Click
printdoc.DocumentName = "ErstesDokument"
Dim lPP As PrintPreviewDialog
lPP = New PrintPreviewDialog()
lPP.Document = printdoc
' Seitenzähler auf Anfangswert!
m_aktpage = 0
' Das Dokument mit seinem Handler verbinden
AddHandler printdoc.PrintPage, AddressOf PDPrintPage
' Die Seiten des Druckbereichs festlegen
Dim lMargins As Margins = New Margins(200, 190, 190, 200)
printdoc.DefaultPageSettings.Margins = lMargins
With lPP
' Der Druckvorschau das Dokument zuweisen
.Document = printdoc
' Die Druckvorschau soll maximiert gezeigt werden
.WindowState = FormWindowState.Maximized
' Druckvorschau anzeigen
.ShowDialog(Me)
End With
lPP = Nothing
m_aktpage = 0
End Sub
Sub Kopfzeile(myBrush As SolidBrush, myFontNorm As Font, ByVal e As PrintPageEventArgs, Höhe As Double, Breite As Double)
Dim myDrawFormat As New StringFormat()
Dim links As String
If StrComp("", TB_Links.Text) <> 0 Then
links = TB_Links.Text
Else links = Nothing
End If
Dim Logoname As String
Dim Logopfad As String
If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.CurrentDirectory & "\Logos\" & LB_Logo.SelectedItem & ".jpg") = True Then
Logoname = LB_Logo.SelectedItem
Logopfad = My.Computer.FileSystem.CurrentDirectory & "\Logos\" & LB_Logo.SelectedItem & ".jpg"
Else
Logoname = Nothing
End If
Dim Mitte As String
If StrComp("", TB_Mitte.Text) <> 0 Then
Mitte = TB_Mitte.Text
Else Mitte = Nothing
End If
Dim Rechts As String
If StrComp("", TB_Rechts.Text) <> 0 And IsNothing(Logoname) = True Then
Rechts = TB_Rechts.Text
Else Rechts = Nothing
End If
' Linkes Feld einfügen
If links IsNot Nothing Then
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 8)
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 100 * 10
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 2.5
e.Graphics.DrawString(links, myFontNorm, myBrush, myX, myY, myDrawFormat)
End If
' Mittleres Feld einfügen
If Mitte IsNot Nothing Then
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 8)
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 100 * 50
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 2.5
e.Graphics.DrawString(Mitte, myFontNorm, myBrush, myX, myY, myDrawFormat)
End If
' Rechtes Feld einfügen
If Rechts IsNot Nothing Then
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 8)
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 100 * 90
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 2.5
e.Graphics.DrawString(Rechts, myFontNorm, myBrush, myX, myY, myDrawFormat)
End If
' Logo einfügen
If Logoname IsNot Nothing And Logopfad IsNot Nothing Then
Dim myimage As Image = Image.FromFile(Logopfad)
Dim NeueHöhe As Integer = Höhe / 100 * 7.5
Dim NeueBreite As Integer = Breite / 100 * 7.5
Dim Seitenverhältnis As Double
Seitenverhältnis = myimage.Height / myimage.Width
If NeueHöhe > NeueBreite * Seitenverhältnis Then
NeueBreite = NeueHöhe / Seitenverhältnis
Else
NeueHöhe = NeueBreite * Seitenverhältnis
End If
Dim myXlinks As Double = e.PageBounds.Left + Breite / 100 * 75
Dim myXrechts As Double = e.PageBounds.Left + Breite / 100 * 75 + NeueBreite
Dim myYoben As Double = e.PageBounds.Top + Höhe / 100 * 2.5
Dim myYunten As Double = e.PageBounds.Top + Höhe / 100 * 2.5 + NeueHöhe
' Create parallelogram for drawing image.
Dim ulCorner As New Point(myXlinks, myYoben)
Dim urCorner As New Point(myXrechts, myYoben)
Dim llCorner As New Point(myXlinks, myYunten)
Dim destPara As Point() = {ulCorner, urCorner, llCorner}
' Draw image to screen.
e.Graphics.DrawImage(myimage, destPara)
End If
End Sub
Sub Title(myBrush As SolidBrush, myFontNorm As Font, ByVal e As PrintPageEventArgs, Höhe As Double, Breite As Double)
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 12, FontStyle.Underline)
Dim myDrawFormat As New StringFormat()
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 2
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 10
e.Graphics.DrawString("Muldenversickerung gemäß DWA 138", myFontNorm, myBrush, myX, myY, myDrawFormat)
e.HasMorePages = False
End Sub
Sub TEZF(myBrush As SolidBrush, myFontNorm As Font, ByVal e As PrintPageEventArgs, Höhe As Double, Breite As Double)
Dim myDrawFormat As New StringFormat()
'Eingangsparameter eintragen
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 12)
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 2
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 15
e.Graphics.DrawString("Teileinzugsflächen", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Überschriften
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 10, FontStyle.Bold)
myDrawFormat.Alignment = StringAlignment.Near
Dim xbez As Double = e.PageBounds.Left + 25
Dim xarea As Double = e.PageBounds.Left + 25 + Breite / 100 * 15
Dim xphi As Double = e.PageBounds.Left + 25 + Breite / 100 * 30
Dim xared As Double = e.PageBounds.Left + 25 + Breite / 100 * 45
Dim xQ As Double = e.PageBounds.Left + 25 + Breite / 100 * 60
myY = e.PageBounds.Top + Höhe / 100 * 20
e.Graphics.DrawString("Bezeichnung", myFontNorm, myBrush, xbez, myY, myDrawFormat)
e.Graphics.DrawString("Einzugsfläche", myFontNorm, myBrush, xarea, myY, myDrawFormat)
e.Graphics.DrawString("Abflussbeiwert", myFontNorm, myBrush, xphi, myY, myDrawFormat)
e.Graphics.DrawString("undurchl. Fläche", myFontNorm, myBrush, xared, myY, myDrawFormat)
e.Graphics.DrawString("Abfluss", myFontNorm, myBrush, xQ, myY, myDrawFormat)
'mit Leben füllen
Dim counter As Integer = Form4.TXT_counter.Text - 1
myFontNorm = New Font("Arial", 10)
Dim absatz As Integer = Höhe / 100 * 2.5
For i = 0 To counter
myY = myY + 2 * absatz + (i + 1) * absatz
e.Graphics.DrawString(Form4.Controls("TB_Bezeichnung" & i).Text, myFontNorm, myBrush, xbez, myY, myDrawFormat)
e.Graphics.DrawString(Form4.Controls("TB_Area" & i).Text, myFontNorm, myBrush, xarea, myY, myDrawFormat)
e.Graphics.DrawString(Form4.Controls("TB_phi" & i).Text, myFontNorm, myBrush, xphi, myY, myDrawFormat)
e.Graphics.DrawString(Form4.Controls("TB_Ared" & i).Text, myFontNorm, myBrush, xared, myY, myDrawFormat)
e.Graphics.DrawString(Form4.Controls("TB_Ared" & i).Text, myFontNorm, myBrush, xQ, myY, myDrawFormat)
Next
Dim greyPen As New Pen(Color.Gray, 0.25)
Dim point1 As New Point(myX, myY)
Dim point2 As New Point(myX + Breite - 50, myY)
e.Graphics.DrawLine(greyPen, point1, point2)
End Sub
Sub Regenereignis(myBrush As SolidBrush, myFontNorm As Font, ByVal e As PrintPageEventArgs, Höhe As Double, Breite As Double)
Dim myDrawFormat As New StringFormat()
Dim Ort As String = Regenspende.TB_Ort.Text
Dim Jahre As Integer = Regenspende.TB_Jahre.Text
Dim Dauern As Integer = Regenspende.TB_Dauern.Text
'Untertitel einfügen
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 12)
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 2
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 15
e.Graphics.DrawString("Regenspende gem. KOSTRA für " & Ort, myFontNorm, myBrush, myX, myY, myDrawFormat)
myDrawFormat.Alignment = StringAlignment.Near
myFontNorm = New Font("Arial", 10)
myX = e.PageBounds.Left + Breite / 100 * 10
myY = e.PageBounds.Top + Höhe / 100 * 17.5
e.Graphics.DrawString("T [ a ], d [min ], R [ l / (s x ha) ]", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Jährlichkeiten einfügen
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 10)
myDrawFormat.Alignment = StringAlignment.Far
myY = e.PageBounds.Top + Höhe / 100 * 20
Dim minY As Double = myY
Dim maxX As Double
For i = 1 To Jahre
myX = e.PageBounds.Left + 25 + Breite / 10 * i
e.Graphics.DrawString(Regenspende.Controls("TXT_Jahr" & i).Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
If i = Jahre Then
maxX = myX
End If
Next
' Dauern einfügen
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 10)
myDrawFormat.Alignment = StringAlignment.Far
myX = e.PageBounds.Left + 25
Dim minX As Double = myX
Dim maxY As Double
For i = 1 To Dauern
myY = e.PageBounds.Top + Höhe / 100 * 20 + Höhe / 100 * 2.5 * i
e.Graphics.DrawString(Regenspende.Controls("TXT_Dauer" & i).Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
If i = Dauern Then
maxY = myY
End If
Next
' Tabelle zeichnen
minY = minY + Höhe / 100 * 2
maxY = maxY + Höhe / 100 * 2
minX = minX + Breite / 100 * 1
maxX = maxX + Breite / 100 * 1
Dim blackPen As New Pen(Color.Black, 0.5)
Dim greyPen As New Pen(Color.Gray, 0.25)
Dim point1 As New Point(minX, minY)
Dim point2 As New Point(minX, maxY)
Dim point3 As New Point(maxX, minY)
e.Graphics.DrawLine(blackPen, point1, point2)
e.Graphics.DrawLine(blackPen, point1, point3)
'Regenspenden einfügen
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 10)
myDrawFormat.Alignment = StringAlignment.Far
For j = 1 To Jahre
myX = e.PageBounds.Left + 25 + Breite / 10 * j
For d = 1 To Dauern
myY = e.PageBounds.Top + Höhe / 100 * 20 + Höhe / 100 * 2.5 * d
e.Graphics.DrawString(Regenspende.Controls("TB_" & d + (Dauern * (j - 1))).Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
If j = Jahre Then
Dim minpoint As New Point(minX, myY + Höhe / 100 * 2)
Dim maxpoint As New Point(maxX, myY + Höhe / 100 * 2)
e.Graphics.DrawLine(greyPen, minpoint, maxpoint)
End If
Next d
Next j
End Sub
Sub Ergebnis(myBrush As SolidBrush, myFontNorm As Font, ByVal e As PrintPageEventArgs, Höhe As Double, Breite As Double)
Dim myDrawFormat As New StringFormat()
'Eingangsparameter eintragen
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 12)
myDrawFormat.Alignment = StringAlignment.Center
Dim myX As Double = e.PageBounds.Left + Breite / 2
Dim myY As Double = e.PageBounds.Top + Höhe / 100 * 15
e.Graphics.DrawString("Nachweis der Muldenversickerung", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Eingangsparameter Hauptzeile
myBrush = New SolidBrush(Color.Black)
myFontNorm = New Font("Arial", 10, FontStyle.Bold)
myDrawFormat.Alignment = StringAlignment.Near
myY = e.PageBounds.Top + Höhe / 100 * 20
myX = e.PageBounds.Left + 25 '+ Breite / 10
e.Graphics.DrawString("Eingangsparameter:", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Eingangsparameter aufzählen
myFontNorm = New Font("Arial", 10)
Dim absatz As Integer = Höhe / 100 * 2.5
Dim Zeilensprung As Integer = Höhe / 100 * 1.25
myY = myY + absatz
e.Graphics.DrawString("undurchlässige Fläche: Au = " & Form_Mulde.TB_As.Text & " m²", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("untersuchte Wiederkehrzeit: T = " & Form_Mulde.LB_Jahr.SelectedItem & " Jahre", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("angenommene Durchlässigkeit: kf = " & Form_Mulde.TB_Kf.Text & " m / s", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
Dim greyPen As New Pen(Color.Gray, 0.25)
Dim point1 As New Point(myX, myY)
Dim point2 As New Point(myX + Breite - 50, myY)
e.Graphics.DrawLine(greyPen, point1, point2)
'Geometrie Hauptzeile:
myFontNorm = New Font("Arial", 10, FontStyle.Bold)
myY = myY + absatz
e.Graphics.DrawString("Muldengeometrie:", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Geometrie aufzählen
myFontNorm = New Font("Arial", 10)
myY = myY + absatz
e.Graphics.DrawString("Länge der Mulde: l = " & Form_Mulde.TB_l.Text & " m", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("Breite der Mulde: b = " & Form_Mulde.TB_m.Text & " m", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("mittlere Sickerfläche: As = " & Form_Mulde.TB_As.Text & " m", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("maximale Tiefe der Mulde: h = " & Form_Mulde.TB_h1.Text & " m", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
point1 = New Point(myX, myY)
point2 = New Point(myX + Breite - 50, myY)
e.Graphics.DrawLine(greyPen, point1, point2)
'Ergebnis Hauptzeile:
myFontNorm = New Font("Arial", 10, FontStyle.Bold)
myY = myY + absatz
e.Graphics.DrawString("Ergebnis:", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Ergebnis aufzählen
myFontNorm = New Font("Arial", 10)
myY = myY + absatz
e.Graphics.DrawString("maßgebende Regenspende:", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + Zeilensprung
e.Graphics.DrawString("d = " & Form_Mulde.TXT_Dauer.Text & " min", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + Zeilensprung
e.Graphics.DrawString("r = " & Form_Mulde.TXT_rdn.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("Erforderliches Volumen: Verf = " & Form_Mulde.TXT_vmax.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + Zeilensprung
e.Graphics.DrawString("Vorhandenes Volumen: Vvor = " & Form_Mulde.TXT_vorhV.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + Zeilensprung
e.Graphics.DrawString("folgende Volumenbilanz: Vdif = " & Form_Mulde.TXT_Dif.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
point1 = New Point(myX, myY)
point2 = New Point(myX + Breite - 50, myY)
e.Graphics.DrawLine(greyPen, point1, point2)
'Toleranz Hauptzeile:
myFontNorm = New Font("Arial", 10, FontStyle.Bold)
myY = myY + absatz
e.Graphics.DrawString("Toleranz der Regenspende:", myFontNorm, myBrush, myX, myY, myDrawFormat)
'Toleranz aufzählen
myFontNorm = New Font("Arial", 10)
myY = myY + absatz
e.Graphics.DrawString("untersuchte Wiederkehrzeit: T = " & Form_Mulde.TXT_Jahr.Text & " Jahre", myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + absatz
e.Graphics.DrawString("Toleranz nach KOSTRA :" & Form_Mulde.TXT_Abweichung.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + Zeilensprung
e.Graphics.DrawString("obere Abweichung: Verf,oben = " & Form_Mulde.TXT_Oben.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
myY = myY + Zeilensprung
e.Graphics.DrawString("untere Abweichung: Verf,unten = " & Form_Mulde.TXT_unten.Text, myFontNorm, myBrush, myX, myY, myDrawFormat)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles PB_Logo.Click
Dim path As String
Dim myname As String
Dim myStream As IO.Stream = Nothing
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.Filter = "Bilddatein|*.jpg"
openFileDialog1.Title = "Wählen Sie ein Logo als Bilddatei aus"
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
myStream = openFileDialog1.OpenFile()
path = DirectCast(myStream, System.IO.FileStream).Name
End If
myname = InputBox("Geben Sie eine Bezeichnung für das Logo ein!", "Logo Speichern", "", 600, 400)
If StrComp(myname, "") = 0 Then
Exit Sub
End If
Dim save As String = My.Computer.FileSystem.CurrentDirectory & "\Logos\" & myname & ".jpg"
System.IO.File.Copy(path, save)
LB_Logo.Items.Add(myname)
End Sub
Private Sub PB_Exit_Click(sender As Object, e As EventArgs) Handles PB_Exit.Click
Me.Close()
End Sub
Private Sub LB_Logo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LB_Logo.SelectedIndexChanged
If LB_Logo.SelectedItem = "ohne" Then
TB_Rechts.Enabled = True
TXT_Rechts.Enabled = True
Else
TB_Rechts.Enabled = False
TXT_Rechts.Enabled = False
End If
End Sub
End Class

RodFromGermany · 9. Juni 2016, 13:57

@GreenLiv Ich konnte es nachvollziehen.
Das passiert nur, wenn Du mit printdoc.Print() den Druck startest, das ist eigentlich nicht der Plan von Bill.
Du solltest den Druck aus dem PrintPreviewDialog heraus starten, da ist gesichert, dass das Dokument korrekt initialisiert wird.

VB.Net PrintPage Seiten Überlappen

VB.Net PrintPage Seiten Überlappen

Quellcode

Quellcode

Quellcode

Benutzer online 1

Ähnliche Themen

2 Benutzer haben hier geschrieben