Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Drucken in Schleifen
Autor: Hänk
Datum: 26.11.04 14:24
Danke für deine schnelle Antwort mein Code sieht folgendermaßen aus. (Hoffe da kann man durchblicken)   Private Sub druckeFilmarten_drucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) e.Graphics.PageUnit = GraphicsUnit.Millimeter Dim Breite As Integer Dim Höhe As Integer Dim Faktor As Integer If Me.optDrucken_mit.Checked = True Then 'Mit Bild ausgewählt Faktor = (Me.picDruckeVideoverwaltung.Image.Width / 210) ' Bild passend auf eine DIN A4 Seite bringen Breite = Me.picDruckeVideoverwaltung.Image.Width / Faktor Höhe = Me.picDruckeVideoverwaltung.Image.Height / Faktor End If Dim a, b As Integer Dim Filmartname As String Dim Druckfont As Font = New Font("Arial", 8, FontStyle.Regular) Dim DruckfontFETT As Font = New Font("Arial", 8, FontStyle.Bold) Dim Pen_Rot As System.Drawing.Pen = New Pen(Brushes.Red, 0.5) Dim Pen_Schwarz As System.Drawing.Pen = New Pen(Brushes.Black, 0.3) Dim Auswahl As String Dim Seite As Integer = 1 Dim Druckhöhe As Integer = 0 'alle angewählten Filmarten suchen und drucken For Each Auswahl In Me.Drucken_Checked_Listbox_Filmart.CheckedItems Filmartname = Auswahl.ToString For a = 0 To menge For b = 0 To 9 If Filmart(a, b) > "" Then If UCase(Filmart(a, b)) = UCase(Filmartname) Then If Druckhöhe = 0 Then e.Graphics.DrawString(Filmartname & " - Blatt " & Seite, Druckfont, Brushes.Black, 5, 20) End If e.Graphics.DrawString(Film(a, b), DruckfontFETT, Brushes.Blue, 5, 30 + (Druckhöhe * 12)) Druckhöhe += 1 If (Druckhöhe * 12) + 30 >= 280 Then ' Seitenende erreicht? Seite += 1 Druckhöhe = 0 e.HasMorePages = True End If End If End If Next b Next a Next e.HasMorePages = False End Sub   wie muß ich jetzt das Ganze ändern das ich eine 2.Seite erhalte?? Danke

Drucken in Schleifen	956	Hänk	26.11.04 14:12
Re: Drucken in Schleifen	708	FZelle	26.11.04 14:17
Re: Drucken in Schleifen	651	Hänk	26.11.04 14:24
Re: Drucken in Schleifen	640	FZelle	26.11.04 14:56
Re: Drucken in Schleifen	596	Hänk	26.11.04 15:09
Re: Drucken in Schleifen	652	FZelle	26.11.04 15:18
Re: Drucken in Schleifen	585	Hänk	26.11.04 15:46

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übersicht

Suchen