💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Колекція 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).