Печать PrintForm в цикле - можно быстрее?

[Kubasov]

Пожалуйста подскажите, как можно вывести на печать PrintForm в цикле, этот код:

Код: Выделить всё

For a=0 to 3

Printer.Orientation=2 ' горизонтальная печать
FormPr.PrintForm ' печать формы
Printer.EndDoc

Next a


... выводит до 4..5 стр/мин 'МОЖНО-ЛИ СДЕЛАТЬ БЫСТРЕЕ (только обязательно с PrintForm) ?
Форма изменяется внутри цикла, поэтому команда:

Код: Выделить всё

Printer.Copies = Х   ' - не подходит

Заранее Спасибо!

[Kubasov]

Проблему решил довольно неожиданно - случайно попался диск с Visual Studio 6.0, который в себя включает пакеты для разработки Windows-приложений, а также Service Pack 6 (новые за 2004 год обновления для компонентов VS 6. Код теперь выглядит так:

Код: Выделить всё

Printer.Orientation = 2
For a =0 to x
'строки изменяющие форму
'строки изменяющие форму
FrmPr.PrintForm
Next a
Printer.EndDoc


После компиляции все очень замечательно работает. ВСЕМ СПАСИБО!!!
Если есть какие-то свои размышления по этому вопросу ПИШИТЕ - ТЕМА ОТКРЫТА !