forward
global type w_print_picture from window
end type
type p_test_for_size from picture within w_print_picture
end type
end forward

global type w_print_picture from window
integer width =  302 
integer height =  340 
boolean titlebar = true
string title = "PRINTING..."
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor =  33289706 
string icon = "AppIcon!"
boolean center = true
p_test_for_size p_test_for_size
end type
global w_print_picture w_print_picture

on w_print_picture.create
this.p_test_for_size=create p_test_for_size
this.Control[]={this.p_test_for_size}
end on

on w_print_picture.destroy
destroy(this.p_test_for_size)
end on

event open;string ls_path
string ls_syntax, ls_error
long ll_paper_width =  3400 , ll_paper_height =  4350 
long li_rtn, ll_width, ll_height
Double ld_raitio
DataStore lds_picture

ls_path = Message.StringParm

IF NOT FileExists(ls_path) THEN Close(This)

SetPointer(HourGlass!)

lds_picture = CREATE DataStore

ls_syntax = 'release 10.5;&
				datawindow(processing=0  )~r~n&
				detail(height=0  height.autosize=yes )~r~n&
				table(column=(type=char(500) name=filename dbname="fileName" ) )~r~n&
				column(band=detail id=1 x="0" y="0" height="0" width="0" name=filename visible="1" bitmapname=yes)'

lds_picture.create(ls_syntax, ls_error)

p_test_for_size.picturename = ls_path
ll_width = p_test_for_size.width
ll_height = p_test_for_size.height
 
 IF ll_width > ll_height AND (ll_width > ll_paper_width OR ll_height > ll_paper_height) THEN
	ll_paper_width =  4350 
	ll_paper_height =  3400 
	lds_picture.Object.DataWindow.Print.Orientation = '1'
END IF

if ll_width > ll_paper_width then
	ld_raitio = ll_width / ll_paper_width
	ll_width = ll_paper_width
	ll_height /= ld_raitio		
End if

if ll_height > ll_paper_height then
	ld_raitio =ll_height / ll_paper_height
	ll_height = ll_paper_height
	ll_width /= ld_raitio
End if

lds_picture.Object.filename.Width = string(ll_width)
lds_picture.Object.filename.Height = string(ll_height)

lds_picture.insertRow( 1 )

lds_picture.setItem( 1 ,"filename",ls_path)
lds_picture.Print()

Sleep( 1 )

SetPointer(Arrow!)

Close(This)
end event

type p_test_for_size from picture within w_print_picture
boolean visible = false
integer x =  14 
integer y =  12 
integer width =  229 
integer height =  200 
boolean originalsize = true
boolean focusrectangle = false
end type