WITHOBJECT "CorelPHOTOPAINT.Automation.17"
	h& = .GetDocumentHeight()
	w& = .GetDocumentWidth()

	IF h > w THEN 
	p# = 250 / h
	w = w * p
	.ImageResample w, 250, 72, 72, TRUE

	ELSE
	p# = 250 / w
	h = h * p
	.ImageResample 250, h, 72, 72, TRUE
	END IF
END WITHOBJECT