Delphi 选择指定打印机的方法《LceMeaning》

转载于 2019-07-06 21:24:04 发布 · 739 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/LceMeaning/p/3503296.html

本文详细解析了在DelphiXE2环境下实现消费单据打印功能的代码，通过读取配置文件判断是否打印，并在确认后调用报告组件进行打印设置与执行。代码展示了条件判断、消息框交互及报告组件的使用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下代码经本人Delphi XE2下编写并通过

          case Sysconfig.ReadInteger('Printer','IsPrint',0) of
            0:
              begin
                 if Sysconfig.ReadBool('Printer','Spending',False) then
                   begin
                     if MessageBox(Handle, PChar('是否打印消费单据?                                          '),
                       PChar('打印'), MB_ICONINFORMATION or MB_YESNO or MB_DEFBUTTON1) = IDYES then
                         begin
                           goto GoToS;
                         end;
                   end;
              end;
            1:
              begin
                GoToS :
                if Sysconfig.ReadBool('Printer','Spending',False) then
                   begin
                      frxReport1.Clear;
                      frxReport1.LoadFromFile('Report\MConsumer.fr3');
                      //frxReport1.ShowReport();
                      frxReport1.PrepareReport;
                      frxReport1.PrintOptions.ShowDialog := False;
                      frxReport1.PrintOptions.Printer := PrintName;  //此处一定要用变量
                      frxReport1.PrintOptions.Copies := Sysconfig.ReadInteger('Printer','SpendingCopies',1);
                      frxReport1.Print;
                   end;
              end;
          end;