手动双面打印怎么放纸,Excel文档中多个工作表怎样实现双面打印
答案:1 悬赏:70 手机版
解决时间 2021-07-21 20:47
- 提问者网友：杀生予夺
- 2021-07-20 21:32
手动双面打印怎么放纸,Excel文档中多个工作表怎样实现双面打印
最佳答案
- 五星知识达人网友：野味小生
- 2021-07-20 22:32
能否将各工作表中的内容合并到一张工作表中呢？
假设打印预览时，每20行一页。
下面的vba将各表的内容合并到sheet1中。
代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行。
PS：如果每页有N行，则将代码中所有的20改为N
Sub 复制粘贴()
r = 1
For Each s In ThisWorkbook.Worksheets
With s
If .Name Sheet1 Then
r = r + 20
.Range(1:20).Copy Sheets(Sheet1).Cells(r, 1)
End If
End With
Next s
End Sub
假设打印预览时，每20行一页。
下面的vba将各表的内容合并到sheet1中。
代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行。
PS：如果每页有N行，则将代码中所有的20改为N
Sub 复制粘贴()
r = 1
For Each s In ThisWorkbook.Worksheets
With s
If .Name Sheet1 Then
r = r + 20
.Range(1:20).Copy Sheets(Sheet1).Cells(r, 1)
End If
End With
Next s
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯