首页 > 代码库 > VBA-设置打印页面的范围
VBA-设置打印页面的范围
Range是VBA的東西不屬excel而ActiveSheet.PageSetup.PrintArea這句是直接指向excel的printarea要求返回的是絕對值(如:$A$1)所以說{不能设置类PageSetup的PrintArea 属性},如果想用range來表達只要在後邊加上.address就可返回excel中的絕對值
ActiveSheet.PageSetup.PrintArea = Range(Cells(CJ + 1, 1), Cells(CQ, 14)).address就可以了
ActiveSheet.PageSetup.PrintArea = Range(Cells(CJ + 1, 1), Cells(CQ, 14)).address就可以了
------以下代码是错误的----
Private Sub OptionButton2_Click()
CJ = Application.WorksheetFunction.CountIf(Range("I:I"), "一号")
CQ = Application.WorksheetFunction.CountIf(Range("I:I"), "二号")
ActiveSheet.PageSetup.PrintArea = Range(Cells(CJ + 1, 1), Cells(CQ, 14)) 这句显示错误1004，不能设置类PageSetup的PrintArea 属性
End Sub
CJ = Application.WorksheetFunction.CountIf(Range("I:I"), "一号")
CQ = Application.WorksheetFunction.CountIf(Range("I:I"), "二号")
ActiveSheet.PageSetup.PrintArea = Range(Cells(CJ + 1, 1), Cells(CQ, 14)) 这句显示错误1004，不能设置类PageSetup的PrintArea 属性
End Sub
自动调整所有列宽
Cells.EntireColumn.AutoFit
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。