点击或拖拽改变大小

PrintingDevice.UpdateDevMode 方法

X#

注意：此 API 现在已过时。

将对 DevMode 结构所做的更改应用到关联的设备驱动程序。

命名空间：  XSharp.VO.SDK
程序集：  XSharp.VOGUIClasses (在 XSharp.VOGUIClasses.dll 中) 版本：2.22 GA
语法
复制
[ObsoleteAttribute]
 VIRTUAL METHOD UpdateDevMode() AS USUAL
查看代码

返回值

类型：__Usual
一个逻辑值，指示更新的成功与否。
备注
UpdateDevMode() 将 PrintingDevice 对象的 DevMode 结构中的信息复制到打印机驱动程序。 通过 PrintingDevice:GetDevMode() 方法提供对结构的访问。您必须首先使用此方法获取指向结构的指针。 此结构位于底层的 PrintingDevice 对象中。
示例
本示例将方向更改为横向，并将要打印的副本数设置为10。
X#
复制
 1// 假设oPD是一个PrintingDevice对象。
 2LOCAL structDevMode AS _WINDEVMODE // AS为指针分配内存
 3
 4structDevMode               := oPD:GetDevMode() // 映射打印设备的devmode结构
 5structDevMode.dmCopies      := 10
 6structDevMode.dmOrientation := DMORIENT_PORTRAIT
 7
 8lSuccess := oPD:UpdateDevMode()
 9
10IF !lSuccess
11    ? "更新devmode时出错"
12ELSE
13    ? "devmode成功更新"
14ENDIF
15
16InKey(0)
17// 销毁打印机对象(回收GDI资源)
18oP:Destroy()
19
20FUNCTION ShowValue(uValue)
21    IF IsArray(uValue)
22        AEval(uValue, {|u| ShowValue(u)}) // 递归，直到找到单个元素
23        ELSEIF IsNumeric(uValue) .AND. uValue = CAPABILITY_NOT_AVAIALBLE
24        QOut("驱动程序不可用的设备能力")
25    ELSE
26        QOut(uValue)
27    ENDIF
参见