Crear tabla

En el botón al imprimir consulta
Puedes :
1) Cambiar el texto SQL de tu consulta antes de ejecutarla.
2) Pasar el texto nuevo a la consulta
3) Ejecutarla
Digamos tu consulta es
SELECT [Empleados].* INTO nueva
FROM Empleados;
pues se puede dividir en dos partes fijas y una variable
---
const sq1 as string = "SELECT [Empleados].* INTO "
const sq2 as string = " from empleados"
---
tu consulta hecha al vuelo mediante codigo sería
dim MiSql as string
MiSQL = sq1 & MiNombreTabla & sq2
---
Para el punto 2
currentdb.querydefs("MiConsulta").SQL = MiSQL
currentdb.querydefs.refresh
---
Y para el punto 3 ya se supone que sigues con lo que tenias antes.
Ah! Para dar valor a MiNombreTabla usa InputBox, DLookup, formularios, etc.
Salud.