Отправить на печать из формы

[R71MT]

Привет всем!
При создании формы, столкнулся с некоторыми проблемами.
На рисунке ниже - форма печати билетов для цирка. Бюджет заказчика (как и сроки выполнения заказа) сильно ограничены, поэтому решил тупо набросать в VBA, ..но споткнулся на организации печати. Просьба, разъяснить такие нюансы:

1. Как отправить на печать лист-Excel, кнопкой на форме "Печать:";
2. Как прописать активные принтеры системы, в ComboBox;
3. Как сохранить формат ввода в поле "Серия:", чтоб он отображался так-же (вместе с нулями впереди), в поле "Серия следующей партии:", которое вычисляется по формуле:
[Серия + Печатать билетов (шт) + 1].
Любые математические действия со значением поля "Серия:", отсекают передние нули. Буду премного благодарен!

[EducatedFool]

1. Как отправить на печать лист-Excel, кнопкой на форме "Печать:";

очень просто:

Worksheets("имя листа").PrintOut

2. Как прописать активные принтеры системы

Получение списка доступных принтеров средствами VB (VBA)

Как сохранить формат ввода в поле "Серия:"

после изменения значения поля, приводите его к нужному виду:

if TextBox1.text <> format(TextBox1.text,"0000000") then TextBox1.text = format(TextBox1.text,"0000000")

Любые математические действия со значением поля "Серия:", отсекают передние нули

отсекли нули - сложили - восстановили нули:

TextBox2.text = format(VAL(TextBox1.text) + 1,"0000000")

PS: Расскажите, пожалуйста, как вы реализовали такой предпросмотр на форме?
Выглядит красиво, - а как сделано, не могу понять

[R71MT]

EducatedFool, спасибо! Плюс один ушёл в Вашу копилку.
..а задумка была такая:

1. Создаю в фотошопе пустой бланк (без вводимых значений)
2. Отвожу по 10 листов на партию печати (8 бланков на листе = 80 билетов партия)
3. В ячейки каждого бланка на листе, прописываю предыдущее значение + 1
4. Кидаю на форму копию бланка, и дублирую поля "TextBox" формы, в "Label" бланка.