求教几个页面打印，打印预览的问题～～～～～～～～～～

Question

现在作一个调查问卷的软件，需要有简单的打印功能，包括打印单页试题和全部试题，包括选择填空复合题型 等，原样打出即可 有以下几个问题（delphi2005开发环境）1，delphi作打印，打印预览都用什么控件？有自带的或开源免费使用的吗 2，有关delphi源码例子最简单实用的网站有那些 我以前是搞。net的 codeproject上感觉一些简单应用的很齐全了，但没接触过delphi，这几天国外的网站又慢的很 无奈～～～江湖救急 期待delphi高手指点～～ 有简单实用的例子最好，太复杂就看不懂了 非常感谢～～～～～～～～～～～

Answer 1

Delphi有个Printer对象, 直接在Printer的Canvas上画就行了.
Delphi帮助里的例子:
uses
  printer;procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Brush.Style := bsClear;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(Memo1.Lines.Strings[i])),
                   Memo1.Lines.Strings[i]);      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
end;如果不想自己画好象没什么合适的控件, 不如就用Word, Wps了.