主题：[求助]Excel 生成的报表，自动行高后，如何判断纸张大小

生成报表以后，插入换页符，如

Ws.Rows(16).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual

判断高度

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
msgbox(rg.height)
App.Quit