Het bepalen van het aantal pagina's voor een " PrintDialog " control in uw Visual Basic.NET applicatie kan gemakkelijk worden bereikt met behulp van een paar eigenschappen . Een " PrintDialog " class laat gebruikers een printer te selecteren en kiezen welke secties van het document af te drukken vanuit een Windows Forms applicatie . Krijgen de printerinstellingen via de " PrinterSettings " eigenschap . U kunt het aantal pagina's voor het aantal kopieën , of het minimum en maximum aantal pagina's te bepalen , met behulp van dezelfde eigenschap . Wat je nodig hebt Microsoft Visual Studio Toon Meer Aanwijzingen 1 Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm , en uitbreiden " Visual Basic " onder " Installed Sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een nieuw project aan te maken . Dubbelklik op " Button " 2 van de " Toolbox " deelvenster toe te voegen een nieuwe knop aan uw formulier . Rechtermuisknop op het formulier en klik op " View Code " een code -module te openen 3 Voeg de volgende regel code aan een globale variabele te creëren om dit bestand : . Private WithEvents docToPrint Als Nieuw Printing.PrintDocument Kopieer 4 en plak de volgende code om een nieuwe gebeurtenis click maken: Private Sub Button1_Click ( ByVal afzender Zoals System.Object , _ ByVal e als System.EventArgs ) Handles Button1.Click Kopieer 5 en plak de volgende code om het aantal pagina's te bepalen van de " PrintDialog1 " control: PrintDialog1.AllowSomePages = True Dim minPage = PrintDialog1.PrinterSettings.MinimumPage Dim maxPage = PrintDialog1.PrinterSettings.MaximumPage Dim pageCnt = PrintDialog1.PrinterSettings.Copies < br MessageBox.Show ( " Min pagina : " & _ & " Max pagina : " minPage & _ & " Aantal kopieën : " maxPage & pageCnt ) > < br > PrintDialog1.ShowHelp = True PrintDialog1.Document = docToPrint Dim resultaat Zoals DialogResult = PrintDialog1.ShowDialog ( ) op Als ( resultaat = DialogResult.OK ) dan docToPrint.Print ( ) End Als End Sub Druk op "F5 " 6 om het programma te draaien , en klik op " Button1 " om een bericht wilt weergeven met de pagina min , max pagina en het aantal af te drukken exemplaren .
|