请问如何做一个程序，打印对联？

Question

要做一个程序打印对联
怎么实现，谢谢！

Answer 1

没问题呀，只要设纸张为“自定义(Custom)”，指定其宽、长就行了

Answer 2

一个笨方法，QREPORT，动态生成qrlabel,一个字一个字打.

Answer 3

delphi有个Tprinter类。
提供Tcanvas，用canvas的textout方法
输出即可
ex：
---------------
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;
//-----------------------

Answer 4

简单点吧，用某一报表工具如quickreport、fastreport、rave等都行啊