📄 printadounit.pas
字号:
TextOut(GETPX(110 + OFX), GETPY(108 + OFY), fieldbyname('商品房基本情况地下层数').asstring);
splitPrint(fieldbyname('商品房基本情况备注0').asstring, 30, 32, 35 + OFX, 123 + OFY, 25 + OFX);
TextOut(GETPX(142 + OFX), GETPY(134 + OFY), fieldbyname('商品房基本情况建筑面积').asstring);
TextOut(GETPX(82 + OFX), GETPY(142 + OFY), fieldbyname('商品房基本情况套内面积').asstring);
TextOut(GETPX(57 + OFX), GETPY(150 + OFY), fieldbyname('商品房基本情况分摊面积').asstring);
splitPrint(fieldbyname('商品房基本情况备注1').asstring, 30, 32, 35 + OFX, 167 + OFY, 25 + OFX);
splitPrint(fieldbyname('商品房基本情况备注2').asstring, 30, 32, 35 + OFX, 184 + OFY, 25 + OFX);
end;
with Printer.Canvas, previewform.adoquery5 do begin
TextOut(GETPX(105 + OFX), GETPY(209 + OFY), fieldbyname('计价方式种类').asstring);
TextOut(GETPX(125 + OFX), GETPY(225 + OFY), fieldbyname('1单价币种').asstring);
end;
end;
procedure PrintPage15;
var
INI: TINIFILE;
OFX, OFY: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P15', 'OFX', 0);
OFY := INI.ReadInteger('P15', 'OFY', 0);
INI.Free;
with Printer.Canvas, previewform.adoquery16 do begin
TextOut(GETPX(110 + OFX), GETPY(40 + OFY), fieldbyname('22合同页数').asstring);
TextOut(GETPX(142 + OFX), GETPY(40 + OFY), fieldbyname('22合同份数').asstring);
TextOut(GETPX(55 + OFX), GETPY(57 + OFY), fieldbyname('22出卖人份数').asstring);
TextOut(GETPX(92 + OFX), GETPY(57 + OFY), fieldbyname('22买受人份数').asstring);
TextOut(GETPX(110 + OFX), GETPY(57 + OFY), fieldbyname('22其他份数1').asstring);
TextOut(GETPX(25 + OFX), GETPY(65 + OFY), fieldbyname('22其他份数2').asstring);
TextOut(GETPX(55 + OFX), GETPY(90 + OFY), fieldbyname('24申请单位').asstring);
end;
with Printer.Canvas, previewform.adoquery1 do begin
TextOut(GETPX(36 + OFX), GETPY(178 + OFY), fieldbyname('出卖人签字年').asstring);
TextOut(GETPX(55 + OFX), GETPY(178 + OFY), fieldbyname('出卖人签字月').asstring);
TextOut(GETPX(70 + OFX), GETPY(178 + OFY), fieldbyname('出卖人签字日').asstring);
TextOut(GETPX(50 + OFX), GETPY(186 + OFY), fieldbyname('出卖人签字地点').asstring);
TextOut(GETPX(97 + OFX), GETPY(178 + OFY), fieldbyname('买受人签字年').asstring);
TextOut(GETPX(115 + OFX), GETPY(178 + OFY), fieldbyname('买受人签字月').asstring);
TextOut(GETPX(130 + OFX), GETPY(178 + OFY), fieldbyname('买受人签字日').asstring);
TextOut(GETPX(110 + OFX), GETPY(186 + OFY), fieldbyname('买受人签字地点').asstring);
end;
end;
procedure PrintPage2;
var
INI: TINIFILE;
OFX, OFY: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P2', 'OFX', 0);
OFY := INI.ReadInteger('P2', 'OFY', 0);
INI.Free;
with Printer.Canvas, previewform.adoquery1 do begin
TextOut(GETPX(90 + OFX), GETPY(64 + OFY), fieldbyname('合同编号').asstring);
TextOut(GETPX(60 + OFX), GETPY(85 + OFY), fieldbyname('出卖人').asstring);
TextOut(GETPX(80 + OFX), GETPY(93 + OFY), fieldbyname('出卖人注册地址').asstring);
TextOut(GETPX(80 + OFX), GETPY(102 + OFY), fieldbyname('出卖人营业执照注册号').asstring);
TextOut(GETPX(80 + OFX), GETPY(111 + OFY), fieldbyname('出卖人企业资质证书号').asstring);
TextOut(GETPX(80 + OFX), GETPY(120 + OFY), fieldbyname('出卖人法定代表人').asstring);
TextOut(GETPX(135 + OFX), GETPY(120 + OFY), fieldbyname('出卖人联系电话').asstring);
TextOut(GETPX(70 + OFX), GETPY(128 + OFY), fieldbyname('出卖人邮政编码').asstring);
TextOut(GETPX(70 + OFX), GETPY(137 + OFY), fieldbyname('委托代理人').asstring);
TextOut(GETPX(110 + OFX), GETPY(137 + OFY), fieldbyname('委托代理人地址').asstring);
TextOut(GETPX(70 + OFX), GETPY(146 + OFY), fieldbyname('委托代理人邮政编码').asstring);
TextOut(GETPX(135 + OFX), GETPY(146 + OFY), fieldbyname('委托代理人联系电话').asstring);
TextOut(GETPX(80 + OFX), GETPY(155 + OFY), fieldbyname('委托代理机构').asstring);
TextOut(GETPX(70 + OFX), GETPY(163 + OFY), fieldbyname('委托代理机构注册地址').asstring);
TextOut(GETPX(80 + OFX), GETPY(172 + OFY), fieldbyname('委托代理机构营业执照注册号').asstring);
TextOut(GETPX(70 + OFX), GETPY(181 + OFY), fieldbyname('委托代理机构法定代表人').asstring);
TextOut(GETPX(135 + OFX), GETPY(181 + OFY), fieldbyname('委托代理机构联系电话').asstring);
TextOut(GETPX(70 + OFX), GETPY(190 + OFY), fieldbyname('委托代理机构邮政编码').asstring);
TextOut(GETPX(60 + OFX), GETPY(199 + OFY), fieldbyname('买受人').asstring);
TextOut(GETPX(105 + OFX), GETPY(207 + OFY), fieldbyname('买受人姓名').asstring);
TextOut(GETPX(145 + OFX), GETPY(207 + OFY), fieldbyname('买受人国籍').asstring);
TextOut(GETPX(125 + OFX), GETPY(216 + OFY), fieldbyname('买受人证件名称').asstring);
TextOut(GETPX(143 + OFX), GETPY(216 + OFY), fieldbyname('买受人证件号').asstring);
TextOut(GETPX(60 + OFX), GETPY(225 + OFY), fieldbyname('买受人地址').asstring);
end;
end;
procedure printpage14;
var
s: string;
INI: TINIFILE;
OFX, OFY: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P14', 'OFX', 0);
OFY := INI.ReadInteger('P14', 'OFY', 0);
INI.Free;
with Printer.Canvas, previewform.adoquery15 do begin
TextOut(GETPX(105 + OFX), GETPY(40 + OFY), fieldbyname('小区命名权约定').AsString);
s := fieldbyname('1其他约定').asstring;
splitPrint(s, 28, 28, 45 + OFX, 60 + OFY, 45 + OFX);
s := fieldbyname('2其他约定').asstring;
splitPrint(s, 28, 28, 45 + OFX, 77 + OFY, 45 + OFX);
end;
with Printer.Canvas, previewform.adoquery16 do begin
TextOut(GETPX(105 + OFX), GETPY(94 + OFY), fieldbyname('18使用类型').asstring);
TextOut(GETPX(35 + OFX), GETPY(155 + OFY), fieldbyname('18备注').asstring);
TextOut(GETPX(103 + OFX), GETPY(180 + OFY), fieldbyname('19争议解决方式种类').asstring);
TextOut(GETPX(55 + OFX), GETPY(190 + OFY), fieldbyname('19仲裁委员会名称').asstring);
end;
end;
procedure printpage13;
var
INI: TINIFILE;
OFX, OFY: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P13', 'OFX', 0);
OFY := INI.ReadInteger('P13', 'OFY', 0);
INI.Free;
with Printer.Canvas, previewform.adoquery14 do begin
TextOut(GETPX(152 + OFX), GETPY(33 + OFY), fieldbyname('已退房房价款百分比').asstring);
TextOut(GETPX(127 + OFX), GETPY(50 + OFY), fieldbyname('未退房房价款百分比').asstring);
splitPrint(fieldbyname('备注').asstring, 30, 34, 40 + OFX, 68 + OFY, 25 + OFX);
end;
with Printer.Canvas, previewform.adoquery15 do begin
splitPrint(fieldbyname('16保修责任').asstring, 30, 32, 35 + OFX, 165 + OFY, 25 + OFX);
splitPrint(fieldbyname('屋面使用权约定').asstring, 10, 28, 120 + OFX, 190 + OFY, 25 + OFX);
splitPrint(fieldbyname('外墙面使用权约定').asstring, 10, 28, 120 + OFX, 209 + OFY, 25 + OFX);
TextOut(GETPX(105 + OFX), GETPY(225 + OFY), fieldbyname('楼宇命名权约定').asstring);
end;
end;
procedure PrintPage2_15;
var
INI: TINIFILE;
OFX, OFY,ofp,OFPY: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P2_15', 'OFX', 0);
OFY := INI.ReadInteger('P2_15', 'OFY', 0);
OFP := INI.ReadInteger('P2_15', 'OFP', 0);
OFPY := INI.ReadInteger('P2_15', 'OFPY', 0);
INI.Free;
with Printer.Canvas, FORM3.adoquery1 do begin
TextOut(GETPX(90 + OFX), GETPY(64 + OFY), fieldbyname('合同编号').asstring);
TextOut(GETPX(60 + OFX), GETPY(85 + OFY), fieldbyname('出卖人').asstring);
TextOut(GETPX(65 + OFX), GETPY(93 + OFY), fieldbyname('出卖人注册地址').asstring);
TextOut(GETPX(80 + OFX), GETPY(102 + OFY), fieldbyname('出卖人营业执照注册号').asstring);
TextOut(GETPX(80 + OFX), GETPY(111 + OFY), fieldbyname('出卖人企业资质证书号').asstring);
TextOut(GETPX(80 + OFX), GETPY(120 + OFY), fieldbyname('出卖人法定代表人').asstring);
TextOut(GETPX(135 + OFX), GETPY(120 + OFY), fieldbyname('出卖人联系电话').asstring);
TextOut(GETPX(70 + OFX), GETPY(128 + OFY), fieldbyname('出卖人邮政编码').asstring);
TextOut(GETPX(70 + OFX), GETPY(137 + OFY), fieldbyname('委托代理人').asstring);
TextOut(GETPX(110 + OFX), GETPY(137 + OFY), fieldbyname('委托代理人地址').asstring);
TextOut(GETPX(70 + OFX), GETPY(146 + OFY), fieldbyname('委托代理人邮政编码').asstring);
TextOut(GETPX(135 + OFX), GETPY(146 + OFY), fieldbyname('委托代理人联系电话').asstring);
TextOut(GETPX(80 + OFX), GETPY(155 + OFY), fieldbyname('委托代理机构').asstring);
TextOut(GETPX(70 + OFX), GETPY(163 + OFY), fieldbyname('委托代理机构注册地址').asstring);
TextOut(GETPX(80 + OFX), GETPY(172 + OFY), fieldbyname('委托代理机构营业执照注册号').asstring);
TextOut(GETPX(70 + OFX), GETPY(181 + OFY), fieldbyname('委托代理机构法定代表人').asstring);
TextOut(GETPX(135 + OFX), GETPY(181 + OFY), fieldbyname('委托代理机构联系电话').asstring);
TextOut(GETPX(70 + OFX), GETPY(190 + OFY), fieldbyname('委托代理机构邮政编码').asstring);
TextOut(GETPX(60 + OFX), GETPY(199 + OFY), fieldbyname('买受人').asstring);
TextOut(GETPX(105 + OFX), GETPY(207 + OFY), fieldbyname('买受人姓名').asstring);
TextOut(GETPX(145 + OFX), GETPY(207 + OFY), fieldbyname('买受人国籍').asstring);
TextOut(GETPX(125 + OFX), GETPY(216 + OFY), fieldbyname('买受人证件名称').asstring);
TextOut(GETPX(143 + OFX), GETPY(216 + OFY), fieldbyname('买受人证件号').asstring);
TextOut(GETPX(60 + OFX), GETPY(225 + OFY), fieldbyname('买受人地址').asstring);
end;
///
with Printer.Canvas, FORM3.adoquery16 do begin
TextOut(GETPX(110 + OFX+OFP), GETPY(40 + OFY+OFPY), fieldbyname('22合同页数').asstring);
TextOut(GETPX(142 + OFX+OFP), GETPY(40 + OFY+OFPY), fieldbyname('22合同份数').asstring);
TextOut(GETPX(55 + OFX+OFP), GETPY(57 + OFY+OFPY), fieldbyname('22出卖人份数').asstring);
TextOut(GETPX(92 + OFX+OFP), GETPY(57 + OFY+OFPY), fieldbyname('22买受人份数').asstring);
TextOut(GETPX(110 + OFX+OFP), GETPY(57 + OFY+OFPY), fieldbyname('22其他份数1').asstring);
TextOut(GETPX(25 + OFX+OFP), GETPY(65 + OFY+OFPY), fieldbyname('22其他份数2').asstring);
TextOut(GETPX(55 + OFX+OFP), GETPY(90 + OFY+OFPY), fieldbyname('24申请单位').asstring);
end;
with Printer.Canvas, FORM3.adoquery1 do begin
TextOut(GETPX(36 + OFX+OFP), GETPY(178 + OFY+OFPY), fieldbyname('出卖人签字年').asstring);
TextOut(GETPX(55 + OFX+OFP), GETPY(178 + OFY+OFPY), fieldbyname('出卖人签字月').asstring);
TextOut(GETPX(70 + OFX+OFP), GETPY(178 + OFY+OFPY), fieldbyname('出卖人签字日').asstring);
TextOut(GETPX(50 + OFX+OFP), GETPY(186 + OFY+OFPY), fieldbyname('出卖人签字地点').asstring);
TextOut(GETPX(97 + OFX+OFP), GETPY(178 + OFY+OFPY), fieldbyname('买受人签字年').asstring);
TextOut(GETPX(115 + OFX+OFP), GETPY(178 + OFY+OFPY), fieldbyname('买受人签字月').asstring);
TextOut(GETPX(130 + OFX+OFP), GETPY(178 + OFY+OFPY), fieldbyname('买受人签字日').asstring);
TextOut(GETPX(110 + OFX+OFP), GETPY(186 + OFY+OFPY), fieldbyname('买受人签字地点').asstring);
end;
end;
procedure PrintPage4_13;
var
INI: TINIFILE;
OFX, OFY,OFP,ofpy: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P4_13', 'OFX', 0);
OFY := INI.ReadInteger('P4_13', 'OFY', 0);
OFP := INI.ReadInteger('P4_13', 'OFP', 0);
OFPY := INI.ReadInteger('P4_13', 'OFPY', 0);
INI.Free;
with Printer.Canvas, FORM3.adoquery3 do begin
splitPrint(fieldbyname('商品房销售依据备注').AsString, 30, 32,40 + OFX, 35 + OFY, 25 + OFX);
end;
with Printer.Canvas, FORM3.adoquery4 do begin
TextOut(GETPX(45 + OFX), GETPY(83 + OFY), fieldbyname('商品房基本情况幢座').asstring);
TextOut(GETPX(100 + OFX), GETPY(83 + OFY), fieldbyname('商品房基本情况层').asstring);
TextOut(GETPX(25 + OFX), GETPY(92 + OFY), fieldbyname('商品房基本情况房号').asstring);
TextOut(GETPX(80 + OFX), GETPY(100 + OFY), fieldbyname('商品房基本情况用途').asstring);
TextOut(GETPX(113 + OFX), GETPY(100 + OFY), fieldbyname('商品房基本情况结构').asstring);
TextOut(GETPX(25 + OFX), GETPY(108 + OFY), fieldbyname('商品房基本情况层高').asstring);
TextOut(GETPX(80 + OFX), GETPY(108 + OFY), fieldbyname('商品房基本情况地上层数').asstring);
TextOut(GETPX(110 + OFX), GETPY(108 + OFY), fieldbyname('商品房基本情况地下层数').asstring);
splitPrint(fieldbyname('商品房基本情况备注0').asstring, 30, 32, 35 + OFX, 123 + OFY, 25 + OFX);
TextOut(GETPX(142 + OFX), GETPY(134 + OFY), fieldbyname('商品房基本情况建筑面积').asstring);
TextOut(GETPX(82 + OFX), GETPY(142 + OFY), fieldbyname('商品房基本情况套内面积').asstring);
TextOut(GETPX(57 + OFX), GETPY(150 + OFY), fieldbyname('商品房基本情况分摊面积').asstring);
splitPrint(fieldbyname('商品房基本情况备注1').asstring, 35, 35, 35 + OFX, 166 + OFY, 25 + OFX);
splitPrint(fieldbyname('商品房基本情况备注2').asstring, 35, 35, 35 + OFX, 184 + OFY, 25 + OFX);
end;
with Printer.Canvas, FORM3.adoquery5 do begin
TextOut(GETPX(105 + OFX ), GETPY(209 + OFY), fieldbyname('计价方式种类').asstring);
TextOut(GETPX(125 + OFX ), GETPY(225 + OFY), fieldbyname('1单价币种').asstring);
end;
////
with Printer.Canvas, FORM3.adoquery14 do begin
TextOut(GETPX(152 + OFX+OFP), GETPY(33 + OFY+OFPY), fieldbyname('已退房房价款百分比').asstring);
TextOut(GETPX(127 + OFX+OFP), GETPY(50 + OFY+OFPY), fieldbyname('未退房房价款百分比').asstring);
splitPrint(fieldbyname('备注').asstring, 30, 34, 40 + OFX+OFP, 68 + OFY+OFPY, 25 + OFX+OFP);
end;
with Printer.Canvas, FORM3.adoquery15 do begin
splitPrint(fieldbyname('16保修责任').asstring, 30, 32, 35 + OFX+OFP, 165 + OFY+OFPY, 25 + OFX+OFP);
splitPrint(fieldbyname('屋面使用权约定').asstring, 10, 28, 120 + OFX+OFP, 190 + OFY+OFPY, 25 + OFX+OFP);
splitPrint(fieldbyname('外墙面使用权约定').asstring, 10, 28, 120 + OFX+OFP, 209 + OFY+OFPY, 25 + OFX+OFP);
TextOut(GETPX(105 + OFX+OFP), GETPY(225 + OFY+OFPY), fieldbyname('楼宇命名权约定').asstring);
end;
end;
procedure PrintPage6_11;
var
INI: TINIFILE;
OFX, OFY,ofp,ofpy: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P6_11', 'OFX', 0);
OFY := INI.ReadInteger('P6_11', 'OFY', 0);
OFP := INI.ReadInteger('P6_11', 'OFP', 0);
OFPY := INI.ReadInteger('P6_11', 'OFPY', 0);
INI.Free;
with Printer.Canvas, FORM3.adoquery6 do begin
splitPrint(fieldbyname('3双方自行约定').asstring, 30, 34, 50 + OFX, 40 + OFY, 25 + OFX);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -