[已解决]关于打印页码问题！

小笨瓜 · 发表于 2010-4-6 17:12

只有一页的excel文档材料,怎么实现点一次打印显示第一页的页码，点第二次打印显示第二页的页码，点第三次打印显示第三页的页码，以此类推，请问怎么实现？哪位高手帮助一下！

最佳答案

紫猪侠

2010-4-6 18:02

Sub t()
Dim y
y = Application.InputBox("请输入你要打印的份数", "提示", 1)
If y Then
For i% = 1 To y
With ActiveSheet.PageSetup
.FirstPageNumber = i
End With
ActiveSheet.PrintOut
Next
End If
End Sub

跳转到最佳答案楼层

军悟居士 · 发表于 2010-4-6 17:36

要用VBA来解决吧，这个还真难……

zezhza · 发表于 2010-4-6 18:00

Dmc8UNYk.rar (5.82 KB, 下载次数: 0)

紫猪侠 · 发表于 2010-4-6 18:02

Sub t()
Dim y
y = Application.InputBox("请输入你要打印的份数", "提示", 1)
If y Then
For i% = 1 To y
With ActiveSheet.PageSetup
.FirstPageNumber = i
End With
ActiveSheet.PrintOut
Next
End If
End Sub

dtxczjzmp · 发表于 2010-4-6 18:16

[em01]

sylan · 发表于 2010-4-6 22:11

好难，不会，学习

whhoneywell · 发表于 2010-4-6 22:18

学习

xwcbz · 发表于 2010-4-8 21:15

学习，学习，在学习。

sylan · 发表于 2010-4-8 21:58

好难啊，学习之

		自动登录	找回密码
密码			注册

[已解决]关于打印页码问题！

浏览过的版块