If all you want to do is print a few sheets from your workbook. Try the
following :
Public Sub PrintSomeSheets()
Dim FileName As String
Application.ScreenUpdating = False
FileName = "C:\Accounting\Reports\Budget.xls"
Workbooks.Open FileName, , True
With Workbooks(FileName)
.Worksheets("Report1").PrintOut
.Worksheets("Report2").PrintOut
.Worksheets("Report3").PrintOut
.Worksheets("Report4").PrintOut
.Worksheets("Report5").PrintOut
.Close SaveChanges:=False
End With
Application.ScreenUpdating = True
End Sub
On Mon, Jan 19, 2009 at 4:51 AM, VIRAL PANDYA <pandya....@gmail.com> wrote:
>
> Plz plz plz help me out.....
>
>
>
> On 1/18/09, VIRAL PANDYA <pandya....@gmail.com> wrote:
>>
>> Dear All,
>>
>> I have a excel sheet contains 128 Sheets and daily i have to take print
>> out only for 5 Sheet (record sheets).
>>
>> Is there any way by which i can create a linked excel file for only this 5
>> sheets?
>>
>> Please help.
>>
>> Regards,
>> Viral Pandya
>>
>>
>>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
