R
Redbreast
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠，为什么我用下列代码打印出的字串外面都在一个黑色的方框里呢？
我用的是激光打印机，Winxp神州第4版，升级n次！
我用WinME试了一下，就没有，这是怎么回事？
procedure TmainForm.N20Click(Sender: TObject);
var
MyFile: TextFile;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
Writeln(MyFile, 'Print this text!');
printer.Canvas.TextOut(200,400,'Print this text again!');
System.CloseFile(MyFile);
end;
我用的是激光打印机，Winxp神州第4版，升级n次！
我用WinME试了一下，就没有，这是怎么回事？
procedure TmainForm.N20Click(Sender: TObject);
var
MyFile: TextFile;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
Writeln(MyFile, 'Print this text!');
printer.Canvas.TextOut(200,400,'Print this text again!');
System.CloseFile(MyFile);
end;