Fråga : Hur man skrivar ut en ny sida på vb.net

Hi

I önskar att veta hur man skrivar ut ut inte endast en sida?
Please hjälper mig att förhöja mitt kodifierar för att skriva ut ut sidan för
first är sidan för TextBox1.Text
second är defabc

What bör mig göra?

Thank dig!

Francis SZE > för 
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:
" codeBody " " >Imports System.Drawing.Printing för class= " för
" klar "

Svar : Hur man skrivar ut en ny sida på vb.net

ändra detta kodifierar som per ditt behov
Men första körning detta som verifierar tillverkat ditt


ev.HasMorePages utvärderas endast after som händelser får färdiga.
Om ev.HasMorePages = True därefter att händelsen avfyras igen
och på den nästa körningen ev.HasMorePages = falsk ska stoppskottlossning som händelse.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

dunkel isFirstRun som boolean = True
Privata underPrintText (den ByVal avsändaren som anmärker, ByVal ev som PrintPageEventArgs)
        '        Privata printpagesettings som nya PageSettings

Om isFirstRun därefter
        ev. Graphics.DrawString (TextBox1.Text, den nya stilsorten (”Arial”, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = True
isFirstRun = falskt
Annars
        ev. Graphics.DrawString (”defabc”, den nya stilsorten (”Arial”, 11, FontStyle.Regular), Brushes.Black, 120, 120)
        ev.HasMorePages = falskt
Avsluta om
    Avsluta suben
Andra lösningar  
 
programming4us programming4us