Print Area Set for Columns but Not Rows
Help,
I thought this would be a redundant question, but I can't seem to find the
answer in any of the previous posts. I have a spreadsheet with Columns A:R,
but I only want columns A:N to print. I also want Excel to automatically
print only up to the last row with data entered. Looking through all the
previous posts, I thought this would do the trick:
Sub PrepareSheet(sht As Worksheet)
Dim lRow As Long
lRow = sht.Range("A:N").SpecialCells(xlCellTypeLastCell). Row
With sht.PageSetup
.PrintArea = "$A$1:$N" & lRow
.Zoom = False
.FitToPagesWide = 1
End With
End Sub
Unfortunately this is only accomplishing half of my desires - while this
DOES only print the rows with inputs, it's printing all my columns (instead
of just columns A to N). Can anybody help me? What's the code I should be
using?
Thanks in advance for any help you can provide!!!
|