Forum Discussion
Is there a way to leave a blank line between each printed line?
I "manually" inserted a blank line between each printed line by using the INSERT command. However, apparently when I resort my data, I lose the blank lines. Any way to get them quicker than doing a...
maybe with VBA and a little twist. Insert empty lines from the beginning.
Example: hide empty lines and show them again after printing if there are no entries in the cells of columns C-E.
Sub Ausblenden()
Cancel = True
Dim Zeile As Long, Letzte As Long
Letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Zeile = 1 To Letzte
If Cells(Zeile, 3) <= 0 And Cells(Zeile, 4) <= 0 And Cells(Zeile, 5) <= 0 Then Rows(Zeile).EntireRow.Hidden = True
Next Zeile
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
For Zeile = 1 To Letzte
Rows(Zeile).EntireRow.Hidden = False
Next Zeile
End Sub
'in German and untested...but should work anyway.
It's just an idea, if you don't like it, please just ignore it.
Hope I was able to help you and would be happy to know if I could help you.
Nikolino
I know I don't know anything (Socrates)
* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.