Reports :: Emailing From Report Sections?

I have many reports that are structured differently, many are grouped by semester.

What I do now, is put a button on each grouping of the report I want to email from and use the current semester (Sem) which is also a query parameter to filter the report.

Here is my current code which works fine:

Sub EmailFromReport(rpt As Report, Optional Sem As Variant)
Dim db As Database
Dim qry As QueryDef
Dim rs As Recordset
Dim Bcc As String
Dim Subject As String
Set db = CurrentDb
Set qry = CurrentDb.QueryDefs(rpt.RecordSource)
'set query parameters

[code]....

The problem is, I need to be able to filter these queries on other criteria besides the semester.

My first idea was to use if statements to skip the records I don't want. This is messy and the report structures are different so I run into issues when using optional parameters because not all the reports are structured the same.

The best solution I have come up with so far is using a wherefilter parameter, stripping the semi colon off the querydef sql and surrounding the sql with a qrydef.SQL = "SELECT Email1, Email2 FROM (" qrydef.SQL ") WHERE " & wherefilter.

The problem is this, changes the original query, and I can't figure out how to copy a query with db.CreateQueryDef If i do db.CreateQueryDef("tempqry",qrydefSQL), I lose the query parameters.

Is there a better way to do this? If this is the best way, how do you take an existing query and make a copy of it?