Poniamo che nelle dichiarazioni del form dove hai inserito l'oggetto CrystalActiveXReportViewer abbia inserito il codice:
Dim crAPP As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
eppoi nella sub form_activate il codice:
Set crAPP = New CRAXDRT.Application
Set Report = crAPP.OpenReport(NomeFile)
dove NomeFile è la stringa dell'indirizzo completo del report da stampare
eppoi tu abbia inserito un bottone comando chiamato ad esempio cmd3dStampa
nella sub cmd3dStampa_click inserisci il codice:
Report.RecordSelectionFormula = NomeFormula
Report.RecordSortFields.Add fld, crAscendingOrder
Report.PrintOut
dove NomeFormula è una stringa vuota o contenente la formula di selezione record del report da stampare
... e il gioco è fatto. 
Aeghé vi saluta!