vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Formular erstellen bzw. drucken 
Autor: Erichbru
Datum: 28.04.23 18:20

Guten Abend zusammen,

habe jetzt mal herum experementiert und diesen Code dazu geschrieben.

  Private Sub PD_Strombeleg_PrintPage(ByVal sender As Object, ByVal e As _
    PrintPageEventArgs) Handles PD_Strombeleg.PrintPage
        Dim g As Graphics = e.Graphics
 
        'Beg: Druck-Qualität
        g.CompositingQuality = _
          System.Drawing.Drawing2D.CompositingQuality.HighSpeed
        g.InterpolationMode = _
        System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
        g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
        g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
        g.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
        g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
 
        g.PageUnit = GraphicsUnit.Display
        'End: Druck-Qualität
 
        'Beg: Druckbereich
        Dim Druckbereich = g.VisibleClipBounds
        Dim margin = Me.PD_Strombeleg.DefaultPageSettings.Margins
        Druckbereich.Offset(margin.Left, margin.Top) ' obere linke Ecke
        Druckbereich.Width -= (margin.Left + margin.Right) ' neue Breite
        Druckbereich.Height -= (margin.Top + margin.Bottom) ' neue Höhe
        'End: Druckbereich
 
        DruckSeite += 1
 
        'Beg: Seite 1 - Hauptformular
        If DruckSeite = 1 Then
            'Titel & Text:
            Titel_Text_Block(g, Druckbereich)
 
            If HBDatenbankDS.tblStrom.Rows.Count > 0 Then
 
                e.HasMorePages = True : g.Dispose() : Return
            Else
                e.HasMorePages = False : g.Dispose() : Return
            End If
        End If
        'End: Seite 1 - Hauptformular
 
 
 
        e.Graphics.Dispose()
        'p1.Dispose()
    End Sub
aufgrund das der Text zu groß wird kann ich nur einen kleinen Teil vom Code senden. Gerne sende ich das als PN wenn sich das jemand anschauen möchte

Mein Problem ist der Seiten wechsel, also wenn auf eine weitere Seite weitergedruckt werden muss?

das aktuelle Ergebnis sieht dann so aus! wer zeigt mir den Weg wie ich eine weitere Seite generiere wenn mehr benötigt werden.
aktuell passen 7 Bild Zeilen aufs A4 Hochformat. Ab 8 muss eine neue Seite her wo setze ich da an?



Beitrag wurde zuletzt am 28.04.23 um 18:27:31 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Formular erstellen bzw. drucken528Erichbru25.04.23 18:42
Re: Formular erstellen bzw. drucken191Erichbru28.04.23 18:20
Re: Formular erstellen bzw. drucken203Erichbru28.04.23 18:34
Re: Formular erstellen bzw. drucken223Erichbru30.04.23 12:24
Re: Formular erstellen bzw. drucken167Erichbru07.05.23 12:11
Re: Formular erstellen bzw. drucken204Erichbru22.05.23 19:52

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel