Delphi 使用CODESOFT打印
爱水心寒 2015-12-18 04:22:02
// BarApp := GetActiveOleObject('lppx.Application');
BarApp := CreateOleObject('lppx.Application');
BarApp.Visible:=False;
BarDoc:=BarApp.ActiveDocument;
BarVars:=BarDoc.Variables;
BarDoc.Open(vDSNFile);
BarDoc.Variables.Item('Var0').Value := ‘123456’;
Bardoc.Printlabel(1);
BarDoc.FormFeed;
Bardoc.Close;
BarApp.Quit;
上面是打印的代码,现在使用CreateOleObject('lppx.Application')就会提示“文件名、目录名或者卷标语法错误",而当把CODESOFT软件打开以后,使用GetActiveOleObject('lppx.Application')则可以正常打印,还请各位指点迷境。