Print Area Set for Columns but Not Rows

  • Thread starter Thread starter Swingdancer42
  • Start date Start date
S

Swingdancer42

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!!!
 
Hi Simon,

Thanks for helping! Unfortunately it didn't work, I replaced the code I
posted with the code you provided and it is still producing the same results
- it's still printing all my columns (A:R) but I only want it to print A:N.

Any more ideas? Your help is much appreciated!
 
Back
Top