If you go to the file %temp%QTPrintLog.txt you can see all of the QuickTest Print logs. This will have complete history since this file was created. Recommend deleting this file before writing to file so that you do not get previous history usages.
Below is example code to delete log file.
Dim fso, MyFile
Set fso = CreateObject(''Scripting.FileSystemObject'')
Set MyFile = fso.GetFile(Environment(''SystemTempDir'') & ''QTPrintLog.txt'')
Set MyFile = nothing
Set fso = nothing
Note: %temp% is the reference to the Environment variable which holds the value is the system temp directory.