⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 printadounit.pas

📁 商品房合同套打程序
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
   end;
   with Printer.Canvas,previewform.adoquery14 do BEGIN
      TextOut(GETPX(108),GETPY(190),fieldbyname('交付使用日内').asstring );
      TextOut(GETPX(50),GETPY(217),fieldbyname('处理方式种类').asstring );
      TextOut(GETPX(155),GETPY(225),fieldbyname('退房要求日内').asstring );
   end;

end;

procedure PrintPage11;
begin
  with Printer.Canvas,previewform.adoquery12 do BEGIN
    splitPrint(fieldbyname('11交接方式处理').asstring,30,32,35,94,25);
    splitPrint(fieldbyname('12出卖人产权纠分处理备注').asstring,30,34,35,155,25);
    TextOut(GETPX(52),GETPY(207),fieldbyname('13处理方式种类').asstring );
    splitPrint(fieldbyname('132处理方式').asstring,30,30,40,225,40);
  end;
end;

procedure printPage10;
var
  x:integer;
begin
   x:=45;
   with Printer.Canvas,previewform.adoquery11 do BEGIN
      TextOut(GETPX(x),GETPY(60),fieldbyname('2规划设计变更约定').asstring );
      TextOut(GETPX(x),GETPY(69),fieldbyname('3规划设计变更约定').asstring );
      TextOut(GETPX(x),GETPY(79),fieldbyname('4规划设计变更约定').asstring );
      TextOut(GETPX(x),GETPY(88),fieldbyname('5规划设计变更约定').asstring );
      TextOut(GETPX(x),GETPY(97),fieldbyname('6规划设计变更约定').asstring );
      TextOut(GETPX(x),GETPY(106),fieldbyname('7规划设计变更约定').asstring );
      TextOut(GETPX(157),GETPY(143),fieldbyname('退房要求日数内').asstring );
      TextOut(GETPX(118),GETPY(152),fieldbyname('利息利率').asstring );

      splitPrint(fieldbyname('备注').asstring,30,32,35,178,25);
   end;
end;

procedure Printpage9;
begin
  with Printer.Canvas,previewform.adoquery10 do BEGIN
      TextOut(GETPX(140),GETPY(59),fieldbyname('违约处理方式').asstring );
      TextOut(GETPX(75),GETPY(85),fieldbyname('逾期天数之内').asstring );
      TextOut(GETPX(63),GETPY(102),fieldbyname('1违约金万分比').asstring );
      TextOut(GETPX(70),GETPY(110),fieldbyname('逾期天数之后').asstring );
      TextOut(GETPX(150),GETPY(120),fieldbyname('通知到达日之内').asstring );
      TextOut(GETPX(123),GETPY(129),fieldbyname('已付款百分比').asstring );
      TextOut(GETPX(119),GETPY(155),fieldbyname('2违约金万分比').asstring );

      splitPrint(fieldbyname('其他处理方式').asstring,30,34,45,173,25);
  end;
end;


procedure PrintPage8;
begin
  with Printer.Canvas,previewform.adoquery8 do BEGIN
     splitPrint(fieldbyname('其他处理方式').asstring,30,34,40,50,25);
  end;
  with Printer.Canvas,previewform.adoquery9 do BEGIN
      TextOut(GETPX(67),GETPY(103),fieldbyname('交付期限年').asstring );
      TextOut(GETPX(82),GETPY(103),fieldbyname('交付期限月').asstring );
      TextOut(GETPX(97),GETPY(103),fieldbyname('交付期限日').asstring );
      TextOut(GETPX(97),GETPY(112),fieldbyname('条件类型').asstring );

      splitPrint(fieldbyname('其他条件').asstring,30,30,40,163,40);

      TextOut(GETPX(132),GETPY(192),fieldbyname('特殊原因日内').asstring );

      splitPrint(fieldbyname('特殊原因2').asstring,30,30,40,206,40);
      splitPrint(fieldbyname('特殊原因3').asstring,30,34,40,217,25);
  end;

end;

procedure PrintPage7;
begin
  with Printer.Canvas,previewform.adoquery7 do BEGIN
      splitPrint(fieldbyname('一次性付款').asstring,30,32,35,42,25);
      splitPrint(fieldbyname('分期付款').asstring,30,32,35,68,25);
      splitPrint(fieldbyname('其他方式').asstring,30,32,35,95,25);
  end;
  with Printer.Canvas,previewform.adoquery8 do BEGIN
      TextOut(GETPX(142),GETPY(120),fieldbyname('违约处理方式').asstring );
      TextOut(GETPX(62),GETPY(147),fieldbyname('逾期天数之内').asstring );
      TextOut(GETPX(62),GETPY(165),fieldbyname('1违约金万分比').asstring );
      TextOut(GETPX(67),GETPY(173),fieldbyname('逾期天数之后').asstring );
      TextOut(GETPX(95),GETPY(182),fieldbyname('违约金百分比').asstring );
      TextOut(GETPX(130),GETPY(207),fieldbyname('2违约金万分比').asstring );
  end;
end;

procedure printpage3;
begin
   with Printer.Canvas,previewform.adoquery1 do BEGIN
      TextOut(GETPX(60),GETPY(34),fieldbyname('买受人邮政编码').asstring );
      TextOut(GETPX(125),GETPY(34),fieldbyname('买受人联系电话').asstring );
      TextOut(GETPX(110),GETPY(42),fieldbyname('买受人委托代理人姓名').asstring );
      TextOut(GETPX(70),GETPY(42),fieldbyname('买受人委托代理人类型').asstring );
      TextOut(GETPX(150),GETPY(42),fieldbyname('买受人委托代理人国籍').asstring );
      TextOut(GETPX(50),GETPY(50),fieldbyname('买受人委托代理人地址').asstring );
      TextOut(GETPX(60),GETPY(60),fieldbyname('买受人委托代理人邮政编码').asstring );
      TextOut(GETPX(108),GETPY(60),fieldbyname('买受人委托代理人联系电话').asstring );
   END;
   with Printer.Canvas,previewform.adoquery2 do BEGIN
      TextOut(GETPX(58),GETPY(103),fieldbyname('项目建设依据取得方式').asstring );
      splitPrint(fieldbyname('项目建设依据位于').asstring,9,9,113,100,113);

      splitPrint(fieldbyname('项目建设依据地块编号').asstring,14,14,25,110,25);

      TextOut(GETPX(42),GETPY(130),fieldbyname('项目建设依据出让划拨转让号码').asstring );
      TextOut(GETPX(75),GETPY(138),fieldbyname('项目建设依据地块面积').asstring );
      TextOut(GETPX(125),GETPY(138),fieldbyname('项目建设依据划拨用途').asstring );

      TextOut(GETPX(45),GETPY(147),fieldbyname('项目建设依据使用年限自年').asstring );
      TextOut(GETPX(60),GETPY(147),fieldbyname('项目建设依据使用年限自月').asstring );
      TextOut(GETPX(75),GETPY(147),fieldbyname('项目建设依据使用年限自日').asstring );
      TextOut(GETPX(95),GETPY(147),fieldbyname('项目建设依据使用年限至年').asstring );
      TextOut(GETPX(110),GETPY(147),fieldbyname('项目建设依据使用年限至月').asstring );
      TextOut(GETPX(125),GETPY(147),fieldbyname('项目建设依据使用年限至日').asstring );

      TextOut(GETPX(40),GETPY(165),fieldbyname('项目建设依据商品房名称').asstring );
      TextOut(GETPX(25),GETPY(174),fieldbyname('项目建设依据建设工程许可证号').asstring );
      TextOut(GETPX(95),GETPY(174),fieldbyname('项目建设依据施工许可证号').asstring );

      splitPrint(fieldbyname('项目建设依据备注').asstring,30,32,35,182,25);

   END;
   with Printer.Canvas,previewform.adoquery3 do BEGIN
      TextOut(GETPX(55),GETPY(216),fieldbyname('商品房销售依据批准机关').asstring );
      TextOut(GETPX(25),GETPY(226),fieldbyname('商品房销售依据预售许可证号').asstring );
   END;
END;

procedure printpage4;
begin
   with Printer.Canvas,previewform.adoquery3 do BEGIN
     splitPrint (fieldbyname('商品房销售依据备注').AsString,30,32,35,34,25);
   end;
   with Printer.Canvas,previewform.adoquery4 do BEGIN
      TextOut(GETPX(45),GETPY(83),fieldbyname('商品房基本情况幢座').asstring );
      TextOut(GETPX(100),GETPY(83),fieldbyname('商品房基本情况层').asstring );
      TextOut(GETPX(25),GETPY(92),fieldbyname('商品房基本情况房号').asstring );
      TextOut(GETPX(80),GETPY(100),fieldbyname('商品房基本情况用途').asstring );
      TextOut(GETPX(113),GETPY(100),fieldbyname('商品房基本情况结构').asstring );
      TextOut(GETPX(25),GETPY(108),fieldbyname('商品房基本情况层高').asstring );
      TextOut(GETPX(80),GETPY(108),fieldbyname('商品房基本情况地上层数').asstring );
      TextOut(GETPX(110),GETPY(108),fieldbyname('商品房基本情况地下层数').asstring );
      splitPrint(fieldbyname('商品房基本情况备注0').asstring,30,32,35,123,25);

      TextOut(GETPX(142),GETPY(134),fieldbyname('商品房基本情况建筑面积').asstring );
      TextOut(GETPX(82),GETPY(142),fieldbyname('商品房基本情况套内面积').asstring );
      TextOut(GETPX(57),GETPY(150),fieldbyname('商品房基本情况分摊面积').asstring );
      splitPrint(fieldbyname('商品房基本情况备注1').asstring,30,32,35,167,25);
      splitPrint(fieldbyname('商品房基本情况备注2').asstring,30,32,35,184,25);

   end;
   with Printer.Canvas,previewform.adoquery5 do BEGIN
      TextOut(GETPX(105),GETPY(209),fieldbyname('计价方式种类').asstring );
      TextOut(GETPX(125),GETPY(225),fieldbyname('1单价币种').asstring );
   end;
end;

procedure PrintPage15;
begin
    with Printer.Canvas,previewform.adoquery16 do BEGIN
      TextOut(GETPX(110),GETPY(40),fieldbyname('22合同页数').asstring );
      TextOut(GETPX(142),GETPY(40),fieldbyname('22合同份数').asstring );
      TextOut(GETPX(55),GETPY(57),fieldbyname('22出卖人份数').asstring );
      TextOut(GETPX(92),GETPY(57),fieldbyname('22买受人份数').asstring );
      TextOut(GETPX(110),GETPY(57),fieldbyname('22其他份数1').asstring );
      TextOut(GETPX(25),GETPY(65),fieldbyname('22其他份数2').asstring );
      TextOut(GETPX(55),GETPY(90),fieldbyname('24申请单位').asstring );
   end;
   with Printer.Canvas,previewform.adoquery1 do BEGIN
      TextOut(GETPX(36),GETPY(178),fieldbyname('出卖人签字年').asstring );
      TextOut(GETPX(55),GETPY(178),fieldbyname('出卖人签字月').asstring );
      TextOut(GETPX(70),GETPY(178),fieldbyname('出卖人签字日').asstring );
      TextOut(GETPX(50),GETPY(186),fieldbyname('出卖人签字地点').asstring );
      TextOut(GETPX(97),GETPY(178),fieldbyname('买受人签字年').asstring );
      TextOut(GETPX(115),GETPY(178),fieldbyname('买受人签字月').asstring );
      TextOut(GETPX(130),GETPY(178),fieldbyname('买受人签字日').asstring );
      TextOut(GETPX(110),GETPY(186),fieldbyname('买受人签字地点').asstring );
   end;
end;
procedure PrintPage2;
begin
    with Printer.Canvas,previewform.adoquery1 do BEGIN
      TextOut(GETPX(90),GETPY(60), fieldbyname('合同编号').asstring );
      TextOut(GETPX(60),GETPY(85),fieldbyname('出卖人').asstring );
      TextOut(GETPX(80),GETPY(93) ,fieldbyname('出卖人注册地址').asstring );
      TextOut(GETPX(80),GETPY(102),fieldbyname('出卖人营业执照注册号').asstring );
      TextOut(GETPX(80),GETPY(111),fieldbyname('出卖人企业资质证书号').asstring );
      TextOut(GETPX(80),GETPY(120),fieldbyname('出卖人法定代表人').asstring );
      TextOut(GETPX(135),GETPY(120),fieldbyname('出卖人联系电话').asstring );
      TextOut(GETPX(70),GETPY(128),fieldbyname('出卖人邮政编码').asstring );
      TextOut(GETPX(70),GETPY(137),fieldbyname('委托代理人').asstring );
      TextOut(GETPX(110),GETPY(137),fieldbyname('委托代理人地址').asstring );
      TextOut(GETPX(70),GETPY(146),fieldbyname('委托代理人邮政编码').asstring );
      TextOut(GETPX(135),GETPY(146),fieldbyname('委托代理人联系电话').asstring );
      TextOut(GETPX(80),GETPY(155),fieldbyname('委托代理机构').asstring );
      TextOut(GETPX(70),GETPY(163),fieldbyname('委托代理机构注册地址').asstring );
      TextOut(GETPX(80),GETPY(172),fieldbyname('委托代理机构营业执照注册号').asstring );
      TextOut(GETPX(70),GETPY(181),fieldbyname('委托代理机构法定代表人').asstring );
      TextOut(GETPX(135),GETPY(181),fieldbyname('委托代理机构联系电话').asstring );
      TextOut(GETPX(70),GETPY(190),fieldbyname('委托代理机构邮政编码').asstring );
      TextOut(GETPX(60),GETPY(199),fieldbyname('买受人').asstring );
      TextOut(GETPX(105),GETPY(206),fieldbyname('买受人姓名').asstring );
      TextOut(GETPX(145),GETPY(206),fieldbyname('买受人国籍').asstring );
      TextOut(GETPX(125),GETPY(215),fieldbyname('买受人证件名称').asstring );
      TextOut(GETPX(143),GETPY(215),fieldbyname('买受人证件号').asstring );
      TextOut(GETPX(60),GETPY(225),fieldbyname('买受人地址').asstring );
     end;
end;

procedure printpage14;
var

   s:string;
begin
   with Printer.Canvas,previewform.adoquery15 do BEGIN
      TextOut(GETPX(105),GETPY(40),fieldbyname('小区命名权约定').AsString  );

      s:= fieldbyname('1其他约定').asstring ;
      splitPrint (s,28,28,45,60,45);
      s:= fieldbyname('2其他约定').asstring ;
      splitPrint (s,28,28,45,77,45);

   end;
   with Printer.Canvas,previewform.adoquery16 do BEGIN
      TextOut(GETPX(105),GETPY(94),fieldbyname('18使用类型').asstring );
      TextOut(GETPX(35),GETPY(155),fieldbyname('18备注').asstring );
      TextOut(GETPX(103),GETPY(180),fieldbyname('19争议解决方式种类').asstring );
      TextOut(GETPX(55),GETPY(190),fieldbyname('19仲裁委员会名称').asstring );
   end;
end;

procedure printpage13;
begin
   with Printer.Canvas,previewform.adoquery14 do BEGIN
      TextOut(GETPX(152),GETPY(33),fieldbyname('已退房房价款百分比').asstring );
      TextOut(GETPX(127),GETPY(50),fieldbyname('未退房房价款百分比').asstring );
      splitPrint (fieldbyname('备注').asstring,30,34,40,70,25);
   end;
   with Printer.Canvas,previewform.adoquery15 do BEGIN
      splitPrint(fieldbyname('16保修责任').asstring,30,32,35,165,25);
      splitPrint (fieldbyname('屋面使用权约定').asstring,10,28,120,190,25);
      splitPrint (fieldbyname('外墙面使用权约定').asstring,10,28,120,209,25);
      TextOut(GETPX(105),GETPY(225),fieldbyname('楼宇命名权约定').asstring );
   end;

end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -