I want to have code that will print everything down the sheet until it sees a blank in column A. I have included the code i am trying but it keeps giving me errors. Thanks for your time
Sub PrintMacro()
Dim r As Integer, NumberOfColumns As Integer
Dim PrintRange As Range
'Determine print range
r = 0
Do Until Cells(r + 1, 1).Value = ""
r = r + 1
Loop
NumberOfColumns = 14 'Change this depending on how many
'columns you want printed.
Set PrintRange = ActiveSheet.Range(Cells(1, 1), Cells(r, NumberOfColumns))
With ActiveSheet.PageSetup
.PrintArea = PrintRange.Address
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveSheet.PrintOut
End Sub
Bookmarks