Reports :: Exporting Individual Reports Based On Group To PDF?

I'm working on a project where I must save roughly 1000 individual access reports based on the group to a specific folder in pdf format.

Problem:The code I found on this site works, but not exactly the way I need it to. Using the current code (pasted below) all of the pages of the report are being saved to pdf for each group, instead of just the single page. For example, all 1000 pages of the report are being saved to each pdf file, when I only want the 1 page for each of the groups.

I believe that the problem lies in the filter for the Open Event code, but I don't know how to modifiy it to make it work the way I need.

CODE:

Option Compare Database
Public strRptFilter As String
Private Sub Report_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [SHIP_TO_CODE] FROM [qryWty&PendingData] ORDER BY

[code]....