Печать PrintForm в цикле

[Kubasov]

Подскажите пожалуйста как можно использовать PrintForm в цикле.
Форма перед выводом последующей страницы изменяется. Если выводить форму один раз на печать, то выводится без ошибок. А если в цикле, то выдается ошибка.

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

for a=0 to 2
Printer.Orientation=2 'горизонтальная печать
form3.PrintForm ' печать формы
Printer.EndDoc 'печать в цикле при этом  выводится очень медленно
' Printer.NewPage ' почему-то не работает
Next a

Что можно сделать, чтобы страницы выходили на печать одна за другой, без останова в Printer.EndDoc. Помогите.... Визуалить стал очень недавно, поэтому это для меня Проблемма...

[A.A.Z.]

Printer.Copies = 3
Printer.Orientation = 2
Form3.PrintForm

[Kubasov]

Все не так просто, дело в том что цикл и был выбран потому, как форма изменяется (просто строки обрабатывающие изменение формы в цикле были убраны для форума, чтоб читать удобнее было). Спасибо за внимание к теме.

[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


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