Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print All Files in a Folder
Off google I found the following code, which I have since modified to
accomplish my subject objective; <<to no avail can someone assist? Sub Tester9() PathOnlysource = "C:\Formulas\Backuptest" ChDir PathOnlysource TheFile = Dir(PathOnlysource & "\*.xls") Do While TheFile < "" ActiveSheet.PrintOut TheFile = Dir Loop End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print All Files in a Folder
You need to open each of the workbooks in the loop before trying t
print them out. PATHONLYSOURCE = \"C:\TEST\" CHDIR PATHONLYSOURCE THEFILE = DIR(PATHONLYSOURCE & \"\*.XLS\") DO WHILE THEFILE < \"\" WORKBOOKS.OPEN FILENAME:=PATHONLYSOURCE & \"\\" & THEFILE ACTIVESHEET.PRINTOUT WORKBOOKS(THEFILE).CLOSE THEFILE = DIR LOOP Rolli -- Message posted from http://www.ExcelForum.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print All Files in a Folder
Jim,
What is that you want that you don't get? It may seem obvious, but I tried this with my directory and it worked fine for me. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Jim May" wrote in message news:SeuKc.374$ci.127@lakeread04... Off google I found the following code, which I have since modified to accomplish my subject objective; <<to no avail can someone assist? Sub Tester9() PathOnlysource = "C:\Formulas\Backuptest" ChDir PathOnlysource TheFile = Dir(PathOnlysource & "\*.xls") Do While TheFile < "" ActiveSheet.PrintOut TheFile = Dir Loop End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print All Files in a Folder
did you add code to open the workbook, or just get "n" copies of the sheet
that was active when you ran the code? -- Regards, Tom Ogilvy "Bob Phillips" wrote in message ... Jim, What is that you want that you don't get? It may seem obvious, but I tried this with my directory and it worked fine for me. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Jim May" wrote in message news:SeuKc.374$ci.127@lakeread04... Off google I found the following code, which I have since modified to accomplish my subject objective; <<to no avail can someone assist? Sub Tester9() PathOnlysource = "C:\Formulas\Backuptest" ChDir PathOnlysource TheFile = Dir(PathOnlysource & "\*.xls") Do While TheFile < "" ActiveSheet.PrintOut TheFile = Dir Loop End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print All Files in a Folder
Tom:
Thanks; No, I failed to "open" the workbooks. I've since gotten my answer from code written by Ron de Bruin; Have a good one.. "Tom Ogilvy" wrote: did you add code to open the workbook, or just get "n" copies of the sheet that was active when you ran the code? -- Regards, Tom Ogilvy "Bob Phillips" wrote in message ... Jim, What is that you want that you don't get? It may seem obvious, but I tried this with my directory and it worked fine for me. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Jim May" wrote in message news:SeuKc.374$ci.127@lakeread04... Off google I found the following code, which I have since modified to accomplish my subject objective; <<to no avail can someone assist? Sub Tester9() PathOnlysource = "C:\Formulas\Backuptest" ChDir PathOnlysource TheFile = Dir(PathOnlysource & "\*.xls") Do While TheFile < "" ActiveSheet.PrintOut TheFile = Dir Loop End Sub |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print All Files in a Folder
Bob: Thanks for looking in on this..
What I was trying to do << and have since accomplished-below was: using what i call a surrogate workbook to run a macro which opens each .xls file in a folder and prints each and then closes each. The code I posted was printing my surrogate activesheet twice since my test folder had two files in it.. I later found this code by Ron de Bruin off google.. [works perfectly] Sub PrintAllinFolder() Dim i As Long Dim WB As Workbook Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = "C:\WINDOWS\Desktop\Temp Excel Formulas\Backuptest" .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() 0 Then For i = 1 To .FoundFiles.Count Set WB = Workbooks.Open(.FoundFiles(i)) WB.PrintOut WB.Close False Next i End If End With Application.ScreenUpdating = True End Sub "Bob Phillips" wrote: Jim, What is that you want that you don't get? It may seem obvious, but I tried this with my directory and it worked fine for me. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Jim May" wrote in message news:SeuKc.374$ci.127@lakeread04... Off google I found the following code, which I have since modified to accomplish my subject objective; <<to no avail can someone assist? Sub Tester9() PathOnlysource = "C:\Formulas\Backuptest" ChDir PathOnlysource TheFile = Dir(PathOnlysource & "\*.xls") Do While TheFile < "" ActiveSheet.PrintOut TheFile = Dir Loop End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro creating folder and files automatically, without permission. | Excel Discussion (Misc queries) | |||
Macro to create a folder and copy files | New Users to Excel | |||
I would like to print the titles of files inside a folder. | Excel Worksheet Functions | |||
Macro to copy range from Excel files in folder | Excel Discussion (Misc queries) | |||
how do i print a list of files in a folder in excel? | New Users to Excel |