Drucken in VB

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Coldfire.

    Der Parameter Eventargs hat nicht die Graphics-Eigenschaft...
    Da musst du ev. ein PaintEvent mit PaintEventArgs dazu verwenden...
    learn.microsoft.com/de-de/dotn…s?view=windowsdesktop-8.0
    Woher hast du diesen Code?

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VB1963“ ()

    @mozartw Passe bitte den Titel dieses Deines Threads an.
    Gugst Du hier:
    Drucken mehrseitiger Dokumente
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    zu 1963:


    zu RodFromGermany:
    das sehe ich mir gern an Danke!

    zu Thunderbolt:
    Stimmt! Habe es geändert.

    Habe bisher mit Grafic nichts gemacht und das Drucken über die "Grücke" Excel gemacht.
    Jetzt geht es um ein Formular in Thai, was ich eigentlich als Hintergrund nehmen
    und dann durch Variablen ausfüllen wollte.
    Stehe noch ganz am Anfang. Für Tips bzw. Beispiele (Tutorial) wäre ich euch sehr dankbar.

    mozartw schrieb:

    Stehe noch ganz am Anfang.
    Stelle konkrete Fragen zu einem konkreten Problem und Du bekommst konkrete Hilfe.
    Beispiele und Tutorials musst Du schon selbst finden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,
    ich stehe nun nicht mehr am Anfang und habe eine konkrete Frage:
    Das Bild(Formular) ist 939x658 Pic. Wie erreiche ich, dass das Bild genau in dieser Größe im "PrintPreviewControl11"
    dargestellt wird? Also nicht so, wie auf dem Screenshot.
    Ich befürchte, wenn ich die anderen Koordinaten für die Daten setze wird es beim Drucken sonst nicht passen.
    (Der Code ist noch nicht optimiert)
    Vielen Dank


    VB.NET-Quellcode

    1. Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    3. 'Vorschaufenster
    4. PrintPreviewControl1.AutoZoom = True
    5. PrintPreviewControl1.Document = PrintDocument1
    7. Formular_h = Image.FromFile("E:\VS_Projekte\StTH\formular_S_1.png").Height
    8. Formular_b = Image.FromFile("E:\VS_Projekte\StTH\formular_S_1.png").Width
    9. S_Formular_h = Formular_h.ToString
    10. S_Formular_b = Formular_b.ToString
    12. TB_Höhe.Text = S_Formular_h
    13. TB_Breite.Text = S_Formular_b
    15. e.Graphics.DrawImage(Formular, 10, 10, Formular_b, Formular_h) ' Formular
    17. y_Achse = 10
    18. x_Achse = 300
    19. e.Graphics.DrawString(TB_Z_1.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, y_Achse, x_Achse) ' Steuerjahr
    20. e.Graphics.DrawString(TB_Z_2.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, y_Achse, x_Achse + 20)
    21. e.Graphics.DrawString(TB_Z_3.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, y_Achse, x_Achse + 40)
    23. End Sub


    Code-Tags eingefügt. ~Thunderbolt
    Bilder

    • Fehler.png

      218,69 kB, 922×837, 26 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    @mozartw
    1. Option Strict On gugst Du Visual Studio – Empfohlene Einstellungen
    2. Hole Dir die Größe des Bildes mit einem einzigen Aufruf außerhalb der PrintDocument1_PrintPage()-Routine.
    3. den VB.NET-Code-Tag, um Deinen Code als solchen zu formatieren.
    4. Was funktioniert nicht mit dem Code

    VB.NET-Quellcode

    1. e.Graphics.DrawImage(Formular, 10, 10, Formular_b, Formular_h) ' Formular
    ?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!