主题：Excel报表中指定行自动调整行高

以下红色代码是整个表都会调整行高，可是我只想调整指定的行高。上传附档。 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells

Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True

ShowAppWindow(Pname,2)
Ws.PrintPreview

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:采购单.xls

Dim Rg As MSExcel.Range = Ws.Range("A14:J" & (14+你要打印的行数))

打印的行数，怎么样可以获取。他是变量的哟。