Sub PageStart()
Используется для начала печати на новой странице.Функция находится в пространстве имен window9
нет
Windows
#Include "window9.bi"
Using window9
Dim Po As SinglePoint
StartPrinter(@po)
FontDraw(LoadFont("Arial",22*po.x))
For a As Integer=1 To 3
PageStart()
TextDraw(10*po.x,10*po.y,"Страница № "&a,-1)
PageEnd()
Next
StopPrinter()
Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad