如何做打印，餐饮软件，分凉菜、热菜、酒水三个地方三台打印机，100分，如果分不够，以后有分再加

客人点完菜后，将菜单分送到各个地方（凉菜、热菜、酒水）打印机上打印出来。  
   
  请问用程序怎么写来控制打印，怎样设置打印机，改变默认打印机吗？  
  需要每个包厢里的电脑都安装这三台打印机的驱程吗？  
   
  如果分不够，以后有分再加！！！ 问题点数：100、回复次数：5Top

1 楼yqdragon（小布点）回复于 2005-05-20 12:17:34 得分 5

三个地方得到的结果应该是一样的啊，在哪个地方打都可以啊。只是按分类列出，程序用C/STop

2 楼shirleyttt（兔兔）回复于 2005-05-20 12:26:38 得分 0

100个包厢都在往这三个地方送单打印，中间会有冲突吗？会自动排队吗，Top

3 楼kangji（尾鱼头）回复于 2005-05-20 13:35:49 得分 5

同时在三个地方打印，你需要自己控制打印行为Top

4 楼naner_china（naner）回复于 2005-05-20 14:07:56 得分 80

动态改变Windows的默认打印机  
   
   
  在窗体中加入combobox和两个button  
   
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      ComboBox1.Items   :=   Printer.Printers;   {populates   ComboBox}  
      ComboBox1.ItemIndex   :=   Printer.PrinterIndex;   {sets   display   to   current   printer}  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  var  
      Device:   array[0..255]   of   Char;  
      Driver:   array[0..255]   of   char;  
      Port:   array[0..255]   of   char;  
      s   :   array[0..255]   of   Char;  
      hDeviceMode:   THandle;  
   
  begin  
   
      Printer.PrinterIndex   :=   ComboBox1.ItemIndex;  
      Printer.GetPrinter   (Device,   Driver,   Port,   hDeviceMode);  
      StrCopy   (s,   Device);  
      StrCat   (s,   ',');  
      StrCat   (s,   Driver);  
      StrCat   (s,   ',');  
      StrCat   (s,   Port);  
      WriteProfileString   ('windows',   'device',   s);  
      StrCopy   (s,   'windows');  
      SendMessage   (HWND_BROADCAST,   WM_WININICHANGE,   0,   LongInt(@s));  
   
  end;  
   
  http://community.csdn.net/Expert/topic/4003/4003262.xml?temp=.7327997Top

5 楼duanhai（段海）回复于 2005-05-20 14:33:54 得分 10

既然是三臺打印機，那就不同的打印機打印不同的類別不就完了？  
   
  你只要那個類別的設置接口做出來就行了  
   
  不知道有沒有說明白Top

相关问题

• 打印
• 打印机
• printer
• combobox
• 菜
• 地方
• strcat
• device
• array
• driver

• 帖主：shirleyttt
• yqdragon
• kangji
• naner_china
• duanhai

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载