Printers（一）打印机配置信息

单元名

uses printers;

1、获取控制面板中的打印机列表

Printer.Printers  ;// 返回值类型 TStrings

2、设置打印机的打印属性打印方向自定义纸张大小

//参数：lpname  表示指定打印机名字  ''表示非默认打印机
procedure setPrinterInfo(lpname string) ;
varADevice, ADriver, APort: PChar;ADeviceMode: THandle ;PDMode: PDEVMODE;Anew :boolean ;
beginGetMem(ADevice,cchDeviceName);GetMem(ADriver,MAX_PATH);GetMem(APort,MAX_PATH);trytrywith printer dobegin判定打印机是否切换if (lpname <>'') thenbegin Anew := false;if printerindex <> printer.printers.indexof(lpname ) thenAnew := true ;printerindex := printer.printers.indexof(lpname ) ;end;GetPrinter(ADevice, ADriver, APort,ADeviceMode);/**B 针对打印机切换时使用******************************///例如将默认打印机切换到非默认打印机//GetNew_DeviceMode 自定义函数，位置UnitPrinterZDY单元中。if Anew thenbeginADeviceMode := GetNew_DeviceMode(ADevice) ; end;/**E**********************************************/if ADeviceMode <>  0 thenbeginpDMode  :=  GlobalLock(ADeviceMode);if pDMode <>  nil thenbeginpDMode^.dmFields:=pDMode^.dmFields or   DM_ORIENTATION;//设定打印方向横向打印pDMode^.DMORIENTATION:=   DMORIENT_LANDSCAPE ;end;SetPrinter(ADevice,ADriver,APort, ADeviceMode);GlobalUnlock(ADeviceMode);end;/**开始打印*******/BeginDoc ;//此处打印内容EndDoc ;/**结束打印*******/end;exceptApplication.MessageBox('设置失败','提示',MB_OK);end;finallyFreeMem(ADevice,cchDeviceName);FreeMem(ADriver,MAX_PATH);FreeMem(APort,MAX_PATH);end;
end ;

unit UnitPrinterZDY;interfaceuses Windows,winspool ;function GetNew_DeviceMode(ADevice : PChar ) : THandle;implementationfunction GetNew_DeviceMode(ADevice : PChar ) : THandle;
varStubDevMode: TDeviceMode;FPrinterHandle: THandle;DeviceMode: THandle;DevMode: PDeviceMode;
beginDeviceMode := 0 ;if OpenPrinter(ADevice, FPrinterHandle, nil) thenbeginDeviceMode := GlobalAlloc(GHND,DocumentProperties(0, FPrinterHandle, ADevice, StubDevMode,StubDevMode, 0));if DeviceMode <> 0 thenbeginDevMode := GlobalLock(DeviceMode);if DocumentProperties(0, FPrinterHandle, ADevice, DevMode^,DevMode^, DM_OUT_BUFFER) < 0 thenbeginGlobalUnlock(DeviceMode);GlobalFree(DeviceMode);DeviceMode := 0;DevMode := nil;endend;end;result := DeviceMode ;
end ;end.

Printers（一）打印机配置信息相关推荐

如何发布打印机文件夹及ICA 客户端打印机配置工具
如果希望用户自己添加打印机,请发布以下任一工具: ● ICA 客户端打印机配置工具(PrintCfg.exe).Windows CE 和 DOS 用户可使用此工具添加打印机. ● 添加打印机向导. ...
虚拟机配置与管理打印服务器,Fedora 28 打印机配置（ HP pro 1136M ，基于Windows 打印服务器使用 smb 协议）...
Fedora 28 本身是没有打印服务的.我们需要安装下列软件: System-Config-Printer Common Unix Printing System - CUPS samba 安装好后 ...
C++通过WMI获取硬件配置信息
C++通过WMI获取硬件配置信息 WMI即Windows管理规范.通过它可以访问.配置.管理和监视几乎所有的Windows资源. WMI提供程序在WMI和托管资源之间扮演着中间方的角色.提供程序代表使 ...
linux佳能打印机服务,linux桌面打印机配置指南
转载来源: linux桌面打印机配置指南| 2014-01-28 Linux下打印机适配难,主要是Linux版本太多,导致厂商无力也无太大兴趣关心其,个人刚好接触过这一块,专门整理一份文档方便查阅. ...
Linux操作系统打印机配置全攻略（一）（转）
一.Linux打印系统发展路线图在Unix世界里,PostScript语言是主要用于打印的接口.所有主要的应用程序都会输出通用的PostScript页面,而这些PostScript经过打印系统处理后 ...
在Ubuntu 14.04 64bit上查看硬件配置信息
陪伴我多年的老本ThinkPad T420渐渐垂垂老矣, 我想更新一下可以更新的部分, 比如将2.5寸HDD更换为SSD, 将单条4G内存再增加一根, 凡此种种想法, 可能最后归结为如何获取该笔记本的 ...
Django项目准备和配置（MVT图解、创建项目和应用、更换解释器、安装应用、本地化、模板路径、项目中匹配urls、应用中匹配urls.py、准备视图、开启服务器、修改DATABAS配置信息）
Django模型主要包含: 模型配置数据的增删改增:book = BookInfo() book.save() 和BookInfo.objects.create() 删:book.delete() ...
springboot 加载配置信息（静态）
springboot 加载配置信息(静态) 举例:动态设置验证码过期时间 application-uat.properties配置(文件路径:/src/main/resources/applicati ...
在.net中使用强类型来读取配置信息
在.net应用中,配置信息以XML文档的形式来存储.依.net的惯例,web.config为Asp.net应用(包括Web Service应用)提供配置信息:而*.exe.config为可执行的应用( ...

Printers（一）打印机配置信息

Printers（一）打印机配置信息相关推荐

最新文章

热门文章

Printers（一） 打印机配置信息

Printers（一） 打印机配置信息相关推荐

最新文章

热门文章

Printers（一）打印机配置信息

Printers（一）打印机配置信息相关推荐