//判断是否NT系统 function Boolean IsWindowsNt() library 'extlib.dll' ALIAS FOR "GetUserNameA;Ansi" //获得打印机总数 function integer GetPrinterCounts() library 'extlib.dll' ALIAS FOR "IsWindowsNt;Ansi" //得到打印机名称 function string GetPrinterName(integer iIndex) library 'extlib.dll' ALIAS FOR "GetPrinterName;Ansi" //得到缺省打印机 function string GetDefaultPrinter() library 'extlib.dll' ALIAS FOR "GetDefaultPrinter;Ansi" //在9x下自定义纸张大小 function integer SetPaperSizeFor9x(String PrinterName,integer PaperWidth,integer PaperLength) library 'extlib.dll' ALIAS FOR "SetPaperSizeFor9x;Ansi" //在NT下新增一个自定义大小的纸张 function integer AddFormForNT(string FormName,double PaperWidth,double PaperLength) library 'extlib.dll' ALIAS FOR "AddFormForNT;Ansi" //在NT下删除一个自定义大小的纸张 function integer DeleteFormForNT(String PrinterName,string FormName) library 'extlib.dll' ALIAS FOR "DeleteFormForNT;Ansi" //获取当前打印机所支持的纸张 function Integer GetPaperList(ref str_PaperList pList) library 'extlib.dll' ALIAS FOR "GetPaperList;Ansi" //获取指定打印机的端口 function string GetPrinterPort(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterPort;Ansi" //获取指定打印机的状态 function Integer GetPrinterStatus(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterStatus;Ansi" ////获取指定打印机的缺省纸张名称 function Integer GetPrinterPaper(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterPaper;Ansi" //获取指定打印机的纸张方向 function Integer GetPrinterOrientation(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterOrientation;Ansi" //设值指定打印机的纸张方向 function Integer SetPrinterOrientation(String PrinterName,Integer Orientation) library 'extlib.dll' ALIAS FOR "SetPrinterOrientation;Ansi" //设值缺省打印机 function Integer SetDefaultPrinter(String PrinterName) library 'extlib.dll' ALIAS FOR "SetDefaultPrinter;Ansi" //设置打印机属性 function Integer SetPrinterProperties(ulong HWND,String PrinterName) library 'extlib.dll' ALIAS FOR "SetPrinterProperties;Ansi" //设置缺省纸张 function Integer SetDefaultPaper(String PrinterName,Integer PaperIndex,Integer PaperWidth,Intege
2021-07-01 09:34:29 438KB extlib.dll具体应用,PB10测试通过
1