// 开始打印
dm.report.PrepareReport();
dm.report.Print;
except
// 打印失败，重新加入任务队列
Self.FPrintQueue.Enqueue(OneTimePrint);
end;
finally
FreeAndNil(dm);
end;
end;

Sleep(1);
end;
end;

end.