to everyask(everyask);excel报表问题

[zhengsb]

上一张帖子好象有问题,怎么看不见我的回复
讨教几个问题：
1.如何在程序中设置表格边框线的虚实
2。如何在程序中设置顶端标题行
3。如何在程序中设置页眉/页尾
请尽快回复,此贴160分全分分送

[cqq_chen]

我来回答可以吗？

• 打赏
• 举报

回复 赞

[zhengsb]

可以

• 打赏
• 举报

回复 赞

[cqq_chen]

你的问题加在一起用一个方法就可以解决。
EXCEL中有一个录制[宏]功能有用过吗？
你先录制新宏---在EXCEL中做你要做的各个动做（包含以上三项或更多）----完成宏。
Alt+F11看源代码。把你要的程序COPY到你的程序中就可以了。
以后要用EXCEL的功能时都可以用这种方式。
你明白了吗？对你的160我太有兴趣了。
如果你觉的太烦了，发EMAIL给我，我帮你录把源程序再发给你[e-mail]

• 打赏
• 举报

回复 赞

[everyask]

cqq_chen(我是谁)说的对，我在你上个贴子中已经回复过了。

• 打赏
• 举报

回复 赞

[cqq_chen]

不好意思everyask(everyask)来争你的分了。

• 打赏
• 举报

回复 赞

[everyask]

另外关于用Printer对象写动态字段报表的问题，你也可以随时发表见解。

• 打赏
• 举报

回复 赞

[everyask]

哈哈，还不知道他给不给分呢，怎么说是你来争我的分呢？？
你下结论未免太早了点吧？？

• 打赏
• 举报

回复 赞

[cqq_chen]

我有三个小函数:
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]

哦，这3个函数其实挺有用的，不过要和主程序结合才行。
关于用printer对象打印的问题，我觉得picturebox的预览速度是一个问题，总觉得翻页较慢，直接显示某页更慢，不知你是如何解决这个问题呢？

• 打赏
• 举报

回复 赞

[everyask]

另：翻页慢主要是因为字符处理占用的时间长，因为对每一个长字符都要实现进行自动折行功能。

• 打赏
• 举报

回复 赞

[cqq_chen]

那三个函数是

• 打赏
• 举报

回复 赞

[cqq_chen]

那三个函数是我用VB3时写的，以前做过用PICTUREBOX来预览效果不好。后来也就没有用了，都是直接打印出来。你用PICTUREBOX做的预览效果好吗？发给我一个看看好吗？[e-mail]

• 打赏
• 举报

回复 赞