StartPrinter

StartPrinter

window9.StartPrinter([@P = 0],[flag =1])

Используется для вывода диалогового окна и подготовительных работ для начала печати. Функция находится в пространстве имен window9. Возвращает HDC печати. Функция заполняет структуру  P  , в ней находится процентное соотношение размеров области печати и области десктопа, нужное для правильной установки размеров для функций рисования или функций API.

@p - адрес структуры типа SinglePOINT. Сама структура:

Type SinglePOINT
   x as single
   y as single
End Type

flag - если равен 1 , то начать старт для нового документа(стоит по умолчанию). Если нужно распечатать несколько документов, то данный флаг лучше устанавить в 0. Затем нужно получить кол-во нужных распечатываемых документов и выводить старт документов в цикле с помощью DocumentStart (пример печати нескольких копий документов можно посмотреть здесь ).

Пример_1 (cо встроенными функциями рисования библиотеки):

#include "window9.bi"
Dim Po As window9.SinglePoint
window9.StartPrinter(@po)
window9.PageStart()
BoxDraw(10*po.x,10*po.y,100*po.x,100*po.y,,&hff00ff)
window9.PageEnd()
window9.StopPrinter()

Пример_1 (c функциями API рисования):

#Include "window9.bi"
Dim Po As window9.SinglePoint
Dim As HDC hdc
hdc=window9.StartPrinter(@po)
window9.PageStart()
Rectangle(hdc,60*po.x,60*po.y,200*po.x,200*po.y)
SetTextColor(hdc,&hff0000)
TextOut(hdc,100*po.x,100*po.y,"FreeBasic",9)
window9.PageEnd()
window9.StopPrinter()

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Write eBooks for the Kindle