to everyask(everyask);excel报表问题

zhengsb 2001-06-21 01:07:00
上一张帖子好象有问题,怎么看不见我的回复
讨教几个问题:
1.如何在程序中设置表格边框线的虚实
2。如何在程序中设置顶端标题行
3。如何在程序中设置页眉/页尾
请尽快回复,此贴160分全分分送
...全文
126 12 打赏 收藏 举报
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cqq_chen 2001-06-21
那三个函数是我用VB3时写的,以前做过用PICTUREBOX来预览效果不好。后来也就没有用了,都是直接打印出来。你用PICTUREBOX做的预览效果好吗?发给我一个看看好吗?cqq-cheng@263.net
  • 打赏
  • 举报
回复
cqq_chen 2001-06-21
那三个函数是
  • 打赏
  • 举报
回复
everyask 2001-06-21
另:翻页慢主要是因为字符处理占用的时间长,因为对每一个长字符都要实现进行自动折行功能。
  • 打赏
  • 举报
回复
everyask 2001-06-21
哦,这3个函数其实挺有用的,不过要和主程序结合才行。
关于用printer对象打印的问题,我觉得picturebox的预览速度是一个问题,总觉得翻页较慢,直接显示某页更慢,不知你是如何解决这个问题呢?
  • 打赏
  • 举报
回复
cqq_chen 2001-06-21
我有三个小函数:
Sub ppm(l, r, t, con$)
Printer.CurrentX = l + (r - l - Printer.TextWidth(con$)) \ 2
Printer.CurrentY = t
Printer.Print con$
End Sub
Sub rpm(r, t, con As String)
Printer.CurrentX = r - Printer.TextWidth(con$)
Printer.CurrentY = t
Printer.Print con$
End Sub
Sub textout(X, Y, con As String)
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.Print con
End Sub
它们可以做到你要的效果吗?
  • 打赏
  • 举报
回复
everyask 2001-06-21
哈哈,还不知道他给不给分呢,怎么说是你来争我的分呢??
你下结论未免太早了点吧??
  • 打赏
  • 举报
回复
everyask 2001-06-21
另外关于用Printer对象写动态字段报表的问题,你也可以随时发表见解。
  • 打赏
  • 举报
回复
cqq_chen 2001-06-21
不好意思everyask(everyask)来争你的分了。
  • 打赏
  • 举报
回复
everyask 2001-06-21
cqq_chen(我是谁)说的对,我在你上个贴子中已经回复过了。
  • 打赏
  • 举报
回复
cqq_chen 2001-06-21
你的问题加在一起用一个方法就可以解决。
EXCEL中有一个录制[宏]功能有用过吗?
你先录制新宏---在EXCEL中做你要做的各个动做(包含以上三项或更多)----完成宏。
Alt+F11看源代码。把你要的程序COPY到你的程序中就可以了。
以后要用EXCEL的功能时都可以用这种方式。
你明白了吗?对你的160我太有兴趣了。
如果你觉的太烦了,发EMAIL给我,我帮你录把源程序再发给你.cqq-cheng@263.net
  • 打赏
  • 举报
回复
zhengsb 2001-06-21
可以
  • 打赏
  • 举报
回复
cqq_chen 2001-06-21
我来回答可以吗?
  • 打赏
  • 举报
回复
发帖
多媒体
加入

807

社区成员

VB 多媒体
社区管理员
  • 多媒体
申请成为版主
帖子事件
创建了帖子
2001-06-21 01:07
社区公告
暂无公告