Sub PrintTo(g as graphics,x as integer, y as integer ,px as integer,py as integer,pwidth as integer,pheight as integer, scale as Double)