Function HWNDPrinter(byval hWin As HWND, byval Xpr As Integer=0, byval Ypr As Integer=0, byval X As Integer=0, byval Y As Integer=0, byval X1 As Integer=0, byval Y1 As Integer=0) As integer
Используется для вывода на печать содержимого клиентской области окна
hWin - хендл окна
Xpr - координата по оси Х в области печати. Если равна -1, то печатается по середине листа
Ypr - координата по оси Y в области печати. Если равна -1, то печатается по середине листа
X - начальная точка клиентской области окна по оси X
Y - начальная точка клиентской области окна по оси Y
X1 - конечная точка клиентской области окна по оси X. Если равна 0, то вся клиентская область
Y1 - конечная точка клиентской области окна по оси Y. Если равна 0, то вся клиентская область
Windows
#include "window9.bi"
Dim As HWND hwnd=GetDesktopWindow()
HWNDPrinter(hwnd,,,,,600,600)
#include "window9.bi"
Screen 13
Line (0, 0)-(320, 200), 5, bf
Draw String (130,100),"FreeBasic",15
Dim As HWND hwnd
ScreenControl(2,CInt(hwnd))
HWNDPrinter(hwnd)
Created with the Personal Edition of HelpNDoc: Free PDF documentation generator