关于RichEdit的打印

FORMATRANGE fr;
long lPageWidth = ::MulDiv(pDC->GetDeviceCaps(HORZRES),1440,pDC->GetDeviceCaps(LOGPIXELSX));
long lPageHeight = ::MulDiv(pDC->GetDeviceCaps(VERTRES),1440,pDC->GetDeviceCaps(LOGPIXELSY));
CRect rcPage(0,0,lPageWidth,-lPageHeight);long lLeft = ::MulDiv(rcCell.left,lPageWidth,pDC->GetDeviceCaps(HORISIZE)*10);
long lRight = ::MulDiv(rcCell.right,lPageWidth,pDC->GetDeviceCaps(HORISIZE)*10);
long lTop = ::MulDiv(rcCell.top,lPageWidth,pDC->GetDeviceCaps(VERTSIZE)*10);
long lBottom = ::MulDiv(rcCell.bottom,lPageWidth,pDC->GetDeviceCaps(VERTSIZE)*10);
CRect rcc(lLeft, -lTop,lRight ,-lBottom );fr.hdcTarget = pDC->m_hAttribDC;
fr.hdc = pDC->m_hDC;
fr.rcPage= rcPage;
fr.rc= rcc;
fr.chrg.cpMin = 0;
fr.chrg.cpMax = -1;
long lRes = FormatRange(&fr,TRUE);这是写在CMyRichEdit的一个自己写的成员函数draw的代码,rcCell是要输出到的矩形框,单位是0.1毫米.但是这个函数最后只能打印第一行,位置和字体大小也不是很对,有谁能帮忙看看有什么错误吗