I wrote this macro to print the data of many files. I do this by looping through a list of files and if the file has been tagged I import the data and print. The problem is that when the file prints one of the graphs shrinks a little bit. On one file it's not noticeable but after 30 files it's now much smaller than the other(which remains the same size). The graph that's shrinking is a Log graph if it matters
Code:
Sub printTaged()
Application.ScreenUpdating = False
first = True
StartingPos = Range("Current_Aging_File").Value 'save starting Unit
Range("Current_Aging_File").Value = 0 'reset unit to begining
For i = 1 To Range("No_Aging_Files").Value - 1
If (Range("Put_Path").Offset(i - 1, 2).Value) Then 'if it's been taged
SelectFile.Next_Unit 'open it
If (first) Then 'and print
Application.Dialogs(xlDialogPrint).Show
first = False
Else
ActiveWindow.SelectedSheets.PrintOut
End If
Else: Range("Current_Aging_File").Value = Range("Current_Aging_File").Value + 1
'else move to next file
End If
Next i
Range("Current_Aging_File").Value = StartingPos - 1 'move back to Starting unit
SelectFile.Next_Unit
End Sub