Dim FRMA As Form
'под некоторым условием FRMA в цмкле выступает в качестве различных форм
For i = 0 To 5
FRMA.PrintForm
Printer.EndDoc
Next
Печать нескольких форм выразить как несколько страниц.
Здравствуйте!
Буду благодарен, если кто подскажет как печать нескольких форм сделать одним документом для принтера.
Я делаю так:
Код:
Всё бы ничего. Работает, все формы распечатывает, только каждую из них делает как отдельный документ. Во-первых, это не красиво, а во-вторых, принтер же немного ждёт перед печатью следующего документа, ну и смотрится это конечно не как печать одного многостраничного документа.
Если так:
Код:
Dim FRMA As Form
For i = 0 To 5
FRMA.PrintForm
Next
Printer.EndDoc
For i = 0 To 5
FRMA.PrintForm
Next
Printer.EndDoc
не работает.
Если так:
Код:
Dim FRMA As Form
For i = 0 To 5
FRMA.PrintForm
Printer.NewPage
Next
Printer.EndDoc
For i = 0 To 5
FRMA.PrintForm
Printer.NewPage
Next
Printer.EndDoc
не работает.
Как можно выставить формы в последовательность страниц одного документа? И можно ли вообще?
Спасибо!
Чёрт возьми, разберитесь же вы, наконец, с печатью из RichTextBox, и не изобретайте непонятно что. :) Вот честно, и быстрее, и лучше получится.
Всё всё. Понял) больше подобного спрашивать не буду...