// Declaration
// Win32 API function for printer

function integer openprinter (  string pPrinterName, ref ulong phPrinter,  long pDefault ) library "winspool.drv" alias for "OpenPrinterA;Ansi"

function boolean closeprinter (ulong printerhandle)  library "winspool.drv" alias for "ClosePrinter;Ansi"

function long GetDeviceCaps ( ulong wHndl, long nIndex )  library "gdi32.dll"

// Get the print area function
ulong 	lul_hprinter
integer	li_error
long 	ll_null, ll_dpix, ll_dpiy

// Reset size
al_width  =  0 
al_height =  0 

// Get printer handle
SetNull(ll_null)
li_error =  OpenPrinter(as_printer_name, ref lul_hprinter, ll_null)

ll_dpix = GetDeviceCaps(lul_hprinter,  8 )	/* the width, in pixels, of the printable area of the page  */
ll_dpiy = GetDeviceCaps(lul_hprinter,  10 ) 	/* the height, in pixels, of the printable area of the page */

// Close printer
ClosePrinter(lul_hprinter)

// Return values
al_width  = ll_dpix
al_height = ll_dpiy

//************************************************************************************
// Author Name			:	urvas
// Creation Date 		:  	 27 -Oct- 2006 
// Definition of Parameters	:
// Description 			:	convert metric to PBU (PowerBuildel Units)
//					wf_convertmetrictopbu function
// Modification history 
//====================================================================================
// Version !   Date	!  Author  ! 	Description
//====================================================================================
//  3 . 0        27 -Oct- 2006    urvas		Initial Version
//************************************************************************************

long 		ll_dpix, ll_dpiy, ll_dc, ll_pixels
decimal 	lc_inchtocm, lc_x_cm, lc_y_cm, lc_inches

lc_inchtocm =  2 . 54 

// get dpi for x and y axis
ll_dc = GetDC( 0 )
ll_dpix = GetDeviceCaps(ll_dc,  88 );
ll_dpiy = GetDeviceCaps(ll_dc,  90 );
ReleaseDC( 0 , ll_dc);

// convert metric to inches
lc_inches 	= ac_dimention/lc_inchtocm

// convert inches to pixels
// convert pixels to PBU
choose case as_xy
	case 'x'
		ll_pixels	= lc_inches * ll_dpix
		return PixelsToUnits(ll_pixels, XPixelsToUnits!)
	case 'y'
		ll_pixels	= lc_inches * ll_dpiy
		return PixelsToUnits(ll_pixels, YPixelsToUnits!)
end choose

return  0 

//************************************************************************************
// Author Name			:	Black Savage
// Creation Date 		:  	 11 -Feb- 2008 
// Definition of Parameters	:
// Description 			:	Get the print paper area in PowerBuilder units
//											
// Modification history 
//====================================================================================
// Version !   Date	!  Author	! 	Description
//====================================================================================
//  3 . 0        11 -Feb- 2008    Black Savage   Initial Version
//************************************************************************************

long	ll_width, ll_height, ll_top, ll_bottom, ll_left, ll_right
string	ls_value

// Reset size
al_width  =  0 
al_height =  0 

// Page height and width without margins
choose case ii_papersize
	case  1  // Letter
		choose case ii_paperorientation
			case  1 	// Landscape
				ll_height	= wf_convertmetrictopbu( 21 . 59 , "y")
				ll_width	= wf_convertmetrictopbu( 27 . 94 , "x")
			case  2 	// Portrait
				ll_height	= wf_convertmetrictopbu( 27 . 94 , "y")
				ll_width	= wf_convertmetrictopbu( 21 . 59 , "x")
		end choose
	case  9  // A4
		choose case ii_paperorientation
			case  1 	// Landscape
				ll_height = wf_convertmetrictopbu( 21 . 00 , "y")
				ll_width  = wf_convertmetrictopbu( 29 . 70 , "x")
			case  2 	// Portrait
				ll_height	= wf_convertmetrictopbu( 29 . 70 , "y")
				ll_width	= wf_convertmetrictopbu( 21 . 00 , "x")
		end choose
end choose

// Get Top Margin
ls_value = dw_preview.Describe("DataWindow.Print.Margin.Top")
if IsNull(ls_value) then ls_value = "0"
if IsNumber(ls_value) = false then ls_value = "0"
ll_top = Long(ls_value)

// Get Bottom Margin
ls_value = dw_preview.Describe("DataWindow.Print.Margin.Bottom")
if IsNull(ls_value) then ls_value = "0"
if IsNumber(ls_value) = false then ls_value = "0"
ll_bottom = Long(ls_value)

// Get Left Margin
ls_value = dw_preview.Describe("DataWindow.Print.Margin.Left")
if IsNull(ls_value) then ls_value = "0"
if IsNumber(ls_value) = false then ls_value = "0"
ll_left = Long(ls_value)

// Get Right Margin
ls_value = dw_preview.Describe("DataWindow.Print.Margin.Right")
if IsNull(ls_value) then ls_value = "0"
if IsNumber(ls_value) = false then ls_value = "0"
ll_right = Long(ls_value)

// Get print area
al_height	= ll_height	- ( ll_top + ll_bottom )
al_width	= ll_width	- ( ll_left + ll_right )

return  1 

public function integer wf_get_width_absolute_precision (ref long al_width)

//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		 29 -Feb- 2008 
// Definition of Parameters	:
// Description 					:		Get absolute precision for paper Width in PowerBuilder Units
//											It is used to correct the approximate value
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
//  1 . 0          29 -Feb- 2008    Black Savage   Initial Version
//************************************************************************************

long		ll_initial_horizontal_pages, ll_horizontal_pages, ll_old_horizontal_pages, ll_y, ll_x, ll_old_x, ll_object_width, ll_item, ll_item_number
string		ls_return, ls_modstring, ls_test_object
boolean	lb_corrected

// Check parameter
if IsNull(al_width) then al_width =  0 
if al_width <=  0  then return guo_variables.FAILURE

// Total horizontal pages
ll_initial_horizontal_pages = Long(dw_preview.Describe("Evaluate('PageCountAcross()',0)"))

// Choose the test object name
ll_item =  0 
ls_test_object = "test_object_t"
do 
	// Check if the object name exists
	ls_return = dw_preview.Describe(ls_test_object + ".Type")
	if IsNull(ls_return) then ls_return = ""
	ls_return = Trim(Lower(ls_return))
	if ls_return = "!" or ls_return = "?" then ls_return = ""
	if ls_return = "" then exit
	
	ll_item ++
	ls_test_object = "test_object_t" + String(ll_item)
loop while true

// The test object has to be width enough to make a round-off error as less as possible
ll_object_width = al_width /  2 

// Set coordinates
ll_y =  1 
ll_old_x = ll_initial_horizontal_pages * al_width - ll_object_width

ll_item_number = al_width /  2 
lb_corrected = false
ll_old_horizontal_pages = ll_initial_horizontal_pages
ll_x = ll_old_x
for ll_item =  1  to ll_item_number
	
	// Create the test object
	ls_modstring = "create text(band=foreground alignment=~'0~' text=~'~' border=~'0~' color=~'33554432~' x=~'" + String(ll_x) + "~' y=~'" + String(ll_y) + &
							"~' height=~'64~' width=~'" + String(ll_object_width) + "~' html.valueishtml=~'0~'  name=" + ls_test_object + &
							" visible=~'1~' font.face=~'Tahoma~' font.height=~'-8~' font.weight=~'400~'  font.family=~'2~' font.pitch=~'2~' font.charset=~'204~'" + &
							" background.mode=~'2~' background.color=~'1073741824~' )"
	ls_return = dw_preview.Modify(ls_modstring)
	
	// Total horizontal pages
	ll_horizontal_pages = Long(dw_preview.Describe("Evaluate('PageCountAcross()',0)"))
	
	// Destroy the test object
	ls_return = dw_preview.Modify("destroy " + ls_test_object)
	
	// Compare result
	if ll_initial_horizontal_pages = ll_horizontal_pages then
		// Keep old data
		ll_old_x = ll_x
		ll_old_horizontal_pages = ll_horizontal_pages
		
		ll_x ++
	else
		if ll_horizontal_pages > ll_initial_horizontal_pages then 
			if ll_x - ll_old_x =  1  and ll_old_horizontal_pages = ll_initial_horizontal_pages then
				// The ll_old_x is the right coordinate
				lb_corrected = true
				exit
			else
				// Keep old data
				ll_old_x = ll_x
				ll_old_horizontal_pages = ll_horizontal_pages
				
				ll_x --
			end if
		else
			// That is impossible!
			exit
		end if
	end if
	
next

// Correct the width
if lb_corrected then 
	if ll_initial_horizontal_pages =  0  then ll_initial_horizontal_pages =  1 
	
	al_width = Round((ll_old_x + ll_object_width) / ll_initial_horizontal_pages,  0 )
end if

return guo_variables.SUCCESS