Attachment posted at the Code Cage link below.

Thanks!

"Simon Lloyd" wrote:


Swingdancer, it would be good if you could attach the workbook, you can
join the forum in the link below for free, when making a post before you
click the submit button scroll down and you will see Manage Attachments
this is where you can upload a sample workbook, if you do join then
please make your post in this thread
'http://www.thecodecage.com/forumz/showthread.php?t=59441'
(http://www.thecodecage.com/forumz/sh...ad.php?t=59441) so that
people who have been following or helping can continue to do so.

Swingdancer42;217306 Wrote:
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!

"Simon Lloyd" wrote:


This should do what you want!
Code:
--------------------
Sub PrepareSheet()
Dim lRow As Long
lRow = ActiveSheet.Range("N" & Rows.Count).End(xlUp).Row
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$N$" & lRow
.Zoom = False
.FitToPagesWide = 1
End With
End Sub
--------------------


Swingdancer42;216398 Wrote:
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!!!


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' ('The Code Cage' (http://www.thecodecage.com))

------------------------------------------------------------------------
Simon Lloyd's Profile: 'The Code Cage Forums - View Profile: Simon
Lloyd' (http://www.thecodecage.com/forumz/member.php?userid=1)
View this thread: 'Print Area Set for Columns but Not Rows - The Code
Cage Forums' (http://www.thecodecage.com/forumz/sh...ad.php?t=59441)




--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=59441