如何打印richedit的内容，包括格式！很急，在线等待，来者有分！！！！！

Question

打印格式包括背景，字体，字体颜色，字体大小。
for instance ：
   ▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
   标题：xxxxxxxxxxx                  时间：2004－04－06
   内容：
  ★★★★★★★★★★★★★★★★★★★★★★★★★★★★
   下午开会
  ★★★★★★★★★★★★★★★★★★★★★★★★★★★★

Answer 1

我想你的问题主要是空格吧.
一个笨办法.用一个循环把RICHEDIT中的内容按行读出来给一个字符串变量.然后再到报表中去打印你的字符串变量.

Answer 2

我的代码是这样的。只能打印最后一行：
procedure TmessageForm.SpeedButton3Click(Sender: TObject);
var
  i:integer;
  Height:integer;    //文本行+空格的高度
  LineHeight:integer;//空格高度
  InchPixelsY:integer;//一英寸中的象素
  printer:tprinter;
begin
  printer:=tprinter.Create;
  Height:=0;
  InchPixelsY:=GetDeviceCaps(Printer.Handle,LogPixelsY);  printer.BeginDoc ;
  printer.Canvas.Font:=richedit1.Font;
  i:=0;
  while ((i<=richedit1.Lines.Count-1) and( not Printer.aborted) ) do
  begin
    LineHeight:=printer.Canvas.TextHeight('X')+InchPixelsY div 10;
    Height:=LineHeight+InchPixelsY div 5;    Printer.Canvas.TextOut(200,Height,richedit1.Lines[i]);
    //Canvas.TextRect(Rect(200,200,printer.PageWidth-200,printer.PageHeight-200),200, 200,richedit1.Lines.Text);
    //if Height+LineHeight>Printer.PageHeight then
    //  begin
    //    Height:=0;
    //    if (not Printer.Aborted) then
    //      printer.NewPage;
    // end;
    i:=i+1;  end;
 printer.EndDoc ;end;

Answer 3

void __fastcall ScreenToBitmap(Graphics::TBitmap *Bitmap)
{
   TCanvas  *ScreenCanvas;
   TRect  ScreenRect;  ScreenRect = TRect(0, 0, Screen->Width, Screen->Height);
  Bitmap->Height = ScreenRect.Bottom;
  Bitmap->Width = ScreenRect.Right;
  ScreenCanvas = new TCanvas;
  try
  {
    ScreenCanvas->Handle = GetWindowDC(GetDesktopWindow());
    Bitmap->Canvas->CopyRect(ScreenRect, ScreenCanvas, ScreenRect);
  }
  __finally
  {
    delete ScreenCanvas;
  }
}
//Printer.Canvas.Draw();

Answer 4

  我要用richedit，老板要求的，请你们
  快快帮我想想办法吧。
  谢谢，谢谢！！！！

Answer 5

把RichEdit中的东西不通过第三方控件打印出来？？