修

改與當(dāng)前打印機相關(guān)的DevMode 結(jié)構(gòu)中的成員。DocumentProperties 函數(shù)申明如下：

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

);

六個參數(shù)中只有pDevModeOutput 是輸出變量，其余五個參數(shù)必須由程序給出具體值。其中，hWnd 表征當(dāng)前窗口的句柄值；hPrinter 表示當(dāng)前打印機的句柄；pDeviceName 是對打印機設(shè)備的描述；pDevModeOutput 是指向句柄值為hPrinter 的打印機DevMode 結(jié)構(gòu)的指針；pDevModeInput 是指向一個修改后的DevMode 結(jié)構(gòu)的指針，該結(jié)構(gòu)有待于被句柄值為hPrinter 的打印機接受；fMode 定義了該函數(shù)的具體功能，如果取值DM_IN_BUFFER 那么表示打印機接受由參數(shù)pDevModeInput 表示的由程序修改了的DevMode 值，如果取值DM_OUT_BUFFER 那么程序可以通過參數(shù)pDevModeOutput 來獲取打印機的DevMode 值，如果fMode 為零，則函數(shù)返回的值表示結(jié)構(gòu)DevMode 所需的字節(jié)數(shù)。承接上述例子，現(xiàn)在將190 ＊114 大小的紙張設(shè)成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 結(jié)構(gòu)所需的字節(jié)數(shù)}

GetMem(DevMode,PDevModeBytes);

// 給結(jié)構(gòu)DevMode 分配空間

DocumentProperties( Handle,PrnHd,PrnInfo^.p

Description,DevMode^,DevMode^,DM_OUT_BUFFER );

// 獲取打印機的DevMode 結(jié)構(gòu)

With DevMode^ do begin

dmPaperSize := DMPAPER_A4　　 ;

// 將紙張設(shè)置成A4 紙

dmFields := dmFields or DM_PAPERSIZE;

end;

DocumentProperties( Handle,PrnHd,PrnInfo^.p

Description,DevMode^,DevMode^,

DM_OUT_BUFFER or DM_IN_BUFFER);

// 修改DevMode 結(jié)構(gòu)。

{ 下面的代碼是為了測試打印機

是否按A4 紙大小來打印　}

PrnHdc := CreateDC

( nil, 'Epson LQ －1600K',nil,DevMode );

GetMem( DocInfo, 100 );

With DocInfo^ do begin

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。