The code is
################
stDocName = "fisfinrpt"
DoCmd.OutputTo acOutputReport, stDocName, outputformat,filename, False
stDocName = "SubRpt"
==> DoCmd.OutputTo acOutputReport, stDocName, outputformat, filename1
################
The line with the arrow is causing the...