为了节约纸张怎么在A4纸上打印8张图片,接下来我们要好好利用Word排版将8张图打印到A4纸张上,按照下面的方法来操作吧!

操作步骤

利用Word排版在1张A4纸上完美打印8张图片插图 打开Word文档,点击“文件”→“页面设置”。

利用Word排版在1张A4纸上完美打印8张图片插图1

利用Word排版在1张A4纸上完美打印8张图片插图2 在“页面设置”中把“页边距”上下左右全改为“0.5厘米”,再将方向改成“横向”接着按“确定”。

利用Word排版在1张A4纸上完美打印8张图片插图3

利用Word排版在1张A4纸上完美打印8张图片插图4 然后插入要打印的图片,点击菜单栏“插入”→“图片”→“来自文件”。

利用Word排版在1张A4纸上完美打印8张图片插图5

利用Word排版在1张A4纸上完美打印8张图片插图6 找到存放图片的路径选择图片,并点击“插入”。

利用Word排版在1张A4纸上完美打印8张图片插图7

利用Word排版在1张A4纸上完美打印8张图片插图8 此时图片插入Word文档内。

利用Word排版在1张A4纸上完美打印8张图片插图9

利用Word排版在1张A4纸上完美打印8张图片插图10 接着点击“工具”→“宏(M)”→“宏(M)”。

利用Word排版在1张A4纸上完美打印8张图片插图11

利用Word排版在1张A4纸上完美打印8张图片插图12 此时弹出“宏”设置窗口,在“宏名”下输入名称,输入完成后点击“创建”如下图。

利用Word排版在1张A4纸上完美打印8张图片插图13

利用Word排版在1张A4纸上完美打印8张图片插图14 弹出“Microsoft Visual Basic”复制下面代码粘贴到“代码”窗中保存。

Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count

With ActiveDocument.InlineShapes(i)

.Height = 238 * 0.7

.Width = 315 * 0.8

.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

.Borders(wdBorderTop).LineWidth = wdLineWidth050pt

.Borders(wdBorderTop).Color = wdColorAutomatic

End With

Next i

利用Word排版在1张A4纸上完美打印8张图片插图15

利用Word排版在1张A4纸上完美打印8张图片插图16 再回到Word文档界面,单击菜单栏“工具”→“宏(M)”→“宏(M)”选择刚才输入的名称点击“运行”即可。

利用Word排版在1张A4纸上完美打印8张图片插图17

利用Word排版在1张A4纸上完美打印8张图片插图18 此时Word文档内的图片都缩小到A4纸张能打印8张图的目标。

利用Word排版在1张A4纸上完美打印8张图片插图19

本站声明:网站内容来源于网络,如有侵权,请联系我们,我们将及时处理。

本博客所有文章如无特别注明均为原创。
复制或转载请以超链接形式注明转自起风了,原文地址《利用Word排版在1张A4纸上完美打印8张图片
   

还没有人抢沙发呢~