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.

Sub DelLog 
	Dim fso, MyFile
	Set fso = CreateObject(''Scripting.FileSystemObject'')
	Set MyFile = fso.GetFile(Environment(''SystemTempDir'') & ''QTPrintLog.txt'')
	MyFile.Delete
        Set MyFile = nothing
        Set fso = nothing
End Sub

Note: %temp% is the reference to the Environment variable which holds the value is the system temp directory.