GetFullSize

Синтаксис

Sub GetFullSize(ByRef X As Integer, ByRef Y As Integer)

Описание

Используется для получения размера области печати в пикселах включая отступы (вся область печати). Функция находится в пространстве имен window9

Параметры

X,Y - буферы для получения ширины и высоты области печати

Платформы

Windows

Пример

#Include "window9.bi"
Using window9
Dim Po As SinglePoint
Dim As Integer X=15,X1=15,Y=20,Y1=10
StartPrinter(@po)
FramePage(X,X1,Y,Y1)
Print Using "Indentation= & , & , & , &"; X;X1;Y;Y1
GetRealSize(X,Y)
GetFullSize(X1,Y1)
StopPrinter()
Print Using "Real= & x & "; x ;y
Print Using "Full= & x & "; x1 ;y1
Sleep

Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation