Frage : Wie man eine neue Seite auf vb.net druckt

Hallo, möchten

I können nicht nur eine Seite ausdrucken?
Please helfen mir, meinen Code zu erhöhen, um
first Seite auszudrucken ist TextBox1.Text
second Seite ist def abc

What sollte ich tun?

Thank Sie!

Francis SZE 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Imports System.Drawing.Printing

Allgemeine Kategorie Form2
    Privates PrintPageSettings als neue PageSettings

    Privates Unterseeboot Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click
        Versuch
            Schwaches PrintDoc als neues PrintDocument
            AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
            PrintDoc.Print ()

        Fang ex als Ausnahme
            MessageBox.Show („traurig-- es gibt ein Problemdrucken“, ex.ToString)
        Enden-Versuch
    Enden-Unterseeboot

    Privates VorPrintText (ByVal Absender als Gegenstand, ByVal ev als PrintPageEventArgs)
        'Private printpagesettings als neue PageSettings
        ev. Graphics.DrawString (TextBox1.Text, neuer Guss („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = ausrichten en

        ev. Graphics.DrawString („def ABC“, neuer Guss („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = falsch
    Enden-Unterseeboot


Enden-Kategorie

Antwort : Wie man eine neue Seite auf vb.net druckt

diesen Code wie pro Ihre Notwendigkeit ändern
Aber erster Lauf dieses, zum Ihres Ausganges zu überprüfen


ev.HasMorePages ausgewertet se, erst nachdem dieses Ereignisse komplett erhält.
Wenn ev.HasMorePages = dann ausrichten, dass Ereignis wieder abgefeuert
und auf folgendem Durchlauf stoppt ev.HasMorePages = falsch, dieses Ereignis abzufeuern.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

schwaches isFirstRun, wie Boolesch = ausrichten en
Privates VorPrintText (ByVal Absender als Gegenstand, ByVal ev als PrintPageEventArgs)
        '        Private printpagesettings als neue PageSettings

Wenn isFirstRun dann
        ev. Graphics.DrawString (TextBox1.Text, neuer Guss („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = ausrichten en
isFirstRun = falsch
Sonst
        ev. Graphics.DrawString („def ABC“, neuer Guss („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = falsch
Beenden wenn
    Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us