GetRealSize

Синтаксис

Sub GetRealSize(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: Free HTML Help documentation generator