Skip to content

sample_359.md

Latest commit

 

History

History
43 lines (32 loc) · 1.21 KB

sample_359.md

File metadata and controls

43 lines (32 loc) · 1.21 KB

Home

Retrieving the path of the printer-driver directory and printer-processor directory

Code:

DO decl

LOCAL lcBuffer, lnBufsize
lcBuffer = Repli(Chr(0), 250)
lnBufsize = 0

IF GetPrinterDriverDirectory(Null, Null, 1,;
	@lcBuffer, Len(lcBuffer), @lnBufsize) <> 0

	lcBuffer = SUBSTR(lcBuffer, 1, AT(Chr(0),lcBuffer)-1)
	? "Printer Driver Directory:", lcBuffer
ENDIF

lcBuffer = Repli(Chr(0), 250)
lnBufsize = 0
IF GetPrintProcessorDirectory(Null, Null, 1,;
	@lcBuffer, Len(lcBuffer), @lnBufsize) <> 0

	lcBuffer = SUBSTR(lcBuffer, 1, AT(Chr(0),lcBuffer)-1)
	? "Printer Processor Directory:", lcBuffer
ENDIF

PROCEDURE decl
	DECLARE INTEGER GetPrinterDriverDirectory IN winspool.drv;
		STRING pName, STRING pEnvir, LONG Lvl,;
		STRING @pDriverDir, LONG cbBuf, LONG @pcbNeeded

	DECLARE INTEGER GetPrintProcessorDirectory IN winspool.drv;
		STRING pName, STRING pEnvir, INTEGER Lvl,;
		STRING @pPrintProcInfo, INTEGER cbBuf, INTEGER @pcbNeeded

Listed functions:

GetPrintProcessorDirectory
GetPrinterDriverDirectory