wiki的bartender打印程序

syant

  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);


不太合理！