Excel VBA:打印范围内的数据单元格

Question

我想打印有数据的单元格(范围)。在我的工作表B:T是打印区域。如果在该范围内，只有到范围B8:T8(行)的值为空。所以我需要一个宏，只打印数据单元格在B:T范围

Answer 1

下次试着做一些挖掘，因为这真的很容易写，对你来说是很好的练习。你只需要找到范围的最后一行，并将打印区域设置为A1:T &lastrow .

setPrintArea()
Dim LR As Long
LR = Columns("B:T").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
ActiveSheet.PageSetup.printArea = "B1:T" & LR
End Sub