打印预览时画上Tpanel中的数据长度比宽度还短，怎么办？烂额矣。(49分)

本人用的函数如下：(printview为Tpanel对象)
setmapmode(printview.canvas.handle,MM_isotropic);
setwindowextex(printview.canvas.handle,printer.pagewidth,printer.pageheight,nil);
setviewportextex(printview.canvas.handle,printview.width,printview.height,nil);
setviewportorgex(printview.canvas.handle,0,0,nil);