怎样将EXCEL 4页内容打印到一张A4纸,且字体大小不变??
现在我有4页excel内容,这四页excel里面都是只有两列内容,一列是姓名,一列是身份证号,现在要将这四页excel内容,横着排版,等于是8列内容打印到一张A4纸上,怎...
现在我有4页excel内容,这四页excel里面都是只有两列内容,一列是姓名,一列是身份证号,现在要将这四页excel内容,横着排版,等于是8列内容打印到一张A4纸上,怎么实现,谢谢
可能是我表达不清楚,因为姓名和身份证号涉及隐私,我以编码代替,我这个表就只有两列,但是序号一直到几百,我如果直接打印,这不是浪费纸张吗,一张A4纸就只有两列内容,我想把这张A4纸填满,把这几百行截成6列,看好一张A4纸变成以下这种,不就可以节约纸张了吗,而且方便领导看 展开
可能是我表达不清楚,因为姓名和身份证号涉及隐私,我以编码代替,我这个表就只有两列,但是序号一直到几百,我如果直接打印,这不是浪费纸张吗,一张A4纸就只有两列内容,我想把这张A4纸填满,把这几百行截成6列,看好一张A4纸变成以下这种,不就可以节约纸张了吗,而且方便领导看 展开
展开全部
把他们复制到一起,或者调整打印区域的位置,重复打印你一张纸
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
数据量较少。
执行4次,剪切,粘贴的操作即可
执行4次,剪切,粘贴的操作即可
追问
如果是十几张呢,有没有简便的方法啊
追答
Sub a()
k = 1
For i = 1 To [a65536].End(3).Row Step 30 '30可改
Range("A" & i & ":B" & i + 29).Copy Sheets(2).Cells(1, k)
'29可改,但只能比上面的step后的数字小1
k = k + 2
Next
End Sub
右键SHEET1——查看代码——粘贴上面的代码。F5运行
注意相关参数可以改。我这是每30个数据放一列。
运行结果在sheet2中。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询