|
|
想打印老师的课件，100多页的ppt，一页打九张，可是中间空白间距太大，导致ppt面积很小，求高手指教。见有人打印过把间距设成了1毫米，结果一张A4充分利用了……找过网上的很多教程，用宏输出时，大小设置还是不行
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
还是间据过大，且一张纸装不下九章ppt，横向的。
是不是把数值调一下就行？该调成多少？ |
|
