深圳全飞鸿

标题: wiki的bartender打印程序 [打印本页]

作者: syant 时间: 2019-11-11 10:11
标题: wiki的bartender打印程序

  for i:=1 to zhang_qty do
  begin
//btApp1: TBtApplication;
with btApp1.Formats.Open(Y_name1,true,'') do
begin
   for j:=1 to cs_qty do
   begin
      forms.Application.ProcessMessages;
      SetNamedSubStringValue('SN'+inttostr(j), listview1.Items[strtoint(edit5.Text)-1].subItems.strings[0]);
      //sqltxt := 'update sfc';
   end;
   PrintOut(False, False);
    Close(btDoNotSaveChanges);
end;
  end;
  btApp1.Quit(btDoNotSaveChanges);

不太合理！

欢迎光临深圳全飞鸿 (http://www.nagomes.com/disc/)