API调整纸张大小

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 所需的字节数。


  if   (!OpenPrinter((char   *)alpszPrinterName,&hPrinter,NULL))   return   1; 
  //set   papersize 
  DWORD   dwBytesNeeded; 
  dwBytesNeeded=DocumentProperties(NULL,hPrinter,NULL,NULL,NULL,0); 
  HGLOBAL   lhDevMode=GlobalAlloc(GHND,dwBytesNeeded); 
  PDEVMODE   lpdmDevMode=(PDEVMODE)GlobalLock(lhDevMode); 
  DocumentProperties(NULL,hPrinter,NULL,lpdmDevMode,NULL,DM_OUT_BUFFER); 
  lpdmDevMode->dmFields=DM_PAPERLENGTH   |   DM_PAPERWIDTH; 
  lpdmDevMode->dmPaperLength=aiPaperLength; 
  lpdmDevMode->dmPaperWidth=aiPaperWidth; 
  dwBytesNeeded=DocumentProperties(NULL,hPrinter,NULL, 
  lpdmDevMode,lpdmDevMode,DM_IN_BUFFER   |   DM_OUT_BUFFER); 
  ClosePrinter(hPrinter); 
  if(!(hdcPrinter=CreateDC(NULL,alpszPrinterName,NULL,lpdmDevMode)))   return   2; 
  GlobalUnlock(lhDevMode);GlobalFree(lhDevMode);

/


承接上述例子，现在将190 ＊114 大小的纸张设成A4 纸。再往Form1 上放置按钮Button2，增加OnClick 事件，在Use 子句后面添加WinSpool。代码如下：

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 喷墨打印机以及众多激光打印机。因此在这些打印机上，不能实现按任意纸张大小打印。对于一些针式打印机则没有上述问题。