列印時改變紙張大小

bestlong

1. // 在执行打印前调用以下函数：
   
2. // x,y:纸张尺寸,单位是0.1mm
   
3. procedure SetPaperSize(X, Y: Integer);
   
4. var
   
5.   Device: array[0..255] of char;
   
6.   Driver: array[0..255] of char;
   
7.   Port: array[0..255] of char;
   
8.   hDMode: THandle;
   
9.   PDMode: PDEVMODE;
   
10. begin
    
11.   Printer.PrinterIndex := Printer.PrinterIndex;
    
12.   Printer.GetPrinter(Device, Driver, Port, hDMode);
    
13.   if hDMode <> 0 then
    
14.   begin
    
15.     pDMode := GlobalLock(hDMode);
    
16.     if pDMode <> nil then
    
17.     begin
    
18.       if (x = 0) or (y = 0) then
    
19.       begin
    
20.         {设置合法的纸张大小}
    
21.         pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
    
22.         pDMode^.dmPaperSize := DMPAPER_FANFOLD_US; // 合法的纸张大小标示
    
23.       end
    
24.       else
    
25.       begin
    
26.         {设置用户自定义纸张}
    
27.         pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
    
28.         pDMode^.dmPaperSize := DMPAPER_USER; // 设置为用户自定义纸张标示
    
29.         pDMode^.dmPaperWidth := x; // 纸张宽度
    
30.         pDMode^.dmPaperLength := y; // 纸张长度
    
31.       end;
    
32.       {设定纸张来源}
    
33.       pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
    
34.       pDMode^.dmDefaultSource := DMBIN_MANUAL;
    
35. 
    
36.       GlobalUnlock(hDMode);
    
37.     end;
    
38.   end;
    
39. end;

複製代碼