Sub DocumentStart()
Используется для начала печати нового документа. Функция находится в пространстве имен 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: Free EBook and documentation generator