Get Default Printer (Visual Foxpro)

* Penulisannya
* =GetdefaPrn()
*----------------------------------------------------------------------------
PROCEDURE getdefaprn
DECLARE INTEGER GetDefaultPrinter IN winspool.drv;
STRING @ pszBuffer,;
INTEGER @ pcchBuffer

* returns default printer name (WinNT)
nBufsize = 250
cPrinter = REPLICATE(Chr(0), nBufsize)

= GetDefaultPrinter(@cPrinter, @nBufsize)
cPrinter = SUBSTR(cPrinter, 1, AT(Chr(0),cPrinter)-1)
RETURN cPrinter
ENDPROC