有兴趣的看看:excel中用宏打印,刷新label.caption的有关问题,用于指定位置自动编号打印
有兴趣的看看:excel中用宏打印,刷新label.caption的问题,用于指定位置自动编号打印
sheet上添加label控件,将cell(1,1)~(1,10)中的内容通过label.cation分10页打印:
For i=1 to 10
sheet1.label1.caption=sheet1.cell(1,i)
sheet1.printout
next
为何打印的结果label.cation总是cell(1,1)的值而不每次刷新?
------解决方案--------------------
先坐下ＳＦ，再说！
------解决方案--------------------
ＬＺ的问题不清楚．我也有个问题，看看ＬＺ能不能有个好办法呢？
就是我有好多好多ＥＸＣＥＬ表单都需要打印，不过在打印之前都需要先把内容粘贴到一个模板上才可以的，因为有固定的表头和表尾，想有个什么办法可以全部把这些表格一次性的加上表头和表尾全部打印呢？
先谢谢大家！
------解决方案--------------------
不是吧,现在真的象很多人说的那样,来了CSDN不用上YELLOW网站了,怎么现在这正儿八经的问题就没有一个人回答了?我看CSDN越变越垃圾了!还不如以前,以前问问题的帖子还有个人回,现在都没有回了,来的都去GUANSHUI了.TNND
------解决方案--------------------
首先谢谢LZ提供议建!
本来是一个同学在一家公司做事,经常用到这个让我帮他做一哈,我对Office操作不熟悉,我也感觉这个不是很容易,也许是没有接触过这方面的东西.
我在查查资料,看看有没有更好的办法!
========================================
怎么都几天了,CSDN里的高手都哪儿去了?过年回家还没上班吗?
还是真的象一些人提的那样,现在CSDN上的程序员只会YY了,NND,真TMD郁闷,都几天了也没个高人来指点!!
------解决方案--------------------
to systemthink:
给你个建议，表头的话,你可以用宏把模板的表头插入到你的所有文档的最上边，然后表头有几行的话，就在page表头设定的那里加几个回车，这个用宏应该好实现。
表尾没想到方法，想到了再来。
------解决方案--------------------
嘿嘿，错了，不好意思。
------解决方案--------------------
表头的话,你可以用宏把模板的表头插入到你的所有文档的最上边，然后表头有几行的话，n就是几
ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows( "1:n ").Address
------解决方案--------------------
关键的问题是很多表格里要添加的内容大小不一致,有的一页OK,有的内容要好多页,我样的话,那个模板就不能固定了,表尾不一定在第几页呢?关键是表格太多,好几百张,一张张的复制,粘贴再打印麻烦死了,不过这个是帮同学做的!
------解决方案--------------------
办法一定是有的,现在不急做这东东了,估计明天我同学一天又得打印几百张表格了,等下个月争取把问题解决就行了!!
olala()兄结帖吧!也没人来了,过一阵子等问题解决了或没有觖我都会过来开帖的,到时候通知你!!
sheet上添加label控件,将cell(1,1)~(1,10)中的内容通过label.cation分10页打印:
For i=1 to 10
sheet1.label1.caption=sheet1.cell(1,i)
sheet1.printout
next
为何打印的结果label.cation总是cell(1,1)的值而不每次刷新?
------解决方案--------------------
先坐下ＳＦ，再说！
------解决方案--------------------
ＬＺ的问题不清楚．我也有个问题，看看ＬＺ能不能有个好办法呢？
就是我有好多好多ＥＸＣＥＬ表单都需要打印，不过在打印之前都需要先把内容粘贴到一个模板上才可以的，因为有固定的表头和表尾，想有个什么办法可以全部把这些表格一次性的加上表头和表尾全部打印呢？
先谢谢大家！
------解决方案--------------------
不是吧,现在真的象很多人说的那样,来了CSDN不用上YELLOW网站了,怎么现在这正儿八经的问题就没有一个人回答了?我看CSDN越变越垃圾了!还不如以前,以前问问题的帖子还有个人回,现在都没有回了,来的都去GUANSHUI了.TNND
------解决方案--------------------
首先谢谢LZ提供议建!
本来是一个同学在一家公司做事,经常用到这个让我帮他做一哈,我对Office操作不熟悉,我也感觉这个不是很容易,也许是没有接触过这方面的东西.
我在查查资料,看看有没有更好的办法!
========================================
怎么都几天了,CSDN里的高手都哪儿去了?过年回家还没上班吗?
还是真的象一些人提的那样,现在CSDN上的程序员只会YY了,NND,真TMD郁闷,都几天了也没个高人来指点!!
------解决方案--------------------
to systemthink:
给你个建议，表头的话,你可以用宏把模板的表头插入到你的所有文档的最上边，然后表头有几行的话，就在page表头设定的那里加几个回车，这个用宏应该好实现。
表尾没想到方法，想到了再来。
------解决方案--------------------
嘿嘿，错了，不好意思。
------解决方案--------------------
表头的话,你可以用宏把模板的表头插入到你的所有文档的最上边，然后表头有几行的话，n就是几
ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows( "1:n ").Address
------解决方案--------------------
关键的问题是很多表格里要添加的内容大小不一致,有的一页OK,有的内容要好多页,我样的话,那个模板就不能固定了,表尾不一定在第几页呢?关键是表格太多,好几百张,一张张的复制,粘贴再打印麻烦死了,不过这个是帮同学做的!
------解决方案--------------------
办法一定是有的,现在不急做这东东了,估计明天我同学一天又得打印几百张表格了,等下个月争取把问题解决就行了!!
olala()兄结帖吧!也没人来了,过一阵子等问题解决了或没有觖我都会过来开帖的,到时候通知你!!