修

改與當前打印機相關的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

總結

以上是生活随笔為你收集整理的delphi 获取打印机默认纸张_Delphi 动态调整打印机纸张大小的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。