Print to last column & row that has data

[ShawnSPS]

Header-Titles



A1 – Month

B1- Date

C1- Notes

D1- company





What I am attempting to do is only print A1 which is just the current month no other data is in that column. Then print any data from B-D. this sheet will be updated on the daily which means it will need to find the last column and row that has data in it. and I must be able to print it on one sheet . It may need to print in landscape. Because NOTES is a wider column to enter notes into it. what I have current is the following but what when it printer out it prints on three separate pages .. I don’t know why that is. can you please help out. .. Thank you





Sub prt()
Dim LR As Long
With ActiveSheet
LR = .Range("D" & Rows.Count).End(xlUp).Row
.PageSetup.PrintArea = "A1:D" & LR
.PrintOut
End With
End Sub

 

[ShawnSPS]

Here is the file you can use to see what I have .. this file does not have the Macro above setup

Blankcount4back.xlsm

Shared with Dropbox

www.dropbox.com