请问如何实现如下的打印形式

[thanksmyfriend]

请问如何实现如下的打印形式：

工种 姓名 任务(i) 金额合计
合计 x(i)
单价 p(i)
金额 p(i)*x(i) ∑( p(i)*x(i) )

涉及的表:
1.员工表
工号 姓名 工种
2.业绩表
工号 任务 数量 单价

任务(i) 要用业绩表中字段"任务"的值替换,工种要用字段"工种"的值替换,形式
中的"合计"是业绩表中某员工相同任务数量的加总,如下面的C的"合计"

当员工完成一项任务,就向业绩表中添加一条记录

比如业绩表中的记录为:

工号 任务 数量 单价
1 A 10 p(a)
2 A 10 p(a)
3 B 10 p(b)
1 B 15 p(b)
3 C 25 p(c)
2 c 20 p(c)
3 C 10 p(c)

员工表中的记录为
工号 姓名 工种
1 员工1 工种1
2 员工2 工种2
3 员工3 工种1


要求得到的打印形式如下:

工种1 姓名 A B 金额合计
数量 员工1 10 15
单价 P(a) p(b)
金额 10*p(a) 15*p(b) 10*p(a)+15*p(b)
***********************************************
工种1 姓名 A C 金额合计
数量 员工2 10 20
单价 P(a) p(c)
金额 10*p(a) 20*p(c) 10*p(a)+20*p(c)
***********************************************
工种2 姓名 B C 金额合计
数量 员工3 10 35
单价 P(b) p(b)
金额 10*p(b) 35*p(b) 10*p(b)+35*p(c)
***********************************************

谢谢了!!!

[thanksmyfriend]

现在的难点是如何得到rs，因为在数据库里是n条纪录，现在如何把它整合到一条记录里面

如果不整合，可以打印吗

[ukyoxh]

先使用rs得到你想打印的东西

然后使用printer进行打印

我觉得这种打印有点象发票之类的

[饮水需思源]

估计要用printer对的对象写打印代码了

[射天狼]

用PRINTER打印对象吧,这个比较灵活!!
帮助信息如下:

打印机颜色模式

常数 值 描述
vbPRCMMonochrome 1 单色输出
vbPRCMColor 2 彩色输出
双面打印

常数 值 描述
vbPRDPSimplex 1 单面打印
vbPRDPHorizontal 2 双面水平打印
vbPRDPVertical 3 双面垂直打印
打印方向

常数 值 描述
vbPRORPortrait 1 文档打印以纸的窄边作顶部
vbPRORLandscape 2 文档打印以纸的宽边作顶部
打印质量

常数 值 描述
vbPRPQDraft -1 草稿打印质量
vbPRPQLow -2 低级打印质量
vbPRPQMedium -3 中等打印质量
vbPRPQHigh -4 高级打印质量
PaperBin 属性

常数 值 描述
vbPRBNUpper 1 从上层纸盒进纸
vbPRBNLower 2 从下层纸盒进纸
vbPRBNMiddle 3 从中间纸盒进纸
vbPRBNManual 4 等待手动插入每页纸
vbPRBNEnvelope 5 从信封进纸器进纸
vbPRBNEnvManual 6 从信封进纸器进纸；但要等待手动插入
vbPRBNAuto 7 （缺省方式）从当前缺省纸盒进纸
vbPRBNTractor 8 从拖拉进纸器供纸
vbPRBNSmallFmt 9 从小型进纸器进纸
vbPRBNLargeFmt 10 从大型纸盒进纸
vbPRBNLargeCapacity 11 从大容量进纸器进纸
vbPRBNCassette 14 从附加的卡式纸盒进纸
PaperSize 属性

常数 值 描述
vbPRPSLetter 1 信笺， 8 1/2 x 11 英寸
vbPRPSLetterSmall 2 +A611 小型信笺， 8 1/2 x 11 英寸
vbPRPSTabloid 3 小型报， 11 x 17 英寸
vbPRPSLedger 4 分类帐， 17 x 11 英寸
vbPRPSLegal 5 法律文件， 8 1/2 x 14 英寸
vbPRPSStatement 6 声明书，5 1/2 x 8 1/2 英寸
vbPRPSExecutive 7 行政文件，7 1/2 x 10 1/2 英寸
vbPRPSA3 8 A3, 297 x 420 mm
vbPRPSA4 9 A4, 210 x 297 mm
vbPRPSA4Small 10 A4小号， 210 x 297 mm
vbPRPSA5 11 A5, 148 x 210 mm
vbPRPSB4 12 B4, 250 x 354 mm
vbPRPSB5 13 B5, 182 x 257 mm
vbPRPSFolio 14 对开本， 8 1/2 x 13 英寸
vbPRPSQuarto 15 四开本， 215 x 275 mm
vbPRPS1&H14 16 10 x 14 英寸
vbPRPS11x17 17 11 x 17 英寸
vbPRPSNote 18 便条，8 1/2 x 11 英寸
vbPRPSEnv9 19 #9 信封， 3 7/8 x 8 7/8 英寸
vbPRPSEnv10 20 #10 信封， 4 1/8 x 9 1/2 英寸
vbPRPSEnv11 21 #11 信封， 4 1/2 x 10 3/8 英寸
vbPRPSEnv12 22 #12 信封， 4 1/2 x 11 英寸
vbPRPSEnv14 23 #14 信封， 5 x 11 1/2 英寸
vbPRPSCSheet 24 C 尺寸工作单
vbPRPSDSheet 25 D 尺寸工作单
vbPRPSESheet 26 E 尺寸工作单
vbPRPSEnvDL 27 DL 型信封， 110 x 220 mm
vbPRPSEnvC3 29 C3 型信封， 324 x 458 mm
vbPRPSEnvC4 30 C4 型信封， 229 x 324 mm
vbPRPSEnvC5 28 C5 型信封， 162 x 229 mm
vbPRPSEnvC6 31 C6 型信封， 114 x 162 mm
vbPRPSEnvC65 32 C65 型信封，114 x 229 mm
vbPRPSEnvB4 33 B4 型信封， 250 x 353 mm
vbPRPSEnvB5 34 B5 型信封，176 x 250 mm
vbPRPSEnvB6 35 B6 型信封， 176 x 125 mm
vbPRPSEnvItaly 36 信封， 110 x 230 mm
vbPRPSEnvMonarch 37 信封大王， 3 7/8 x 7 1/2 英寸
vbPRPSEnvPersonal 38 信封， 3 5/8 x 6 1/2 英寸
vbPRPSFanfoldUS 39 U.S. 标准复写簿， 14 7/8 x 11 英寸
vbPRPSFanfoldStdGerman 40 德国标准复写簿， 8 1/2 x 12 英寸
vbPRPSFanfoldLglGerman 41 德国法律复写簿， 8 1/2 x 13 英寸
vbPRPSUser 256 用户定义