Hallo Gemeinde,
drucken scheint für mich ein Buch mit 7 Siegeln zu sein.
Ich
versuche die Seitengröße zu definieren und die Ausrichtung anzupassen.
Weder dies noch die Auswahl des Druckers wird berücksichtigt, der Druck
wird sogar durchgeführt wenn im Druckfenster auf abbrechen geklickt
wird.
Irgendwie mache ich dabei einen grundsätzlichen Denkfehler. Wer kann mich auf den richtigen Weg bringen?
Der von mir verwendete Code:
drucken scheint für mich ein Buch mit 7 Siegeln zu sein.
Ich
versuche die Seitengröße zu definieren und die Ausrichtung anzupassen.
Weder dies noch die Auswahl des Druckers wird berücksichtigt, der Druck
wird sogar durchgeführt wenn im Druckfenster auf abbrechen geklickt
wird.
Irgendwie mache ich dabei einen grundsätzlichen Denkfehler. Wer kann mich auf den richtigen Weg bringen?
Der von mir verwendete Code:
VB.NET-Quellcode
- Imports System.Drawing.Printing
- Module Drucken
- Private m_pd As New Printing.PrintDocument()
- Private m_intCurrentPage As Integer
- Private Sub m_pd_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
- Dim pkCustomSize1 As New PaperSize("Custom Paper Size", 2540, 2540)
- e.Graphics.DrawString(prj_name, New Font("Arial", 18), New
- SolidBrush(Color.Black), e.MarginBounds.Left, e.MarginBounds.Top)
- For Each textbox As Control In ProjectPlan.TimePanel.Controls
- e.Graphics.DrawRectangle(Pens.Black, e.MarginBounds.Left +
- textbox.Left + 100, e.MarginBounds.Top + 100 + textbox.Top,
- textbox.Width, textbox.Height)
- e.Graphics.DrawString(textbox.Text, New Font("Arial", 9), New
- SolidBrush(Color.Black), e.MarginBounds.Left + textbox.Left + 100,
- e.MarginBounds.Top + 100 + textbox.Top)
- Next
- End Sub
- Public Sub druck_aufrufen()
- m_pd.DocumentName = "Druck_von" & prj_name
- AddHandler m_pd.PrintPage, AddressOf m_pd_PrintPage
- m_intCurrentPage = 0
- m_pd.Print()
- End Sub
- Private Sub m_pd_PageSettings(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
- e.PageSettings.Landscape = True
- e.PageSettings.PaperSize.PaperName = "A2"
- End Sub
- End Module