設置Excel文件的打印區域

Question

我有一個Excel文件，所有文件都有列，直到col N為止。 我的問題是我想知道如何使用VBScript設置打印區域以覆蓋每一行，直到N列直到空白行為止。

Answer 1

取決於要用於檢查第一空白行的列。 這是一個檢查帶有A列中數據的最后一行的示例：

Const xlUp = -4162
Const xlCellTypeBlanks = 4

' Get the last row...
Dim intLastRow
intLastRow = objWSheet.Cells(objWSheet.Rows.Count, 1).End(xlUp).Row

' Delete any rows with a blank column A...
objWSheet.Range("A1:A" & intLastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

' Get the new last row...
intLastRow = objWSheet.Cells(objWSheet.Rows.Count, 1).End(xlUp).Row

' Set the print area...
objWSheet.PageSetup.PrintArea = "$A$1:$N$" & intLastRow

Answer 2

除非您的工作表在該空白行之后有更多的數據行，否則您可以簡單地使用UsedRange屬性：

Set xl = CreateObject("Excel.Application")
xl.Visible = True

Set wb = xl.Workbooks.Open("C:\path\to\your.xlsx")
Set ws = wb.Sheets(1)

ws.PageSetup.PrintArea = ws.UsedRange.Address