打印代码调用

procedure TFlookorderbills.BprintABillClick(Sender: TObject);
var
  Errors:string;
begin
  if ZRD1.Active then
  begin
     if not isBatPrint.Checked then
     begin

         if (ZRD1.Fields[7].AsInteger>0) then
         begin
             dmd.PrintBill('orderbill','billid='+inttostr(ZRD1.Fields[0].AsInteger));
         end
         else dmd.MSG('订单未审核完成，不能打印！',mtError);
     end else begin
     //执行批量打印，打印列表中所有订单
         if dmd.MSG('当前操作为：批量打印订单。'+#13+#10+'确定此操作？',mtWarning)=mrOKthen
         begin
           try
               G1.Enabled:=false;
               Errors:='';
               ZRD1.First;
               dmd.BatPrintJob.NewJob('orderbill','Default');
               while not ZRD1.EOF do
               begin
                  if (ZRD1.Fields[7].AsInteger>0) then
                  begin
                     dmd.BatPrintJob.AddJob('billid='+inttostr(ZRD1.Fields[0].AsInteger));
                  end
                  else Errors:=Errors+#13+#10+'不能打印订单，原因：未审核，订单ID：'+inttostr(ZRD1.Fields[0].AsInteger);
                  ZRD1.Next;
               end ;
               if Errors<>'' then
                  ifdmd.MSG('有错误发生，是否继续打印？'+Errors,mtWarning)<>mrOKthen exit;
               dmd.PrintBatJob(false);
           finally
              G1.Enabled:=true;
           end ;
         end ;
     end ;

  end else dmd.MSG('列表中无订单可供打印。',mtError);
end;