Колекція Printers

Серед безлічі інших корисних колекцій в Visual Basic існує колекція Printers. B їй міститься список об'єктів-принтерів, зареєстрованих у вашій системі. Звернувшись до колекції з відповідним запитом, можна змінити принтер, вибраний для додатка за умовчанням, вивести що-небудь на Друкування і знову повернутися до стандартного принтера.

З наступного прикладу видно, як працювати з колекцією і дізнатися, які принтери встановлені у вашій системі:

1. Створіть новий проект поєднанням клавіш Ctrl+N.

2. Виберіть значок стандартного ЕХЕ-файлу (Standard EXE) в діалоговому вікні New Project.

3. Вкажіть ім'я проекту - PrintersCollection.

4. Задайте властивості Name форми Form1 значення frmMain, a властивості Caption - значення «Список принтерів».

5. Клацніть правою кнопкою миші на панелі елементів і виберіть в контекстному меню команду Components.

6. У діалоговому вікні Components Встановіть прапорець поряд з рядком Microsoft Windows Common Controls 6.0. Закрийте діалогове вікно кнопкою ОК.

7. Створіть на frmMain табличний список. Задайте його властивості Name значення lvwPrinters.

8. Двічі клацніть на формі frmMain, щоб відкрити вікно програми.

9. Вставте в процедуру події Resize наступний фрагмент:

Private Sub Form_Resize()

‘ Розтягнути табличний список

lvwPrinters.Move 0, 0, ScaleWidth, ScaleHeight

End Sub

10. Вставте в процедуру події Load наступний фрагмент:

Private Sub Form_Load()

Dim p As Printer

Dim x As ListItem

‘ Перемкнути табличний список в режим таблиці

With lvwPrinters

..View = lvwReport

..ColumnHeaders.Add,, " Принтер"

..ColumnHeaders.Add 2,, " Драйвер"

..ColumnHeaders.Add 3,, " Порт"

End With

‘ Вивести список принтерів в системі

For Each p In Printers

With p

Set x = lvwPrinters.ListItems.Add(DeviceName)

x.SubItems(1) =.DriverName

x.SubItems(2) =.Port

End With

Next

End Sub

11. Збережете і Запустіть проект.

Якщо у вашій системі встановлені які-небудь принтери, у вікні з'являється список (мал. 9.2).