如何設定印表機的紙張大小

bestlong

How to set the printer paper size:
http://www.lmc-mediaagentur.de/dpool/tips/0170.htm

1. var
   
2.     Device, Driver, Port: array[0..80] of Char;
   
3.     DevMode: THandle;
   
4.     pDevmode: PDeviceMode;
   
5. begin
   
6.     {Get printer device name etc.}
   
7.     Printer.GetPrinter(Device, Driver, Port, DevMode);
   
8.     {force reload of DEVMODE}
   
9.     Printer.SetPrinter(Device, Driver, Port, 0) ;
   
10.     {get DEVMODE handle}
    
11.     Printer.GetPrinter(Device, Driver, Port, DevMode);
    
12.     if Devmode <> 0 then
    
13.     begin
    
14.     {lock it to get pointer to DEVMODE record}
    
15.     pDevMode := GlobalLock( Devmode );
    
16.     if pDevmode <> Nil then
    
17.     try
    
18.         with pDevmode^ do
    
19.         begin
    
20.         {modify paper size}
    
21.         dmPapersize := DMPAPER_B5;
    
22.         {tell printer driver that dmPapersize field contains data it needs to inspect}
    
23.         dmFields := dmFields or DM_PAPERSIZE;
    
24.         end;
    
25.     finally
    
26.         {unlock DEVMODE handle}
    
27.         GlobalUnlock( Devmode );
    
28.     end;
    
29.     end;
    
30. end;
    
31. 
    
32. 
    
33. 
    
34. 
    
35. uses winspool;
    
36. 
    
37. procedure GetBinnames( sl: TStrings );
    
38. Type
    
39.     TBinName = Array [0..23] of Char;
    
40.     TBinNameArray = Array [1..High(Integer) div Sizeof( TBinName )] of TBinName;
    
41.     PBinnameArray = ^TBinNameArray;
    
42.     TBinArray = Array [1..High(Integer) div Sizeof(Word)] of Word;
    
43.     PBinArray = ^TBinArray;
    
44. var
    
45.     Device, Driver, Port: Array [0..255] of Char;
    
46.     hDevMode: THandle;
    
47.     i, numBinNames, numBins, temp: Integer;
    
48.     pBinNames: PBinnameArray;
    
49.     pBins: PBinArray;
    
50. begin
    
51.     Printer.PrinterIndex := - 1;
    
52.     Printer.GetPrinter(Device, Driver, Port, hDevmode);
    
53.     numBinNames := WinSpool.DeviceCapabilities( Device, Port, DC_BINNAMES, Nil, Nil );
    
54.     numBins := WinSpool.DeviceCapabilities( Device, Port, DC_BINS, Nil, Nil );
    
55.     if numBins <> numBinNames then
    
56.     begin
    
57.     raise Exception.Create('DeviceCapabilities reports different number of bins and '+ 'bin names!');
    
58.     end;
    
59.     if numBinNames > 0 then
    
60.     begin
    
61.     pBins := Nil;
    
62.     GetMem( pBinNames, numBinNames * Sizeof( TBinname ));
    
63.     GetMem( pBins, numBins * Sizeof(Word));
    
64.     try
    
65.         WinSpool.DeviceCapabilities( Device, Port, DC_BINNAMES, Pchar( pBinNames ), Nil);
    
66.         WinSpool.DeviceCapabilities( Device, Port, DC_BINS, Pchar( pBins ), Nil );
    
67.         sl.clear;
    
68.         for i:= 1 to numBinNames do
    
69.         begin
    
70.         temp := pBins^[i];
    
71.         sl.addObject( pBinNames^[i], TObject( temp ));
    
72.         end;
    
73.     finally
    
74.         FreeMem( pBinNames );
    
75.         if pBins <> Nil then
    
76.         FreeMem( pBins );
    
77.     end;
    
78.     end;
    
79. end;
    
80. 
    
81. 
    
82. 
    
83. var
    
84.     aDrvName, aPrtName, aPortName: Array[0..127] of Char;
    
85.     aDeviceMode: THandle;
    
86.     PDevMode: ^TDevMode;
    
87.     i: Integer;
    
88. begin
    
89.     with Printer do
    
90.     begin
    
91.     GetPrinter(aDrvName, aPrtName, aPortName, aDeviceMode);
    
92.     PDevMode := GlobalLock(aDeviceMode);
    
93.     try
    
94.         if PDevMode^.dmPaperSize = DMPAPER_A4 then
    
95.         ShowMessage('A4')
    
96.         else
    
97.         if PDevMode^.dmPaperSize = DMPAPER_A3 then
    
98.         ShowMessage('A3')
    
99.         else
    
100.         begin
     
101.         ShowMessage('Size not supported!' + #13 + 'Resetting papersize to A4');
     
102.         PDevMode^.dmPaperSize := DMPAPER_A4;
     
103.         end;
     
104.     finally
     
105.         GlobalUnlock(aDeviceMode);
     
106.     end;
     
107.     end;
     
108. end;

複製代碼

http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=42907

bestlong

http://delphi.ktop.com.tw/board. ... id=71&tid=96703