我使用此代码制作了一个示例应用,它适用于所有打印机 - USB、网络等:
AssignPrn(lOutputFile);
Rewrite(lOutputFile);
for liIndex := 0 to lsLines.Count-1 do
Writeln(lOutputFile, lsLines[liIndex]);
CloseFile(lOutputFile);
在示例应用程序的 CloseFile(lOutputFile);
上,控制进入 VCL 文件和打印工作。
当我将此代码集成到主应用程序中时,在 CloseFile(lOutputFile)
上,控制权以 dxPSPopupManKeyboardHook
方法进入 DevExpress 文件,并且不打印。
两个应用都使用相同的 IDE 设置,uses
子句也相同。
答案 0 :(得分:4)
要选择正确的函数,请使用完全限定的名称:
m0