如何实现多个datawindow的同页打印！

[xzhao]

我有两个grid数据窗口，分别为dw_1、dw_2,我要将dw_1中的一条纪录打完后打dw_2中的多条纪录，现在我都倒是能实现这样的功能，可每完成一个打印任务，它就会到另外一个打印页面，我要求它们都打印在一张纸上，我用的printdatawindow函数！

[llitcwl]

用针打可以实现打印不走纸，查以前代码，我贴过很多了。

[xzhao]

以前的好像都没有了啊！麻烦你给我发一下吧！
[e-mail]

[llitcwl]

//====================================================================
// [PUBLIC] Function f_print_continue 在 f_print_continue ( ref powerobject ads_1, integer ai_line ) returns integer
//--------------------------------------------------------------------
// 说明:使用连续纸打印数据窗口，适用于针打，在ESPON LQ300K,LQ1600K上经过测试
//--------------------------------------------------------------------
// 参数:
//
// 参数1:[reference] powerobject ads_1
// 说明:数据窗口或数据存储
// 参数2:[value] integer ai_line
// 说明:数据窗口的题头、页脚行数
//--------------------------------------------------------------------
// 返回: (INTEGER)
//--------------------------------------------------------------------
// 作者: cwl 日期: 2001.08.12
//====================================================================
//返回：是否成功
//例子：f_print_continue(dw_4,6)
long Job

// 打开以个打印作业
Job = PrintOpen()
// 向打印机送 ESC C N 的代码，其中CHAR（27） 代表 ESC char(67) 代表 C ，
//CHAR（N）中的 N 表示页的第一行到末行共 N 行，N 的范围为 1 -- 127 。
PrintSend(Job,char(27) + char(67) + char(ai_line+ads_1.dynamic rowcount( )))
if typeof(ads_1)=datawindow! then
datawindow ldw_1
ldw_1=ads_1
PrintDataWindow ( JOB, ldw_1)
else
datastore lds_1
lds_1=ads_1
PrintDataWindow ( JOB, lds_1)
end if
PrintClose(Job)
return 1

例：
f_print_continue(ds_ht_hkpz,6)
f_print_continue(ds_htpz_report,9)