if i click on a cell, Excel should print (on my printer) only the35 cells below this cell

if i click on a cell, Excel should print (on my printer) only the35 cells below this cell

For example:

If i click on A1
printing option box should open up, and if i click on print, it should only print from A2 to A37, and nothing else on the sheet.

Thank you for your help!!!

See below. This will print 35 rows below the active cell

[CODE]Dim pArea As String
Dim x As String
Dim y As String


x = ActiveCell.Address(1, 1)
y = ActiveCell.Offset(35, 0).Address


ActiveSheet.PageSetup.PrintArea = x & ":" & y[CODE]

Dim pArea As String
Dim x As String
Dim y As String


x = ActiveCell.Address(1, 1)
y = ActiveCell.Offset(35, 0).Address


ActiveSheet.PageSetup.PrintArea = x & ":" & y

sorry forgot absolute cell address for second string..see below

Dim pArea As String
Dim x As String
Dim y As String


x = ActiveCell.Address(1, 1)
y = ActiveCell.Offset(35, 0).Address(1,1)


ActiveSheet.PageSetup.PrintArea = x & ":" & y

It shouldn't be the active cell. It has to be cells below a specific cell...say D13. If i click on D13 (and only this cell), then 35 rows below this cell should print. I have information on other cells in this sheet where i will be clicking and i don't want anything printed there. I hope this makes sense...

thanks!

Also, where should i paste this code? when i open the VB code, should i paste in the MODULE section or in SHEET1 ?

more specifically, go to the Developer tab of the ribbon, click Visual Basic, click Insert from Menu Bar, click Module. Then type "Sub Macro1" then hit enter
put the code after the Sub Macro1 line but before the End Sub

just click on the cell then run the macro...so if you want D13 and 35 rows below, click on D13. THen run the macro. All the macro does it sets your print area. Then you can just click print like you normally would do.

Go to Visual Basic, insert a module, and post the code there