Aprilo in ANTEPRIMA, magari in modalità Hidden se non vuoi vederlo, quindi usa la Funzione PrintOut:
Sub PrintOut([PrintRange As AcPrintRange = acPrintAll], [PageFrom], [PageTo], [PrintQuality As AcPrintQuality = acHigh], [Copies], [CollateCopies])
Membro di Access.DoCmd
Come vedi espone la proprietà Copies