如何用VBA自动编写打印Excel报表时表头中第几页共几页的页码

yanjie · 发表于 2010-11-21 22:11

根据页数判断一下，分条件分别设置页眉页数，可以让它字数一样多来对齐：
Sub yanjie()
Dim i%
For i = 1 To 3
Range("H3").value = i
With ActiveSheet.PageSetup
Select Case i
Case Is <= 9
If .RightHeader <> "第 00&P 页，共 00&N 页" Then .RightHeader = "第 00&P 页，共 00&N 页"
Case Is >= 10
If .RightHeader <> "第 0&P 页，共 0&N 页" Then .RightHeader = "第 0&P 页，共 0&N 页"
Case Is >= 100
If .RightHeader <> "第 &P 页，共 &N 页" Then .RightHeader = "第 &P 页，共 &N 页"
End Select
End With
Sheet1.PrintOut From:=i, To:=i
Next i
End Sub

yaozong · 发表于 2010-11-22 08:00

供参考。。。

yanjie · 发表于 2010-11-22 20:40

昨天时间比较匆忙，代码出现一些错误，现在修正如下：
Sub yanjie()
Dim i%
For i = 1 To 3
Range("H3").Value = i
With ActiveSheet.PageSetup
Select Case i
Case 1 To 9
If .RightHeader <> "第 00&P 页，共 00&N 页" Then .RightHeader = "第 00&P 页，共 00&N 页"
Case 10 To 99
If .RightHeader <> "第 0&P 页，共 0&N 页" Then .RightHeader = "第 0&P 页，共 0&N 页"
Case 100 To 999
If .RightHeader <> "第 &P 页，共 &N 页" Then .RightHeader = "第 &P 页，共 &N 页"
End Select
End With
Sheet1.PrintOut From:=i, to:=i
Next i
End Sub

zjdh · 发表于 2010-11-24 10:59

那就这样改：
Sub Prt()
P = ExecuteExcel4Macro("Get.Document(50)")
ActiveSheet.Range("K3") = P
For I = 1 To P step 2
      ActiveSheet.Range("H3") = I
      ActiveWindow.SelectedSheets.PrintOut From:=I, To:=I
Next
msgbox "请转换纸面！"
For I = 2 To P step 2
      ActiveSheet.Range("H3") = I
      ActiveWindow.SelectedSheets.PrintOut From:=I, To:=I
Next
End Sub

zhangyu05 · 发表于 2010-11-24 22:46

原帖由 zjdh 于 2010-11-24 10:59 发表
那就这样改：
Sub Prt()
P = ExecuteExcel4Macro("Get.Document(50)")
ActiveSheet.Range("K3") = P
For I = 1 To P step 2
ActiveSheet.Range("H3") = I
ActiveWindow.SelectedS ...

这倒是个方法，相当于手工双面打印了。谢谢！

夕阳也美好 · 发表于 2011-2-1 12:49

学习了啊,谢谢

carbonman · 发表于 2011-2-4 18:50

设置循环语句，并设置先打印奇数页，步长为+1在设置为打印偶数页，步长为+2，这样不就能打印了，我原来也做过，照着这个思路来就可以

zxueq · 发表于 2011-4-1 13:49

这个正是我需要的,谢谢,都找半天了

mingiri · 发表于 2011-12-24 23:04

LangQueS 发表于 2010-11-21 19:49
将页眉位置拖动到表格中。请打印显示：

还是没明白啊，能不能说得更详细些？

liucqa · 发表于 2011-12-24 23:08

留个记号

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

[求助] 如何用VBA自动编写打印Excel报表时表头中第几页共几页的页码

回复 1楼 zhangyu05 的帖子