一个高难度的打印问题，高手请进！ ( 积分: 50 )

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f1:TEXTFILE;
begin
ASSIGNFILE(F1,'LPT1');
REWRITE(F1);
WRITELN(F1,chr(27)+chr(64));
//相当于esc+@，初始化打印机
writeln(f1,chr(27)+chr(70)+'1');//相当于esc+f+1,向后送纸
CLOSEFILE(F1);
form2.QuickRep1.Print;
end;

为什么当打印时没有反映出上述代码的执行效果来呢？是不是上述代码不合理呀？

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f1:TEXTFILE;
begin
ASSIGNFILE(F1,'LPT1');
REWRITE(F1);
WRITELN(F1,chr(27)+chr(64));
//相当于esc+@，初始化打印机
writeln(f1,chr(27)+chr(70)+'1');//相当于esc+f+1,向后送纸
CLOSEFILE(F1);
form2.QuickRep1.Print;
end;

为什么当打印时没有反映出上述代码的执行效果来呢？是不是上述代码不合理呀？

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f1:TEXTFILE;
begin
form2.QuickRep1.Print;
ASSIGNFILE(F1,'LPT1');
REWRITE(F1);
WRITELN(F1,chr(27)+chr(64));
//相当于esc+@，初始化打印机
writeln(f1,chr(27)+chr(70)+'1');//相当于esc+f+1,向后送纸
CLOSEFILE(F1);
end;

这样好像管用，但是还是达不到要求，我撤消此问题！