Bestimmung der Seitenzahl für eine " PrintDialog " Kontrolle in Ihren Visual Basic.NET Anwendung kann leicht erreicht mit ein paar Eigenschaften werden. A " PrintDialog " -Klasse können Benutzer einen Drucker auswählen und entscheiden, welche Teile des Dokuments von einem Windows Forms-Anwendung zu drucken. Holen Sie sich die Druckereinstellungen mit dem " PrinterSettings " Eigenschaft . Sie können die Seitenanzahl für die Anzahl der Kopien , oder die minimale und die maximale Anzahl von Seiten , mit der gleichen Eigenschaft . Things You
Microsoft Visual Studio
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Visual Studio , klicken Sie auf "Neues Projekt" aus dem linken Bereich des Bildschirm Ihres Computers , und erweitern " Visual Basic " unter " Installierte Vorlagen . " Klicken Sie "Windows " und doppelklicken Sie auf "Windows Forms Application" aus der Mitte der Dialog um ein neues Projekt zu erstellen.
2

Doppelklicken Sie auf "Button" aus der "Toolbox" Bereich hinzufügen eine neue Schaltfläche, um Ihre Form . Der rechten Maustaste auf das Formular, und klicken Sie auf " Code anzeigen ", um eine Code-Modul öffnen
3

Fügen Sie die folgende Codezeile , eine globale Variable zu dieser Datei zu erstellen : .
< p > Private WithEvents DocToPrint As New Printing.PrintDocument
4

Kopieren Sie den folgenden Code , um eine neue Click-Ereignis zu erstellen :

private Sub Button1_Click (ByVal sender As System.Object , _

ByVal e As System.EventArgs ) Handles Button1.Click
5

Kopieren Sie den folgenden Code, um die Seitenzahl aus dem " PrintDialog1 " Kontrolle bestimmen :
< p> PrintDialog1.AllowSomePages = True

Dim minPage = PrintDialog1.PrinterSettings.MinimumPage

Dim MAXPage = PrintDialog1.PrinterSettings.MaximumPage

Dim pageCnt = PrintDialog1.PrinterSettings.Copies

MessageBox.Show ( "Min -Seite :" & _ minPage

& "Max -Seite :" & _ MAXPage

& "Num Kopien :" & pageCnt )

PrintDialog1.ShowHelp = True

PrintDialog1.Document = DocToPrint

Dim Ergebnis als DialogResult = PrintDialog1.ShowDialog ()

( result = DialogResult.OK ) Dann

docToPrint.Print ()

End If End Sub

6

Presse "F5 ", um das Programm zu starten , und klicken Sie auf " Button1 ", um eine Message-Box mit der Seite min , max Seite und die Anzahl der zu druckenden Kopien anzuzeigen.