任意打印

有時我們要打印任意排列的表或往已經印好的登記表上對號入座寫上數據時，可以新建一個窗體（假設為Form1），再把Form1的BorderStyle設為bsNone、AutoScroll設為True，接下來再創建一個新窗體（假設為Form2），再建個按鈕Button1，編寫代碼：
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Width :=900;
Form1.Height :=800;
Form1.Print;
end;
接下來你在Form1上對應的位置寫上數據，運行後按Button1就會一五一十的打印下來了。