Forum Discussion

1 Reply

  • NikolinoDE's avatar
    NikolinoDE
    Platinum Contributor

    ashfaqahmed947 

     

     

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
        Worksheets("Quittung").Range("B1") = Worksheets("Quittung").Range("B1") + 1
    End Sub

     

     Please, adjust settings, path and name.

     

    I would be happy to know if I could help.

     

    I wish you continued success with Excel

     

    Nikolino

    I know I don't know anything (Socrates)

     

    * Kindly Mark and Vote any reply if it helps please, as it will be beneficial to more Community members reading here.

Resources