1. 最简单: 把printer的进纸设成手动进纸就可以了.
2.
var
i:integer;
begin
repeat
inc(i);
yourQr.PrinterSettings.FirstPage := i;
yourQr.PrinterSettings.lastPage := i;
yourQr.PrinterSettings.ApplySettings;
try
yourQr.Print;
except
break;
end;
until MessageDlg('continue?',mtConfirmation, [mbYes, mbNo], 0) = mrNo;