Good Morning,
I posted yesterday with a query on how to stop files automatically opening when they are printed to a file (http://www.excelforum.com/excel-prog...d-to-file.html).
I managed to resolve this by finding out there was a checkbox in the "Save As" box that pops up when you choose "Print to File". Now while I can go through all the workbooks that I need to print, and save them with this checkbox unchecked it would be much neater if there was a way to do this through the same macro that I use for printing out all the sheets in the workbook.
So my question is, can this checkbox be manipulated through VBA or will I just have to bite the bullet and go through all the workbooks manually ensuring that this checkbox is unchecked. (If there is a way of turning this off altogether through excel itself then that would be a solution but I don't believe that there is)
I have been scouring Google for the last day or so and have so far come up with nothing so any pointers/hints to get me going in the right direction would be very much appreciated.
Below is my code just in case anyone wants it :-
Thanks in advance,![]()
Sub PrintAllSheets() Dim Current As Worksheet Dim n As Integer Dim c As Integer n = Application.Workbooks.Count For c = 1 To n 'This loops through all open workbooks For Each Current In Application.Workbooks(c).Worksheets 'This loop will execute for every worksheet in the currently active workbook If Current.Name <> "Blank" And Current.Visible = xlSheetVisible Then 'Ignores the first Blank Sheet and any Hidden sheets Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne01:" Current.PrintOut Copies:=1, PrintToFile:=True, Collate _ :=True, PrToFileName:="C:\" & Current.Name & ".tif" End If Next Next c End Sub
Ben
Bookmarks