Come determinare il numero di pagine per la finestra di dialogo Stampa in VB.NET

October 30

Come determinare il numero di pagine per la finestra di dialogo Stampa in VB.NET


Determinazione del numero di pagine per un controllo "PrintDialog" nell'applicazione Visual Basic.NET può essere facilmente realizzato utilizzando alcune proprietà. Una classe "PrintDialog" consente agli utenti di selezionare una stampante e scegliere quali sezioni del documento da stampare da un'applicazione Windows Form. Ottenere le impostazioni della stampante utilizzando il "PrinterSettings" proprietà. È possibile determinare il numero di pagine per il numero di copie, oppure il numero minimo e massimo di pagine, utilizzando la stessa proprietà.

istruzione

1 Avviare Microsoft Visual Studio, fare clic su "New Project" dal riquadro sinistro dello schermo del computer, ed espandere "Visual Basic" sotto "Modelli installati." Fai clic su "Windows" e fare doppio clic su "Applicazione Windows Form" dal centro della finestra di dialogo per creare un nuovo progetto.

2 Fare doppio clic su "Button" dal riquadro "Toolbox" per aggiungere un nuovo pulsante al form. Fare clic con il modulo e fare clic su "Visualizza codice" per aprire un modulo di codice.

3 Aggiungere la seguente riga di codice per creare una variabile globale di questo file:

WithEvents privato docToPrint come nuovo Printing.PrintDocument

4 Copiare e incollare il seguente codice per creare un nuovo evento click:

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

ByVal e come System.EventArgs) tratta Button1.Click

5 Copiare e incollare il seguente codice per determinare il numero di pagine dal controllo "PrintDialog1":

PrintDialog1.AllowSomePages = True

Dim minPage = PrintDialog1.PrinterSettings.MinimumPage

Dim maxPage = PrintDialog1.PrinterSettings.MaximumPage

Dim pageCnt = PrintDialog1.PrinterSettings.Copies

MessageBox.Show ( "Pagina Min:" & _ minPage

& "Pagina Max:" & _ maxPage

& "Num di copie:" & pageCnt)

PrintDialog1.ShowHelp = True

PrintDialog1.Document = docToPrint

risultato fioco come DialogResult = PrintDialog1.ShowDialog ()

Se (risultato = DialogResult.OK) Poi

docToPrint.Print ()

Finisci se

End Sub

6 Premere il tasto "F5" per eseguire il programma e fare clic su "Button1" per visualizzare una finestra di messaggio con la pagina min, max pagina e il numero di copie da stampare.