用vba打印除第一个工作表以外的其它工作表！
答案:2 悬赏:80 手机版
解决时间 2021-12-25 09:52
- 提问者网友：沉默菋噵
- 2021-12-24 19:48
用vba打印除第一个工作表以外的其它工作表！
最佳答案
- 五星知识达人网友：执傲
- 2021-12-24 20:43
试试这个，我没打印机，不能试
Sub 打印()
For i = 2 To Sheets.Count
Sheets(i).PrintOut
Next i
End Sub
Sub 打印()
For i = 2 To Sheets.Count
Sheets(i).PrintOut
Next i
End Sub
全部回答
- 1楼网友：愁杀梦里人
- 2021-12-24 21:40
sub test()
dim sh as worksheet
dim i, x, y as integer
y = 0
for each sh in thisworkbook.sheets
if left(sh.name, 2) = "10" then
y = y + (sh.hpagebreaks.count + 1) * (sh.vpagebreaks.count + 1)
end if
next sh
x = 1
for each sh in thisworkbook.sheets
if left(sh.name, 2) = "10" then
sh.select
for i = 1 to (sh.hpagebreaks.count + 1) * (sh.vpagebreaks.count + 1)
sh.pagesetup.rightfooter = "共 " & y & " 页/第 " & x & " 页"
'sh.printpreview ’去掉这句前面的 ' 是预览
'sh.printout i, i ’去掉这句前面的 ' 是打印
x = x + 1
next i
end if
next sh
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯