【高分】连续打印,华表cell ( 积分: 200 )

  • 主题发起人 主题发起人 lzy6204
  • 开始时间 开始时间
L

lzy6204

Unregistered / Unconfirmed
GUEST, unregistred user!
打印机:epson 300k +
纸张:连续纸
格式:表格(华表cell)
要求:逐行打印,不允许换页(即连续打印)。
我现在是这样做的
根据数据记录数计算报表总高度, 动态设置纸张大小,有10行就只要10行高度的纸张。100行就连续打印100行
不换页。
问题:
如果采用自定义纸张,自定义纸张的高度好像有限制。这样设置纸张规格就不成功
我测试了一下最大高度是231cm超过这个值就设不成功了
http://topic.csdn.net/t/20050725/16/4166812.html这位老兄好像解决了
但是没说解决办法,要是他能看到我的帖子就好了
顶着有分,急啊
 
自己先顶一下
 
期待高手
 
这个问题最好到华表论坛上去问问
 
是打印的问题,又不是华表的问题
 
连续打印
 
按 ctrl-t或者ctrl-s 在状态栏显示当前已分配分数的总和。
 
function Tdwgcfrm.SetPrintCellData():Boolean;
//连打 by pdf 2007-03-06
var
i,liNodeCount:integer;
PCurNode:TTreeNode;
begin
liNodeCount:=TreeViewprint.Items.Count;
for i:=0 to liNodeCount-1do
begin
TreeViewprint.Items.Selected:=True;
PCurNode:=TreeViewprint.Items;
if Not IsNodeChecked(PCurNode) then
continue
else
begin
TreeViewprintClick(Self);
Cell_report.PrintSheet(0,Cell_report.GetCurSheet)
end;

end;

//PCurNode:=TrVw.Items;
//IsNodeChecked(Node :TTreeNode) :Boolean;
end;

看看这对你有没有用?
 

Similar threads

回复
0
查看
1K
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部