如何在每个页面排列6张图片，代码怎么写？

zzpsx

如何每个页面排列6张图片.rar (1.03 MB, 下载次数: 10)

2019-9-27 19:06 上传

点击文件名下载附件

413191246se

最简单方法：每个页面一张图片，打印时选择 1页6版。

zzpsx

413191246se 发表于 2019-9-27 19:59
最简单方法：每个页面一张图片，打印时选择 1页6版。

具体怎么操作

413191246se

建议先备份图片，然后，使所有图片都能 1 页 1 张，在打印时选择 拼版：1页6张。——如果不行，再想办法。

413191246se

* 楼主，试试下面的代码，然后用标尺手动调整一下上下页边距：

1. Sub test图片每页6张()
   
2.     Dim s As InlineShape
   
3.     For Each s In ActiveDocument.InlineShapes
   
4.         With s
   
5.             .LockAspectRatio = msoTrue
   
6.             .Height = 177.15
   
7.             .Width = 250.85
   
8.         End With
   
9.     Next
   
10. '双页显示
    
11.     With ActiveWindow.ActivePane.View.Zoom
    
12.         .PageColumns = 2
    
13.         .PageRows = 1
    
14.     End With
    
15. End Sub

复制代码

zzpsx

413191246se 发表于 2019-9-27 20:57
* 楼主，试试下面的代码，然后用标尺手动调整一下上下页边距：

可否取消双页显示，恢复单页显示。

zzpsx

413191246se 发表于 2019-9-27 20:22
建议先备份图片，然后，使所有图片都能 1 页 1 张，在打印时选择 拼版：1页6张。——如果不行，再想办法。

请截图请截图请截图请截图请截图请截图请截图请截图请截图请截图请截图请截图请截图

413191246se

将 5 楼第 11-14 行代码屏蔽即可（前一办法：文件菜单——打印——版面：6版）。