print from cell reference

[kavanagh]

Is it possible to select a sheet to print with a range within that cell to print

'TUNNEL-B SIDE
Private Sub Worksheet_Calculate()
If Range("E10").Value >= 186 Then
Application.EnableEvents = False
Workbooks.Open Filename:="DIV F-SHIPPING.xls"
Sheets(1) ("A2:AR83"). PrintOut
ActiveWorkbook.Close False
Application.EnableEvents = True
End If
I'm not sure how to add this range to this event I know this dosen't.

any help appreaciated K

 

[lenze]

You have to set the print area first. Something like this

With Sheet1.PageSetup
   .PrintArea = "$A$2:$C$5"
End With
Sheet1.PrintOut

lenze

 

[kavanagh]

Thank you for responding, but my inability to grasp how to write code dosen't help
I can't get it to work ,the original code takes me to another workbook. when I add that new bit to it it just takes me to sheet 1 within the same workbook and prints it instead of opening div f shipping workbook,
here's how I added your code I probably misunderstood
I'm not sure what $ dose

Private Sub Worksheet_Calculate()
If Range("E10").Value >= 186 Then
Application.EnableEvents = False
Workbooks.Open Filename:="DIV F-SHIPPING.xls"
With Sheet1.PageSetup
.PrintArea = ("e10:ar83")
End With
Sheet1.PrintOut
ActiveWorkbook.Close False
Application.EnableEvents = True
End If

any Ideas? Thank you