Forum Discussion

AnnaS1953's avatar
AnnaS1953
Copper Contributor
Oct 01, 2020

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 an INSERT after each printed line?

2 Replies

  • NikolinoDE's avatar
    NikolinoDE
    Platinum Contributor

    AnnaS1953 

     

    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.

Resources