Delphi 动态调整打印机纸张大小

网络 Delphi

本文整理自网络，侵删。

 信息管理系统中经常要提供各种打印功能，例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的，例如，打印报表有可能使用A4 纸或A3 纸，打印凭证或发票可能需要将打印纸张设置成自定义大小。如果在同一台打印机上打印这些内容，那么就应该针对不同的打印内容设置不同的纸张尺寸。显然如果用手动的方法来设置打印机的纸张尺寸是件很麻烦的事，最好的方法是让程序动态地修改打印机的纸张尺寸。 

　　解决问题的思路 

　　通过查阅API 函数技术文档可知，每个打印机都拥有唯一的一个叫做DevMode 的结构，与打印机相关的各项参数被存放在这个结构中。通过对DevMode 结构的分析，发现与设置打印机纸张大小有关的结构成员有四项：dmFields、dmPaperSize、dmPaperLength 以及dmPaperWidth。dmFields 是DevMode 的标志位初始化部分，如果要修改结构中的某些成员，那么dmFields 中相应位应被置位。dmPaperSize 表示打印机当前默认的打印纸张的大小，若要设置自定义纸张该项应为0（注，上述解释是根据微软提供的技术文档，但是在Delphi 中应将该成员设置成＄100 即256）。dmPaperLength 和dmPaperWidth 只是在设置自定义大小纸张时使用，分别表示纸张的长度和宽度。如何对打印机的DevMode 结构进行修改呢？无非采用两种方法，一种是利用Delphi 提供的TPrinter 类中的某些方法，还有一种是调用与打印有关的API 函数。下面就以Delphi 为开发工具，以Epson 1600K 为默认打印机，用两种不同的方法来实现这一功能。 

方法一：利用Delphi 的TPrinter 类 

　　TPrinter 类是Delphi 对Windows 打印处理系统的封装，它能够帮助程序员在开发打印程序时尽可能地减少工作量。在程序中使用TPrinter，只要在单元的Use 子句后面添加Printers 即可。当前打印机的DevMode 结构的句柄可以通过调用Tprinter 类中的GetPrinter 方法来获取。当程序获得DevMode 结构的句柄后，就调用GlobalLock 函数来得到指向该结构的指针，随后可对结构中的某些成员进行修改。下面就举一个例子来说明这一问题：假设当前打印机的默认纸张尺寸是A3 纸，现在要打印长度为114mm、宽度为190mm 的纸张。为了简单起见，我们只在Form1 上放置一个Button1 按钮，增加一个OnClick 事件，在Use 子句后添加Printers。程序的代码如下： 

delphi代码
Procedure TForm1.Button1Click(Sender: TObject); 
var 
　Device : array[0..cchDeviceName －1] of Char; 
　Driver : array[0..(MAX_PATH －1)] of Char; 
　Port : array[0..32]of Char; 
　hDMode : THandle; 
　pDMode : PDevMode; 
begin 
　 Printer.GetPrinter(Device,Driver,Port,hDMode); 
// 获取打印机DevMode 结构的句柄值， 
　存放在hDMode 中 
　 if hDMode < > 0 then begin 
　　　 pDMode := GlobalLock(hDMode); 
// 获取指向打印机DevMode 结构的// 指针 
　　　 if pDMode < > nil then begin 
　　　　　pDMode^.dmPaperSize := 256; 
// 如果要将当前打印机纸张变为自定义 
dmPaperSize 必须设置成256 
　 　pDMode^.dmPaperLength := 1140; 
　 　pDMode^.dmPaperWidth := 1900; 
　　 pDMode^.dmFields := pDMode^.dmFields or 
DM_PAPERSIZE; 
　pDMode^.dmFields := 
　　pDMode^.dmFields or DM_PAPERLENGTH; 
　pDMode^.dmFields := 
　　pDMode^.dmFields or DM_PAPERWIDTH; 
　　 {　以上三条语句是对相应 
　　　　的dmFields 成员进行置位。} 
　 　ResetDC(Printer.Handle,pDMode^); 
// 设置打印机设备环境句柄的值 
　 　GlobalUnlock(hDMode); 
　 　end; 
　 end; 
{ 下面的代码是为了测试打印机是否 
　按190 ＊114 纸张大小来打印} 
　 with Printer do begin 
　　　BeginDoc; 
　　　Canvas.TextOut(10,10,'Hello, My Friend!'); 
　　　EndDoc; 
　 end; 
end; 

Procedure TForm1.Button1Click(Sender: TObject);
var
　Device : array[0..cchDeviceName －1] of Char;
　Driver : array[0..(MAX_PATH －1)] of Char;
　Port : array[0..32]of Char;
　hDMode : THandle;
　pDMode : PDevMode;
begin
　 Printer.GetPrinter(Device,Driver,Port,hDMode);
// 获取打印机DevMode 结构的句柄值，
　存放在hDMode 中
　 if hDMode < > 0 then begin
　　　 pDMode := GlobalLock(hDMode);
// 获取指向打印机DevMode 结构的// 指针
　　　 if pDMode < > nil then begin
　　　　　pDMode^.dmPaperSize := 256;
// 如果要将当前打印机纸张变为自定义
dmPaperSize 必须设置成256
　 　pDMode^.dmPaperLength := 1140;
　 　pDMode^.dmPaperWidth := 1900;
　　 pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE;
　pDMode^.dmFields :=
　　pDMode^.dmFields or DM_PAPERLENGTH;
　pDMode^.dmFields :=
　　pDMode^.dmFields or DM_PAPERWIDTH;
　　 {　以上三条语句是对相应
　　　　的dmFields 成员进行置位。}
　 　ResetDC(Printer.Handle,pDMode^);
// 设置打印机设备环境句柄的值
　 　GlobalUnlock(hDMode);
　 　end;
　 end;
{ 下面的代码是为了测试打印机是否
　按190 ＊114 纸张大小来打印}
　 with Printer do begin
　　　BeginDoc;
　　　Canvas.TextOut(10,10,'Hello, My Friend!');
　　　EndDoc;
　 end;
end;


方法二：利用有关打印的Windows API 函数 

　　解决问题的思路和第一种方法类似，首先要获取当前打印机的DevMode 结构的指针，然后再对该结构进行修改，从而修改打印机纸张大小。要完成上述功能，就得调用DocumentProperties 函数。利用该函数程序就可以获取并修改与当前打印机相关的DevMode 结构中的成员。DocumentProperties 函数申明如下： 

Delphi代码
LONG DocumentProperties 
( 
　　HWND　　　 hWnd, 
　　HANDLE　　 hPrinter,　　　 
　　LPTSTR　　　pDeviceName,　 
　　PDEVMODE　pDevModeOutput,　 
　　PDEVMODE　pDevModeInput,　 
　　DWORD　　 fMode 
); 

LONG DocumentProperties
(
　　HWND　　　 hWnd,
　　HANDLE　　 hPrinter,　　　
　　LPTSTR　　　pDeviceName,　
　　PDEVMODE　pDevModeOutput,　
　　PDEVMODE　pDevModeInput,　
　　DWORD　　 fMode
);

　　六个参数中只有pDevModeOutput 是输出变量，其余五个参数必须由程序给出具体值。其中，hWnd 表征当前窗口的句柄值；hPrinter 表示当前打印机的句柄；pDeviceName 是对打印机设备的描述；pDevModeOutput 是指向句柄值为hPrinter 的打印机DevMode 结构的指针；pDevModeInput 是指向一个修改后的DevMode 结构的指针，该结构有待于被句柄值为hPrinter 的打印机接受；fMode 定义了该函数的具体功能，如果取值DM_IN_BUFFER 那么表示打印机接受由参数pDevModeInput 表示的由程序修改了的DevMode 值，如果取值DM_OUT_BUFFER 那么程序可以通过参数pDevModeOutput 来获取打印机的DevMode 值，如果fMode 为零，则函数返回的值表示结构DevMode 所需的字节数。承接上述例子，现在将190 ＊114 大小的纸张设成A4 纸。再往Form1 上放置按钮Button2，增加OnClick 事件，在Use 子句后面添加WinSpool。代码如下： 

delphi 代码:
Procedure TForm1.Button2Click(Sender: TObject); 
var 
　 PrnHd　:　THandle; 
　 PrnInfo : PPrinterInfo1; 
　 pcbNeeded : DWORD; 
　 PDevModeBytes : DWORD; 
　 DevMode: PDeviceMode; 
　 PrnHdc : HDC; 
　 DocInfo : PDocInfo; 
begin 
　 OpenPrinter('Epson LQ －1600K',PrnHd,nil); 
　 // 获得打印机句柄PrnHd 
　 GetMem(PrnInfo,1024); 
　 GetPrinter(PrnHd,1,PrnInfo,1024,@pcbNeeded); 
　 PDevModeBytes:= DocumentProperties 
( Handle,PrnHd,prninfo^. 
　pDescription,DevMode^,DevMode^,0 ); 
{　获取DevMode 结构所需的字节数} 
　 GetMem(DevMode,PDevModeBytes); 
// 给结构DevMode 分配空间 
　 DocumentProperties( Handle,PrnHd,PrnInfo^.p 
　Description,DevMode^,DevMode^,DM_OUT_BUFFER ); 
// 获取打印机的DevMode 结构 
　 With DevMode^ do begin 
　　　dmPaperSize := DMPAPER_A4　　 ; 
// 将纸张设置成A4 纸 
　　　dmFields := dmFields or DM_PAPERSIZE; 
　 end; 
　 DocumentProperties( Handle,PrnHd,PrnInfo^.p 
Description,DevMode^,DevMode^, 
DM_OUT_BUFFER or DM_IN_BUFFER); 
// 修改DevMode 结构。 
　{ 下面的代码是为了测试打印机 
　　是否按A4 纸大小来打印　} 
　 PrnHdc := CreateDC 
( nil, 'Epson LQ －1600K',nil,DevMode ); 
　 GetMem( DocInfo, 100 ); 
　 With DocInfo^ do begin 
　　　cbSize := sizeof(DocInfo); 
　　　lpszDocName := nil; 
　　　lpszOutput := nil; 
　　　lpszDatatype := nil; 
　　　fwType := DI_APPBANDING; 
　 end; 
　 StartDoc( PrnHdc, DocInfo^); 
　 StartPage(PrnHdc); 
　 TextOut( PrnHdc, 10, 10, 'Hello My Friend!',17); 
　 EndPage(PrnHdc); 
　 EndDoc(PrnHdc); 
　 DeleteDC(PrnHdc); 
　 FreeMem(DocInfo); 
　 FreeMem(PrnInfo); 
　 FreeMem(DevMode); 
end; 

Procedure TForm1.Button2Click(Sender: TObject);
var
　 PrnHd　:　THandle;
　 PrnInfo : PPrinterInfo1;
　 pcbNeeded : DWORD;
　 PDevModeBytes : DWORD;
　 DevMode: PDeviceMode;
　 PrnHdc : HDC;
　 DocInfo : PDocInfo;
begin
　 OpenPrinter('Epson LQ －1600K',PrnHd,nil);
　 // 获得打印机句柄PrnHd
　 GetMem(PrnInfo,1024);
　 GetPrinter(PrnHd,1,PrnInfo,1024,@pcbNeeded);
　 PDevModeBytes:= DocumentProperties
( Handle,PrnHd,prninfo^.
　pDescription,DevMode^,DevMode^,0 );
{　获取DevMode 结构所需的字节数}
　 GetMem(DevMode,PDevModeBytes);
// 给结构DevMode 分配空间
　 DocumentProperties( Handle,PrnHd,PrnInfo^.p
　Description,DevMode^,DevMode^,DM_OUT_BUFFER );
// 获取打印机的DevMode 结构
　 With DevMode^ do begin
　　　dmPaperSize := DMPAPER_A4　　 ;
// 将纸张设置成A4 纸
　　　dmFields := dmFields or DM_PAPERSIZE;
　 end;
　 DocumentProperties( Handle,PrnHd,PrnInfo^.p
Description,DevMode^,DevMode^,
DM_OUT_BUFFER or DM_IN_BUFFER);
// 修改DevMode 结构。
　{ 下面的代码是为了测试打印机
　　是否按A4 纸大小来打印　}
　 PrnHdc := CreateDC
( nil, 'Epson LQ －1600K',nil,DevMode );
　 GetMem( DocInfo, 100 );
　 With DocInfo^ do begin
　　　cbSize := sizeof(DocInfo);
　　　lpszDocName := nil;
　　　lpszOutput := nil;
　　　lpszDatatype := nil;
　　　fwType := DI_APPBANDING;
　 end;
　 StartDoc( PrnHdc, DocInfo^);
　 StartPage(PrnHdc);
　 TextOut( PrnHdc, 10, 10, 'Hello My Friend!',17);
　 EndPage(PrnHdc);
　 EndDoc(PrnHdc);
　 DeleteDC(PrnHdc);
　 FreeMem(DocInfo);
　 FreeMem(PrnInfo);
　 FreeMem(DevMode);
end;

　　至此，程序实现了本文开头所提出的要求。需要指出的是，上述代码是在程序运行时，动态地改变打印机纸张大小，而不改变打印机默认纸张大小。也就是说当打印程序运行结束后，打印机还是会按照默认打印纸张大小来打印、走纸。动态调整打印机纸张尺寸也是因打印机而异，某些打印机基本不支持自定义纸张，例如惠普的HP DeskJet 1120C 喷墨打印机以及众多激光打印机。因此在这些打印机上，不能实现按任意纸张大小打印。对于一些针式打印机则没有上述问题。

相关阅读 >>

Delphi 窗体不可用

Delphi getmimetypefromfile 获取文件mime类型

Delphi 字符串保存utf-8过程

Delphi 比较两个日期相差天数

Delphi - system.runerror

Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong

Delphi 中文姓名 合法性检查

Delphi通过wmi获取系统信息

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

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



标签：

打赏

取消

感谢您的支持，我会继续努力的!

扫码支持
扫码打赏，您说多少就多少

打开支付宝扫一扫，即可进行扫码打赏哦

分享从这里开始，精彩与您同在

相关推荐

评论

管理员已关闭评论功能...