function GetCountDoc() As Integer
Используется для получения кол-ва копий документов, введенных пользователем. Функция находится в пространстве имен window9
нет
Windows
#Include "window9.bi"
Using window9 'открываем пространство имен
Dim Po As SinglePoint
StartPrinter(@po,0)
FontDraw(LoadFont("Arial",22*po.x))
For a As Integer=1 To GetCountDoc()
DocumentStart()
PageStart()
TextDraw(10*po.x,10*po.y,"Документ № " & a,-1)
PageEnd()
DocumentEnd()
Next
StopPrinter()
Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation