dear sir,
Thanks for replying . it is selected page by page , but i need
select the print areaupto end of row.
Thanks with
Mothilal
On Sun, Aug 18, 2013 at 8:24 PM, Basole wrote:
> Try this ..
>
> Sub ActivAreaPrint()
> 'defines the print area as selected cells
> ActiveShe
Try this ..
Sub ActivAreaPrint()
'defines the print area as selected cells
ActiveSheet.UsedRange.Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
' IgnorePrintAreas:=False
End Sub
Em domingo, 18 de agos