how to make macro button to print page that has the active cell only?

Originally Posted by stnkynts

I don't get an error with Arkadi's code, it seems to be fairly sound. Here is another way of doing the same (Arkadi's code is actually a little more encompassing but may be more than you need)

Sub Print_ActiveCell_Sheet()
Dim x As Integer

With ActiveSheet
    Do
        x = x + 1
    Loop Until x = .HPageBreaks.Count Or ActiveCell.Row < .HPageBreaks(x).Location.Row
End With

ActiveSheet.PrintOut From:=x, to:=x

End Sub

this good is working great but it doesn't work on last page (that has the last page break line) its print the upper page instead of the current page
i wonder if u could edited
I really appreciate everything you've done to help me