WITH thisform.crCrystal .ReportFileName = Thisform.PrintType + "RAT.RPT" .Destination = 1 && crptToPrinter .SelectionFormula = "{FRGENDEC.GDQUE_ID}='" + curforms.pqid + "'" .DataFiles(0) = "frgendec.dbf" .DataFiles(1) = "frratsht.dbf" .DataFiles(2) = "" pnReturnValue = .PrintReport IF pnReturnValue <> 0 =MessageBox ("Crystal Report " + Thisform.PrintType+"RAT" + CR + ; "Generated Error: " + LTRIM(STR(pnReturnValue))) ENDIF ENDWITHWhen it executes the .PrintReport statement the users see a window showing a "Printing Page...." box. However, nothing gets to the printer. I've checked and the correct printer is set as their default.