深圳全飞鸿

标题: BarTender对打印机控制的实验报告 [打印本页]

---

作者: syant    时间: 2019-6-18 11:07
标题: BarTender对打印机控制的实验报告


BarTender对打印机控制的实验报告

实验一：
不用模板中的打印机，不用电脑默认打印机，动态切换打印机

1. var
   
2.   tmp:string;
   
3. begin
   
4.   memo1.Lines.Clear;
   
5.   btApp1.Formats.Open(extractfilepath(forms.application.exename)+'aa.btw',true,'');
   
6.   tmp:=btApp1.ActiveFormat.Printer;
   
7.   memo1.Lines.Add('old:'+tmp);
   
8.   //
   
9.   btApp1.ActiveFormat.PrintSetup.Printer:=self.ComboBox1.Text;
   
10.   tmp:=btApp1.ActiveFormat.Printer;
    
11.   memo1.Lines.Add('new:'+tmp);
    
12.   btApp1.ActiveFormat.PrintOut(False, False);
    
13.   btApp1.ActiveFormat.Close(btDoNotSaveChanges);
    
14. end;

复制代码

结论：可行！

实验二：

用指定打印机打开模板

1. var
   
2.   tmp:string;
   
3. begin
   
4.   memo1.Lines.Clear;
   
5.   btApp1.Formats.Open(extractfilepath(forms.application.exename)+'aa.btw',true,self.ComboBox1.Text);
   
6.   tmp:=btApp1.ActiveFormat.Printer;
   
7.   memo1.Lines.Add(tmp);
   
8.   btApp1.ActiveFormat.PrintOut(False, False);
   
9.   btApp1.ActiveFormat.Close(btDoNotSaveChanges);
   
10. end;

复制代码

结论：可行！


实验三：

模板中设定不同的打印机，是否可以从不同的打印机打印出条码

var
  tmp:string;
begin
  memo1.Lines.Clear;
  btApp1.Formats.Open(extractfilepath(forms.application.exename)+'aa.btw',true,'');
  tmp:=btApp1.ActiveFormat.Printer;
  memo1.Lines.Add(tmp);
  btApp1.ActiveFormat.PrintOut(False, False);
  btApp1.ActiveFormat.Close(btDoNotSaveChanges);
  btApp1.Formats.Open(extractfilepath(forms.application.exename)+'bb.btw',true,'');
  tmp:=btApp1.ActiveFormat.Printer;
  memo1.Lines.Add(tmp);
  btApp1.ActiveFormat.PrintOut(False, False);
  btApp1.ActiveFormat.Close(btDoNotSaveChanges);
end;

结论：可行！


实验四：

动态控制不同的打印机

1. var
   
2.   tmp:string;
   
3. begin
   
4.   memo1.Lines.Clear;
   
5.   btApp1.Formats.Open(extractfilepath(forms.application.exename)+'aa.btw',true,self.ComboBox1.Text);
   
6.   tmp:=btApp1.ActiveFormat.Printer;
   
7.   memo1.Lines.Add(tmp);
   
8.   btApp1.ActiveFormat.PrintOut(False, False);
   
9.   btApp1.ActiveFormat.Close(btDoNotSaveChanges);
   
10.   btApp1.Formats.Open(extractfilepath(forms.application.exename)+'bb.btw',true,self.ComboBox1.Text);
    
11.   tmp:=btApp1.ActiveFormat.Printer;
    
12.   memo1.Lines.Add(tmp);
    
13.   btApp1.ActiveFormat.PrintOut(False, False);
    
14.   btApp1.ActiveFormat.Close(btDoNotSaveChanges);
    
15. end;

复制代码

结论：可行！

---

作者: zhgc    时间: 2019-6-18 23:23
Printers, BarTender_TLB;

1. procedure TForm1.FormCreate(Sender: TObject);
   
2. begin
   
3.   ComboBox1.Items.Assign(Printer.Printers);
   
4.   ComboBox1.ItemIndex := 0;
   
5. end;

复制代码

---

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

Powered by Discuz! X3.2