#DEFINE OLECMDID_SAVE 3 #DEFINE OLECMDID_SAVEAS 4 #DEFINE OLECMDID_PRINT 6 #DEFINE OLECMDEXECOPT_DODEFAULT 0 #DEFINE OLECMDEXECOPT_PROMPTUSER 1 #DEFINE OLECMDEXECOPT_DONTPROMPTUSER 2 * Print ThisForm.oWeb.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0) * SaveAs Thisform.oWeb.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT,0,0)