VB Code to Print Visible Cells

[estrauss22]

Is there a macro I can write that will print cells with visible data. I have worksheet that has about 1000 rows with formulas but currently only has 7 rows with visible data. I'd like to have a print button that would allow the users to just press it and print the visible cells only. I've tried building a macro that, if you select the bottom left cell of the visible worksheet, it would highlight to the top and to the right, go to print, print selection and so on. I don't know how to write the code so that is would select up to cell "A1" and then over to the right to cell "S1"...

Any help on this or a different method?

 

[BrianB]

I think this is what you want.

'============================================================================
'- CHANGE PRINT RANGE TO INCLUDE TOP OF SHEET DOWN TO ACTIVE CELL
'- select a cell anywhere in the bottom row and run the macro
'- could be put into ..  Private Sub Worksheet_BeforeDoubleClick
'============================================================================
Sub test()
    Dim MyRow As Long
    Dim PrintAreaAddress As String
    '------------------------------------------------------------------------
    MyRow = ActiveCell.Row
    PrintAreaAddress = Range(Cells(1, "A"), Cells(MyRow, "S")).Address
    ActiveSheet.PageSetup.PrintArea = PrintAreaAddress
End Sub