用VBA自定义纸张大小
时间: 2024-05-22 07:14:06 浏览: 12
可以使用VBA代码创建自定义纸张大小。你可以使用PageSetup类中的PaperSize属性来设置纸张大小。例如:
Sub SetCustomPaperSize()
With ActiveSheet.PageSetup
.PaperSize = xlPaperUser
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
.PrintArea = "$A$1:$F$20" '设置打印区域
.PrintTitleRows = "$1:$1" '设置打印标题行
.LeftMargin = Application.InchesToPoints(0.5) '设置左边距
.RightMargin = Application.InchesToPoints(0.5) '设置右边距
.TopMargin = Application.InchesToPoints(0.5) '设置上边距
.BottomMargin = Application.InchesToPoints(0.5) '设置下边距
.HeaderMargin = Application.InchesToPoints(0.3) '设置页眉边距
.FooterMargin = Application.InchesToPoints(0.3) '设置页脚边距
.PageWidth = Application.InchesToPoints(8) '设置纸张宽度
.PageHeight = Application.InchesToPoints(10) '设置纸张高度
End With
End Sub
这段代码将创建一个自定义纸张为8英寸×10英寸的工作表,并设置边距和打印区域。
相关推荐
![application/msword](https://img-home.csdnimg.cn/images/20210720083327.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)