如何在代码中设置打印时,左边距为0

快跑蜗牛哥 2011-03-17 03:43:01
最近做了一个东西,
要打印页面上的东西,在页面上设了个打印按钮,
现在问题是,多个客户端按打印按钮,有的客户可以
完全打印出来,有的不能全不打印出来(原因:左边距过大)
是否能用代码实现,列印时,左边距为0,以保证资料能
完全列印出来!
(寻求代码!)
...全文
96 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
kaifadi 2011-03-17
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 t5500 的回复:]

CSS code
@media print {
body { margin-left:0; }
}
[/Quote]
恩。理论上这个可行,但是实际的话,只有楼主用机器多测试才知道了!
乌镇程序员 2011-03-17
  • 打赏
  • 举报
回复
@media print {
body { margin-left:0; }
}
打印控制命令列表非常的有用,有详细的解释啊。 序号 命 令 说 明 01 HT 横向跳格 02 LF 打印并走纸一行 03 CR 打印并回车 04 ESC SO 设置所有字符倍宽打印 05 ESC DC4 取消所有字符倍宽打印 06 ESC SP n 设置字符右间距 07 ESC ! n 设置字符打印模式 08 ESC $ nL nH 设置绝对打印位置 09 ESC % n 选择/取消用户自定义非文字符集 10 ESC & 定义用户自定义非文字符 11 ESC * 选择位图模式 12 ESC - n 选择/取消下划线模式 13 ESC 2 设置字符行间距为默认 14 ESC 3 n 设置行间距 15 ESC ? n 取消用户自定义字符 16 ESC @ 初始化打印机 17 ESC D 设置横向跳格位置 18 ESC E n 选择/取消加粗模式 19 ESC G n 选择/取消双重打印模式 20 ESC J n 打印并走纸 21 ESC R n 选择国际字符表 22 ESC \ nL nH 设置相对横向打印位置 23 ESC a n 选择字符对齐模式 24 ESC c 5 n 允许/禁止按键 25 ESC d n 打印并向前走纸n 行 26 ESC p m t1 t2 产生钱箱控制脉冲 27 ESC t n 选择字符代码表 28 ESC { n 选择/取消倒置打印模式 29 GS * x y d1…dk 定义下载位图 30 GS / m 打印下载位图 31 GS H n 选择HRI 字符的打印位置 32 GS L nL nH 设置左边距 33 GS W nL nH 设置打印区域宽度 34 GS h n 选择条码高度 35 ①GS k m d…dk NUL ②GS k m n d1…dn 打印条码 36 GS v 0 m 打印光栅位图 THERMAL RECEIPT PRINTER 18 37 GS w n 设置条码宽度 38 FS ! n 设置汉字字符模式 39 FS & 选择汉字模式 40 FS - n 选择/取消汉字下划线模式 41 FS . 取消汉字模式 42 FS 2 c1 c2 d1...dk 定义用户自定义汉字
:首先是要分组,因为如果不分组,想合并的列与其它列会自动打印。这样,只能使用FR自带的隐藏重复数据的功能,但很多类似报表都是要求合并行居的,这点FR就不能自动实现了。 2:要全并的列放在分组脚,其它放在分组数据BAND,这样,打印完分组数据BAND后,动态改变分组脚要合并列的TOP和HEIGHT就可以了。而且这样打印,因为要合并的行实际上只打印了一遍,因此应该效率更高。所以这就需要在打印分组数据BAND后有一个可记录此分组已打印高度的功能。 3:代码解释 procedure MCOnAfterData(Sender: TfrxComponent); begin if =1 then MC.Tag:=Int(MC.Height) else MC.Tag:=MC.Tag+Int(MC.Height); end; 因为FR的在每次分组后重新计数,使用MC.Tag保存现在数据BAND上的所有不合并行的总高度。当然也可以使用一个变量,但放着这么多TAG不用,多浪费呀。况且使用TAG的语法也比使用变量简单,使用变量使程序看上去很难懂。 if >=1 then 这样的写法看起来多痛苦呀。 procedure MBBOnAfterData(Sender: TfrxComponent); begin MBB.Tag:=GetStandHeight(MBB.CalcHeight); //这一句是为了保持行高的一致性,如果不需要直接 MBB.Tag:=MBB.CalcHeight; //这样可能计算的行高不是标准行高的整数倍。 MBB.Visible:=False; end; procedure MD1OnBeforePrint(Sender: TfrxComponent); begin if =1 then MBB.Visible:=True; end; 上二句只是为了不多次统计CalcHeight,但不能直接设可视性为假,否则不会触发MBBOnAfterData事件。 计算此例可能会很高的列的计算高度,这是在宽度已经确定的情况下计算的。 因为此例的第二列单行高度可能大于其它列的总高度。如果没有此例的特殊情况,可以省略。 4:如果此例没有第二列单行高度可能大于其它列的总高度的话,MBB是不需要的。 5:如果不是要求空行为多行多列显示的话,GFOnBeforePrint也是不需要的,只需要在GF上放二个MEMOVIEW,宽高和左边距分别与上方的二个相同,调用我例子注释掉的代码改变它们的TOP和HEIGHT即可。 6:TAG是所有Tcomponent的属性呀,这是我最常使用的一个属性。

87,910

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧