MrExcel Publishing
Your One Stop for Excel Tips & Solutions

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. ExcelÂ’97 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] <> "" 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