Declare GetDefaultPrinter In winspool.drv String @ cPrtName, Integer @ nBuffLength cPrtName = Space(255) If GetDefaultPrinter(@cPrtName, Len(cPrtName)) = .T. lcPrinter = Substr(cPrtName, 1, Len(Alltrim(cPrtName)) - 1) Endif