如何把两个datawindow的数据打印到同一页纸上面

[kofworld]

dw_1,字段位置格式会根据不同的设定而变化，freeform自由报表格式
dw_2,grid格式

希望各位高手踊跃发言。

[kofworld]

如何控制组合报表composite中dw_1和dw_2的字段的属性，例如visible,text，高度等等
最好有程序的例子

[newhandle]

虚心学习。u～p

[fa791222]

用composite样式不就可以

[lesni]

在PrintPage事件中返回0

[kofworld]

是否
dw_1.print()
printpage(0)
dw_2.print()

[kofworld]

用
long job
job=printopen()
dw_1.print(job,0,0)

只能打印window里datawindow control
大小的区域，不能打印所有的数据，而我的需要有多少数据打多少数据

[tiantianpb]

据窗口一般都是打印一个就走一张纸，很难实现同一张纸上打印两个数据窗口，当然也并非完全不可以，但有限制。原理：
第一个DW最好为FREEFORM的风格，第二个DW不能为GRID风格，例如将第一个数据窗口的DETAIL区的一条记录加入到第二个数据窗的HEADER区中，再打印第二个数据窗口，以实现两个数据窗口的合并打印。

代码：

//这里用到两个函数f_print_dw（）与f_print_dw_describe（）

1、打印按纽代码：

//将dw_1中数据与dw_2中数据合并打印
f_print_dw(dw_1,dw_2)

2、f_print_dw（fp_dw_key[datawindow],fp_dw[datawindow]）函数说明

///////////////////////////////
//参数一定要为传址形式 //
//fp_dw_key → reference //
//fp_dw → reference //
/////////////////////////////

//fp_dw_key必须为一自由格式的DATAWINDOW
//本函数实现在同一页纸上打印两个DATAWINDOW
//实现方法
//先把一个数据窗口作为文本对象加入到另一个数据窗口中,然后打印，打印完后再恢复数据窗口
string l_attr_list //数据窗口对象的语法
string l_error
string l_object_list // DWO对象列表,以TAB键分开
string l_object
int l_new_field
int l_pos, l_start
int l_dw_height // 数据窗口fp_dw中header区的高度
int l_dw_key_height // 数据窗口fp_dw_key中detail区的高度

l_dw_key_height = integer(fp_dw_key.describe("datawindow.detail.height"))
l_dw_height = integer((fp_dw.describe("datawindow.header.height")))
//增加DW中HEADER区的尺寸，为DW_key上的东西设置空间
//modify()成功返回空字符串
l_error = fp_dw.modify("datawindow.header.height=" + &
string(l_dw_key_height + l_dw_height))
if l_error <> "" then
l_object = "header"
//发生错误时程序转移
goto Error_City
end if
//将对象移到DW中的开阔区域
// 取得以TAB字符分离的数据窗口fp_dw中DWO对象的列表
l_object_list = fp_dw.describe("datawindow.objects")
l_pos = 0
do // 假定列表不为空
l_start = l_pos
l_pos = pos(l_object_list, "~t", l_start + 1)
if l_pos = 0 then l_pos = 9999
l_object = mid(l_object_list, l_start + 1, l_pos - l_start - 1)
//将header区的所有对象都向下移
if fp_dw.describe(l_object + ".band") = "header" then
//行控件比较特殊，它是X1,X2,Y1,Y2
if fp_dw.describe(l_object+".type")="line" then
fp_dw.modify(l_object + ".y1 ='" + &
string(integer(fp_dw.describe(l_object+".y1")) + &
l_dw_key_height) + "'")
fp_dw.modify(l_object+".y2='" + fp_dw.describe(l_object+".y1") +"'")
else
fp_dw.modify(l_object + ".y ='" + &
string(integer(fp_dw.describe(l_object+".y")) + &
l_dw_key_height) + "'")
end if
end if
loop until l_pos = 9999
//把数据窗口fp_dw_key中的对象以TEXT的形式 COPY 到数据窗口fp_dw中的header区
//取得以TAB字符分离的数据窗口fp_dw_key中DWO对象的列表
l_object_list = fp_dw_key.describe("datawindow.objects")
l_pos = 0
l_new_field = 0
do // 假定列表不为空
l_start = l_pos
l_pos = pos(l_object_list, "~t", l_start + 1)
if l_pos = 0 then l_pos = 9999
l_object = mid(l_object_list, l_start + 1, l_pos - l_start - 1)
l_attr_list = f_print_dw_describe(fp_dw_key, l_object)
if l_attr_list = "" then return false
l_new_field = l_new_field + 1
l_error = fp_dw.modify("create text (" + &
l_attr_list + " name = hdr" + string(l_new_field) + ")")
if l_error <> "" then goto Error_City
loop until l_pos = 9999
// 打印
print(fp_dw)
//如果没有打印机，可以将以下部份RETURN TRUE之前的代码屏蔽起来，就可以看到变化后的后果了
// 恢复数据窗口
// 去除新增加的FIELD
//for l_pos = 1 to l_new_field
// fp_dw.modify("destroy hdr" + string(l_pos))
//next
//// 移动列
//l_object_list = fp_dw.describe("datawindow.objects")
//l_pos = 0
//do
// l_start = l_pos
// l_pos = pos(l_object_list, "~t", l_start + 1)
// if l_pos = 0 then l_pos = 9999
// l_object = mid(l_object_list, l_start + 1, l_pos - l_start - 1)
// if fp_dw.describe(l_object + ".band") = "header" then
// fp_dw.modify(l_object + ".y ='" + &
// string(integer(fp_dw.describe(l_object+".y")) - &
// l_dw_key_height) + "'")
// end if
//loop until l_pos = 9999
//
//// 收宿数据窗口header区
//fp_dw.modify("datawindow.header.height=" + string(l_dw_key_height))
//
return true
////////////////////
Error_City:
messagebox("Error in col " + l_object, l_error)
return false

3、f_print_dw_describe（fp_dw[datawindow],fp_col[string]）

//////////////////////////////////////////////
//fp_dw → reference 传值 //
//fp_col → value 传直 //
// 目的: 描述各列的属性，返回给f_print_dw //
//////////////////////////////////////////////

string l_error
string l_bg_color, l_color, l_fontface, l_height, l_text, l_x, l_y, l_width
string l_fontheight

l_bg_color = fp_dw.describe(fp_col + ".background.color")
if l_bg_color = "!" then
l_error = "bg_color"
goto Error_City
end if
l_color = fp_dw.describe(fp_col + ".color")
if l_color = "!" then
l_error = "color"
goto Error_City
end if
l_fontface = fp_dw.describe(fp_col + ".font.face")
if l_fontface = "!" then
l_error = "fontface"
goto Error_City
end if
l_fontheight = fp_dw.describe(fp_col + ".font.height")
if l_fontface = "!" then
l_error = "fontheight"
goto Error_City
end if
l_height = fp_dw.describe(fp_col + ".height")
if l_height = "!" then
l_error = "height"
goto Error_City
end if
l_width = fp_dw.describe(fp_col + ".width")
if l_width = "!" then
l_error = "width"
goto Error_City
end if
l_x = fp_dw.describe(fp_col + ".x")
if l_x = "!" then
l_error = "x"
goto Error_City
end if
l_y = fp_dw.describe(fp_col + ".y")
if l_y = "!" then
l_error = "y"
goto Error_City
end if
choose case left(fp_dw.describe(fp_col + ".coltype"), 5)
case "char("
l_text = fp_dw.getitemstring(1, fp_col)
case "datet"
l_text = string(fp_dw.getitemdatetime(1, fp_col))
case "numbe"
l_text = string(fp_dw.getitemnumber(1,(fp_col)))
case "!" // 假定为text
l_text = fp_dw.describe(fp_col + ".text")
end choose
l_color = "33554432"
l_bg_color = "1086374080"
return " band = header " + &
" color = '" + l_color + "'" + &
" background.color = '" + l_bg_color + "'" + &
" font.face = '" + l_fontface + "'" + &
" font.height = '" + l_fontheight + "'" + &
" height = '" + l_height + "'" + &
" text = '" + l_text + "'" + &
" width = '" + l_width + "'" + &
" x = '" + l_x + "'" + &
" y = '" + l_y + "'"

Error_City:
messagebox("Error in col " + fp_col, l_error)
return ""

[killerdanny]

用组合报表不可以吗？

[baiyin_danny]

同意楼上看法，用组合报表就可以！

[wclarity]

组合报表,套上这两个datawindow不就可以了？

[readwhiteswl]

download