关于即打即停的问题

Question

如何实现打印报表的即打即停，就是说有多少打多少，打完就挺，纸是连续的。我现在就是往端口中写打印数据，但打印完，仍然走纸，直到把所有的纸都秃路一遍，郁闷！！是不是跟打印机设置有关？我的打印机是epson 300k。

Answer 1

to hawksoft(明月清风) 
我现在就是向端口写，如下，但不知道为什么，纸总是按A4的设置，也就是纸不走完A4他就不停。
apple800(老五)，如何设置纸的大小？我也想这样解决，我现在用QREPORT，不论我自定义纸的大小是多大，都没有用，打印的时候，总是按A4的给我打。郁闷死了。 uses Printers;procedure TForm1.Button1Click(Sender: TObject);
var
  tm : TTextMetric;
  i : integer;
begin
  if PrintDialog1.Execute then begin
    Printer.BeginDoc;
    Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);
    GetTextMetrics(Printer.Canvas.Handle, tm);
    for i := 1 to 10 do begin
      Printer.Canvas.TextOut(100,
                             i * tm.tmHeight +
                             tm.tmExternalLeading,
                             'Test');
    end;
    Printer.EndDoc;
  end;
end;

Answer 2

我解决了。升级到QR3。62。
http://www.delphifans.com/down_view.asp?id=295