DELPHI的TPRINTER打印问题?
我在用TPRINTER做打印时,第一次打印正常输出,但第二次出现系统(NT4.0)报错:
SPOOLSS.EXE程序访问冲突。
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
ppix,ppiy,xpcm,ypcm : integer;
begin
ppix := getdevicecaps(PRINTER.HANDLE,LOGPIXELSX);
ppiy := getdevicecaps(PRINTER.HANDLE,LOGPIXELSY);
xpcm := trunc(ppix/2.54);
ypcm := trunc(ppiy/2.54);
try
printer.BeginDoc;
printer.Canvas.TextOut(trunc(3.5*xpcm),trunc(2.5*ypcm),'请各位大侠帮忙解决');
printer.EndDoc();
except
printer.Abort();
end;
end;
错在第二次按Button,用的是网络打印机,且本机的打印设备也不见了,重起计算机又好了。