set procedure to gs addi && you need the gs.prg that John shared with me. * set word's printer to the PS Printer oword.ActivePrinter = "Generic PostScript Printer" oword.ActiveDocument.printout(.t.,,,lcprnfile) *then DO WHILE .T. ADIR(LAFILES,lcprnfile) _SCREEN.ADDPROPERTY('LNPRNSIZE',LAFILES(1,2)) WAIT WINDOW TIMEOUT 1 IF LAFILES(1,2)==_SCREEN.LNPRNSIZE EXIT ENDIF ENDDO oword.activedocument.close() oword.quit() lcprnfile=LOWER(lcprnfile) LCOUTFILE=STRTRAN(lcprnfile,'prn','pdf') x=PS2PDF(lcprnfile,LCOUTFILE)