Πώς μπορείτε να διαπιστώσετε την Page Count για διάλογο εκτύπωσης σε VB.NET

Προσδιορισμός του αριθμού σελίδας για ένα " PrintDialog " ελέγχου εφαρμογής Visual Basic.NET σας μπορεί εύκολα να επιτευχθεί με τη χρήση μερικές ιδιότητες . Μια τάξη " PrintDialog " επιτρέπει στους χρήστες να επιλέξετε έναν εκτυπωτή και να επιλέξετε ποια τμήματα του εγγράφου για να εκτυπώσετε από μια εφαρμογή Windows Forms . Πάρτε τις ρυθμίσεις του εκτυπωτή χρησιμοποιώντας το « PrinterSettings " ιδιοκτησίας. Μπορείτε να προσδιορίσετε τον αριθμό των σελίδων για τον αριθμό των αντιγράφων , ή το ελάχιστο και το μέγιστο αριθμό σελίδων χρησιμοποιώντας την ίδια ιδιότητα . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ στο " κουμπί" από την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί στη φόρμα σας . Κάντε δεξί κλικ στη φόρμα και κάντε κλικ στο " Προβολή κώδικα " για να ανοίξετε μια λειτουργική μονάδα κώδικα
εικόνων 3

Προσθέστε την ακόλουθη γραμμή κώδικα για να δημιουργήσετε μια καθολική μεταβλητή σε αυτό το αρχείο : .

Ιδιωτικά WithEvents docToPrint Όπως New Printing.PrintDocument
4

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα νέο συμβάν κλικ :

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , _

ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να προσδιορίσετε τον αριθμό των σελίδων από την « PrintDialog1 " ελέγχου :

PrintDialog1.AllowSomePages = True

Dim minPage = PrintDialog1.PrinterSettings.MinimumPage

Dim maxPage = PrintDialog1.PrinterSettings.MaximumPage

Dim pageCnt = PrintDialog1.PrinterSettings.Copies

MessageBox.Show ( « σελίδα Min : " & _ minPage

& "Max σελίδα: " & _ maxPage

& " Αριθμός αντιγράφων : " & pageCnt )

PrintDialog1.ShowHelp = True

PrintDialog1.Document = docToPrint

Dim αποτέλεσμα Όπως DialogResult = PrintDialog1.ShowDialog ( )

Αν ( αποτέλεσμα = DialogResult.OK ) Στη συνέχεια

docToPrint.Print ( )

End If

End Sub
Η

6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα , και κάντε κλικ στο " Button1 " για να εμφανιστεί ένα πλαίσιο μηνύματος με τη σελίδα min , max σελίδων και τον αριθμό των αντιγράφων που θέλετε να εκτυπώσετε .
Η
εικόνων