Canon 打印机不动（而程序运行看起来正常）----200分(200分)

这么一段程序，简单得不能再简单了！！！
type
PhotoData = record
rect: TRect;
index: integer;
end;

var
Photos: array [1..MaxPhotos] of PhotoData;
...;
printer.Title := '......';
printer.begin
Doc;
SetStretchBltMode(Printer.Canvas.Handle, HALFTONE);
for i := 1 to CountPhotodo
begin
bmpTemp.LoadFromFile(PhotoPath + 'cut' + inttostr(Photos.index) + '.bmp');
with Photos.rectdo
begin
l := round(left * ratePrint);
t := round(top * ratePrint);
r := round(right * ratePrint);
b := round(bottom * ratePrint);
end;

Printer.Canvas.StretchDraw(Rect(l, t, r, b), bmpTemp);
end;
Printer.EndDoc;
在我的机器上一直正常，可是在别的机器上有时出现打印机不动的现象。
~~~ ~~~~~~
程序运行的流程一切正确，打印机也能开始打印，
但进度条走到 10-20％ 左右，打印机就停在那儿不动了。
我用 画笔 和 ACDSee 又能打印！！！
我觉得这是我的程序和驱动程序配合得不好的原因，但我不知道该怎么解决。
我该怎么办？
谢谢各位

不太会.

NND，怕了它了，愣是没搞懂[]