Marco to print

Posted by Paul Bridges on October 23, 2001 8:36 AM

I need a Marco to print sheet 1 range A1:AK29, it also needs to print sheet 2 range A1:AK29 if sheet 2 cell G29 has anything in it. Excel97 Thanks

Posted by Juan Pablo on October 23, 2001 9:20 AM

Sub PrintA1AK29()
With Sheets("Sheet1")
.PageSetup.PrintArea = "$A$1:$AK$29"
.PrintOut
End With
With Sheets("Sheet2")
If .[G29] &LT;&GT; "" Then
.PageSetup.PrintArea = "$A$1:$AK$29"
.PrintOut
End If
End With

End Sub

Juan Pablo

Posted by Paul Bridges on October 23, 2001 11:09 AM

Thanks