This code works perfectly except for the fact that it will not finish printing all the pages.
It stops on 8 1/2 pages on every report that is passed to it.
ie... If the report should be 200 pages, I am only getting the first 81/2 pages and then it moves on to the next report.
This is the Report Module's code:
Private Sub Report_Open(Cancel As Integer)
Dim strLine As String
varText = Null
Open OpenArgs For Input As #1
Do Until EOF(1)
Line Input #1, strLine
varText = varText + vbCrLf & strLine
And this is how I call the above Sub:
If AutoPrint = True Then
If outputType = "Print" Then
DoCmd.OpenReport "rptTextFile", acViewNormal, , , , oFile