delphi 设置打印机 纸张大小! 也可以获取纸张大小

本文整理自网络，侵删。

 Var 
aDevice: array[0..CCHDEVICENAME-1] of Char; 
aDriver: array[0..MAX_PATH-1] of Char; 
aPort: array[0..31] of Char; 
hDevMode: THandle; 
pDevMode: PDeviceMode; 
begin 
// 获取打印机DeviceMode的句柄 

Printer.GetPrinter(aDevice, aDriver, aPort, hDevMode); 
if hDevMode <> 0 then 
begin 
// 获取指向DeviceMode的指针 
printer.PrinterIndex:=printer.PrinterIndex; 
pDevMode := GlobalLock(hDevMode); 
if pDevMode <> nil then 
begin 
pDevMode^.dmPaperSize := DMPAPER_USER; //自定义纸张 
pDevMode^.dmPaperLength := 250; //纸长你可用变量获得纸张的长、宽。 
pDevMode^.dmPaperWidth := 400; //纸宽 
pDevMode^.dmFields := pDevMode^.dmFields or DM_PAPERSIZE; 
pDevMode^.dmFields := pDevMode^.dmFields or DM_PAPERLENGTH; 
pDevMode^.dmFields := pDevMode^.dmFields or DM_PAPERWIDTH; 
ResetDC(Printer.Handle, pDevMode^); 
GlobalUnlock(hDevMode); 
end; 
end; 

相关阅读 >>

Delphi在文件结尾写入和读出数据

winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母

Delphi 文件查找findfirst,findnext,findclose

Delphi pointer 转成string

Delphi 获取国外格式日期时间

Delphi idhttp1 xmlpost

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi 如何确定access数据库中存在某一个已知名的表

汇编文档进制及进制的转换

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 设置打印机 纸张大小! 也可以获取纸张大小