long textSize = richEdit.GetWindowTextLength();
long printTextSize =  0 ;

formatPage.hdc = printer.GetSafeHdc();
formatPage.hdcTarget = printer.GetSafeHdc();
// fieldPage - отступы от края листа в твипах
formatPage.rc.left = fieldPage.left;
formatPage.rc.top = fieldPage.top;
formatPage.rc.bottom = ::MulDiv(printer.GetDeviceCaps(PHYSICALHEIGHT),
     1440 , printer.GetDeviceCaps(LOGPIXELSY)) - fieldPage.bottom;
formatPage.rc.right = ::MulDiv(printer.GetDeviceCaps(PHYSICALWIDTH),
     1440 , printer.GetDeviceCaps(LOGPIXELSX)) - fieldPage.right;
formatPage.rcPage = formatPage.rc;

while (printTextSize < textSize)
{
StartPage();
printTextSize += richEdit.FormatRange(&formatPage, FALSE);
formatPage.chrg.cpMin = printTextSize;
richEdit.DisplayBand(&formatPage.rc);
EndPage();
}

// Перевожу миллиметры в пиксели
result = ::MulDiv(printer.GetDeviceCaps(HORZRES), 
	mmeters, printer.GetDeviceCaps(HORZSIZE));

// Перевожу пиксели в twip'ы
result = ::MulDiv(result,  1440 , printer.GetDeviceCaps(LOGPIXELSX));