StartPrinter

Синтаксис

function StartPrinter(ByRef Scale As SinglePoint Ptr=0, ByVal Flagstart As Integer=1) As HDC

Описание

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

Параметры

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

Type SinglePOINT
    x as single
    y as single
End Type

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

Платформы

Windows

Пример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()

Пример2

' пример 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()

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily