获取纸张页边距

阿杰

1. 
   
2. *------------------------------------------------------------------------
   
3. * 功 能 获取纸张页边距
   
4. * 运行环境: Microsoft Visual FoxPro 9.0
   
5. * 日 期: yxgzs于2005年6月
   
6. * 阿杰整理收集于:2010年8月10日
   
7. *------------------------------------------------------------------------
   
8. If Sys(1037)="0"
   
9.         Return
   
10. Endif
    
11. Clear
    
12. Local lcSelect, lcFrx, lcDriver, lcDevice, lcDEVMODE
    
13. m.lcSelect=Select()
    
14. m.lcFrx=Sys(2023)+""+Sys(3)
    
15. Create Cursor lcCursor (EmpID N(1))
    
16. Create Report (m.lcFrx+".FRX") From Dbf() Fields (Field(1))
    
17. Use (m.lcFrx+".FRX") Exclusive
    
18. *!* 如果是VFP9以前版本或报表设置为保存打印机环境,以下两句不要
    
19. Replace Expr With "",Tag With "",TAG2 With ""
    
20. =Sys(1037,2)
    
21. m.lcDriver = Substr(Mline(Expr,Atline("DRIVER",Expr)),8)
    
22. m.lcDevice = Substr(Mline(Expr,Atline("DEVICE",Expr)),8)
    
23. m.lcDEVMODE=TAG2
    
24. Use
    
25. Select (m.lcSelect)
    
26. Delete File (m.lcFrx+".*")
    
27. 
    
28. Declare Integer CreateIC ;
    
29.         in gdi32 ;
    
30.         string lpszDriver, ;
    
31.         string lpszDevice, ;
    
32.         string lpszOutput, ;
    
33.         string lpdvmInit
    
34. 
    
35. Declare Integer GetDeviceCaps ;
    
36.         in gdi32 ;
    
37.         integer hdc, ;
    
38.         integer nIndex
    
39. 
    
40. Declare Integer DeleteDC ;
    
41.         in gdi32 ;
    
42.         integer hdc
    
43. 
    
44. Try
    
45.         Local iHDC
    
46.         m.iHDC = CreateIC( m.lcDriver, m.lcDevice, Chr(0), m.lcDEVMODE )
    
47.         If m.iHDC = 0
    
48.                 ?"获取纸张信息失败"
    
49.         Else
    
50.                 m.PrintableX = GetDeviceCaps( m.iHDC, 8 )
    
51.                 m.PrintableY = GetDeviceCaps( m.iHDC, 10 )
    
52.                 m.dpiX = GetDeviceCaps( m.iHDC, 88 )
    
53.                 m.dpiY = GetDeviceCaps( m.iHDC, 90 )
    
54.                 m.OffsetX = GetDeviceCaps( m.iHDC, 112 )
    
55.                 m.OffsetY = GetDeviceCaps( m.iHDC, 113 )
    
56.                 m.ActualX = GetDeviceCaps( m.iHDC, 110 )
    
57.                 m.ActualY = GetDeviceCaps( m.iHDC, 111 )
    
58. 
    
59.                 ?"打印机 "+Left(m.lcDEVMODE,At(Chr(0),m.lcDEVMODE)-1)
    
60.                 m.lcFrx=Substr(m.lcDEVMODE,71,40)
    
61.                 ?"纸张名 "+Left(m.lcFrx,At(Chr(0),m.lcFrx)-1)
    
62.                 ?"纸纸宽 = "
    
63.                 ??Round(m.ActualX*25.4/m.dpiX,1)
    
64.                 ?"纸纸高 ="
    
65.                 ??Round(m.ActualY*25.4/m.dpiY,1)
    
66.                 ?"上边距 ="
    
67.                 ??Iif(m.OffsetY>0,Round(m.OffsetY*25.4/m.dpiY+0.05,1),0.0)
    
68.                 ?"下边距 ="
    
69.                 ??Iif(m.ActualY-m.PrintableY-m.OffsetY=0,0.0,Round((m.ActualY-m.PrintableY-m.OffsetY)*25.4/m.dpiY+0.05,1))
    
70.                 ?"左边距 ="
    
71.                 ??Iif(m.OffsetX>0,Round(m.OffsetX*25.4/m.dpiX+0.05,1),0.0)
    
72.                 ?"右边距 ="
    
73.                 ??Iif(m.ActualX-m.PrintableX-m.OffsetX=0,0.0,Round((m.ActualX-m.PrintableX-m.OffsetX)*25.4/m.dpiX+0.05,1))
    
74.         Endif
    
75. Catch
    
76. Endtry
    
77. Clear Dlls "GetDeviceCaps","DeleteDC"
    

复制代码