Ισχύει για
Αντικείμενο Application |
Αντικείμενο Form |
Αντικείμενο Report |
Επιστρέφει ή ορίζει ένα αντικείμενο Printer που αντιπροσωπεύει τον προεπιλεγμένο εκτυπωτή στο τρέχον σύστημα. Ανάγνωσης/εγγραφής.
παράσταση.Printer
παράσταση Υποχρεωτικό. Μια παράσταση που επιστρέφει ένα από τα αντικείμενα της λίστας "Ισχύει για".
Παράδειγμα
Το ακόλουθο παράδειγμα καθιστά τον πρώτο εκτυπωτή της λίστας Printers τον προεπιλεγμένο εκτυπωτή του συστήματος και, στη συνέχεια, αναφέρει το όνομά του, πληροφορίες για το πρόγραμμα οδήγησης και πληροφορίες για τη θύρα.
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(0)
Set prtDefault = Application.Printer
With prtDefault
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With