我用Printer打印报表,激光打印机打印出的表格单元格全是黑块,针式打印机又是正常的,急死我了。代码如下:Printer.ScaleMode = vbPixelsPrinter.Line (rectCell.Left, rectCell.Top)-(rectCell.Right, rectCell.Bottom), , BDrawText Printer.hDC, sCellText, -1, rectCell,_
         nDrawAlign + DT_WORDBREAK + DT_VCENTER