Private Sub cmdPrint_Click()
   Dim CRXApplication As CRAXDRT.Application
   Dim CRXReport As CRAXDRT.Report
   
   Set CRXApplication = New CRAXDRT.Application
   Set CRXReport = New CRAXDRT.Report
   
   Set CRXReport = CRXApplication.OpenReport("Sample.rpt",  1 )
   
   ' <<< здесь как-нибудь указать имя принтера ( которое известно, указано в настройках программы)
   CRXReport.PrintOut  ' <<< хотелось бы, чтобы сразу печатал и диалог не показывал
     
   Set CRXReport = Nothing
   Set CRXApplication = Nothing
End Sub