worksheet row to print on two or more printout lines

[rh62]

I want to print two or more lines per worksheet row with a blank print line separating snaking rows. I have a 50 column job cost report that will not fit well on one print line regardless of formatting. I want a printout like I get with other accounting applications. Experienced user.

[Logit]

.
You can use this macro to insert a blank row between existing rows of data on your worksheet:

Option Explicit

Sub Insert_Blank_Rows()
     
     'Select last row in worksheet.
    Selection.End(xlDown).Select
     
    Do Until ActiveCell.Row = 1
         'Insert blank row.
        ActiveCell.EntireRow.Insert shift:=xlUp
         'Move up one row.
        ActiveCell.Offset(-1, 0).Select
    Loop
     
End Sub

Before running the macro, click on the next to the last row of existing data. In other words, if you data on the sheet goes from A1 to A10, click on A9, then run the macro.