通常结合PS批量处理图片_统一大小一起使用。首先批量处理所有图片固定大小，然后在放在word中打印。
建立一个宏
image.png
image.png
代码如下
Sub A4纸打印test()
'
' A4纸打印test 宏 width和height为单张图片的宽高数值自定义，注意其比例
'
'
'
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Height = 334
.Width = 188
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth050pt
.Borders(wdBorderTop).Color = wdColorAutomatic
End With
Next i
End Sub
简书文尾图.jpg
--by Affandi ⊙▽⊙
