OutPut To causing report problem

[reddwarf999]

Have a report based on a query. Report opens in preview mode and shows only one line of data when there should be mutiple lines.

Using this code below to output a snapshot file:

Sub OutputLoanCardReport()

Dim strUserName As String, strPath As String
strUserName = Reports![Loan Card Report].txtSurname.Text & " " & Reports![Loan Card Report].txtFirstName.Text & " " & Reports![Loan Card Report].DateLoaned.Text
strPath = "C:\Documents and Settings\somename\Desktop\" & strUserName & ".snp"
DoCmd.OutputTo acOutputReport, "Loan Card Report", acFormatSNP, strPath

End Sub

I tried this code in every event of the report with same results, Preview shows one line snapshot shows all lines.
This is now in it's own module and I'm calling it from the Report's events, tried all of them again with same results.