vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Druck über mehrere Seiten..... 
Autor: Mctotti
Datum: 14.09.20 16:37

Hallo, hat ein bischen gedauert aber ich habe es hinbekommen, ich poste hier mal meinen Code damit ihr seht wie ich das gelöst habe. Es druckt jetzt eine oder mehrere Seiten, je nach Bedarf.So ist die Grundfunktion fertig. Das ist jetzt die Rohfassung, werde es noch ein bischen ausbauen und perfektionieren.
Vielen Dank für eure tolle Unterstützung und Anregungen

Wenn Bedarf entsteht poste ich später auch gerne die gesamte Druckgeschichte.

firstrow=0 ist als Integer deklariert
16 ist Zeilenanzahl die aufs Blatt passen ( Querformat )



        For i As Integer = firstRow To dt.Rows.Count - 1
 
            If i - firstRow < 16 Then
                e.Graphics.DrawString(dt.Rows(i)("vorname"), New Font("Times" & _
                  "New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse, _
                  x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("nachname"), New Font("Times" & _
                "New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + _
                100, x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("strasse"), New Font("Times" & _
                "New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + _
                230, x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("plz"), New Font("Times New" & _
                "Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 410, _
                x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("wohnort"), New Font("Times" & _
                "New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + _
                500, x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("telefon"), New Font("Times" & _
                "New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + _
                650, x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("mobil"), New Font("Times New" & _
                "Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 750, _
                x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("email"), New Font("Times New" & _
                "Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + 850, _
                x_achse, text_links)
                e.Graphics.DrawString(dt.Rows(i)("geburtstag"), New Font("Times" & _
                "New Roman", 10, FontStyle.Regular), Brushes.Black, y_achse + _
                1000, x_achse, text_links)
                x_achse = x_achse + 30      'abstand von der vorherigen zeile
 
            Else
                firstRow = i
                e.HasMorePages = True
                cn.Close()
                Exit Sub
            End If
        Next
 
 
        e.Graphics.DrawString("Ausdruck vom :" & " " & aktuellesDatum, New Font( _
          "Times New Roman", 10, FontStyle.Regular), Brushes.Black, 60, 750, _
          text_links)
 
        cn.Close()
        Me.Close()
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Druck über mehrere Seiten.....118Mctotti06.09.20 18:19
Re: Druck über mehrere Seiten.....72Manfred X07.09.20 18:20
Re: Druck über mehrere Seiten.....49Mctotti07.09.20 19:50
Re: Druck über mehrere Seiten.....66Manfred X07.09.20 20:28
Re: Druck über mehrere Seiten.....35Mctotti09.09.20 18:20
Re: Druck über mehrere Seiten.....54Manfred X09.09.20 18:37
Re: Druck über mehrere Seiten.....24Mctotti14.09.20 16:37

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-2020 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