Drucken und Seitenränder

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von icemanns.

    Drucken und Seitenränder

    Hallo zusammen

    nach langer erfolgloser Suche habe ich nun folgende Frage:

    Ich möchte mit PrintForm drucken. Ich habe bereits auf Landscape eingestellt. Wie kann ich denn die Seitenränder beim Drucken einstellen (Sonst passt nicht alles auf die Seite...)

    Vielen Dank für Eure Hilfe!

    Sie können die Seitenränder mithilfe des mit übergebenen PrintPageEventArgs-Objekt ermitteln.

    VB.NET-Quellcode

    1. Private Sub MyDoc_PrintPage(ByVal sender As Object, _
    2. ByVal e As PrintPageEventArgs)
    4. ' Font festlegen.
    5. Dim MyFont As New Font("Arial", 30)
    7. ' Position auf der Seite bestimmen.
    8. ' In diesem Fall lesen wir dazu die Randeinstellungen
    9. ' (selbst wenn es nichts gibt, was Ihren Code davon abhalten könnte,
    10. ' die Seitengrenzen zu "übertreten".)
    11. Dim x As Single = e.MarginBounds.Left
    12. Dim y As Single = e.MarginBounds.Top
    14. ' Höhe der Linie bestimmen (basierend auf dem verwendeten Font).
    15. Dim LineHeight As Single = MyFont.GetHeight(e.Graphics)
    17. ' Fünf Textzeilen ausgeben.
    18. Dim i As Integer
    19. For i = 0 To 4
    20. ' Text mit schwarzem Brush-Objekt zeichnen,
    21. ' und dabei die Koordinaten verwenden, die zuvor bestimmt wurden.
    22. e.Graphics.DrawString("This is line " & i.ToString(), MyFont, Brushes.Black, x, y)
    24. ' Die Zeilenhöhe bei der nächsten vertikal Position berücksichtigen.
    25. y += LineHeight
    26. Next
    27. y += LineHeight
    29. ' Ein Bild malen.
    30. e.Graphics.DrawImage(Image.FromFile(Application.StartupPath & "\test.bmp"), x, y)
    32. End Sub


    Quelle: MSDN
    Evtl hilft dir das ja weiter..habe ich gerade auf die schnelle per Google gefunden.

Facebook
Telefonspende