Vraag : Hoe te om een nieuwe pagina op vb.net te drukken

Hallo, wil

I het weten hoe te om niet alleen één pagina uit te printen? />Please
first- pagina te verbeteren is TextBox1.Text
second- pagina is def abc

What zouden moeten ik doen?

Thank u!

Francis SZE
" codeBody " 
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

Openbare Klasse Form2
    Privé PrintPageSettings als Nieuwe PageSettings

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
        Probeer
            Verduister PrintDoc als Nieuwe PrintDocument
            AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
            PrintDoc.Print ()

        Vangst ex als Uitzondering
            MessageBox.Show („Droevig-- er is een probleemdruk“, ex.ToString)
        Het eind probeert
    Sub van het eind

    Privé SubPrintText (ByVal afzender als Voorwerp, ByVal ev als PrintPageEventArgs)
        'Privé printpagesettings als Nieuwe PageSettings
        ev. Graphics.DrawString (TextBox1.Text, Nieuwe Doopvont („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = Waar

        ev. Graphics.DrawString („def abc“, Nieuwe Doopvont („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = Vals
    Sub van het eind


De Klasse van het eind

Antwoord : Hoe te om een nieuwe pagina op vb.net te drukken

wijzig deze code vanaf uw behoefte
Maar stel eerst dit in werking om uw output te verifiëren


ev.HasMorePages wordt geëvalueerde slechts nadat die gebeurtenissen volledig wordt.
Als ev.HasMorePages = Waar toen dat de gebeurtenis opnieuw in brand wordt gestoken
en op volgende looppas ev.HasMorePages = Vals zal ophouden in brand stekend die gebeurtenis.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

schemerige isFirstRun zoals van Boole = Waar
Privé SubPrintText (ByVal afzender als Voorwerp, ByVal ev als PrintPageEventArgs)
        '        Privé printpagesettings als Nieuwe PageSettings

Als isFirstRun toen
        ev. Graphics.DrawString (TextBox1.Text, Nieuwe Doopvont („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = Waar
isFirstRun = Vals
Anders
        ev. Graphics.DrawString („def abc“, Nieuwe Doopvont („Arial“, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = Vals
Eind als
    Sub van het eind
Andere oplossingen  
 
programming4us programming4us