home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / DRIVERS.EXE / HPLAS2I.PRG < prev    next >
Encoding:
Text File  |  1994-06-24  |  6.6 KB  |  128 lines
  1. FUNCTION hplas2i 
  2. PARAMETERS pc_todo,px_param1,px_param2,px_param3,px_param4,px_param5,px_param6,px_param7
  3.  
  4.    PRIVATE lc_params,lc_str,ll_query,ll_toprint
  5.    lc_params = "pc_todo,px_param1,px_param2,px_param3,px_param4,px_param5,px_param6,px_param7"
  6.  
  7.    lc_str     = ""
  8.    ll_query   = .F.
  9.    ll_toprint = .T.
  10.    pc_todo    = UPPER(pc_todo)
  11.    IF pc_todo="QUERY"  
  12.       ll_query   = .T.
  13.       ll_toprint = .F.
  14.       IF PCOUNT()=1
  15.          RETURN .T.
  16.       ENDIF 
  17.       pc_todo   = UPPER(px_param1)
  18.       px_param1 = px_param2
  19.       px_param2 = px_param3
  20.       px_param3 = px_param4
  21.       px_param4 = px_param5
  22.       px_param5 = px_param6
  23.       px_param6 = px_param7
  24.    ENDIF
  25.    
  26.    DO CASE                                                       
  27.       CASE pc_todo = "VMI"                                       
  28.            lc_str = CHR(27)+"&l"+;                               
  29.                     LTRIM(STR(px_param1/30,5,2))+"C"             
  30.                                                                  
  31.       CASE pc_todo = "ORIENTATION"                               
  32.            PRIVATE la_orients,ln_x                               
  33.            DECLARE la_orients[5,2]                               
  34.                                                                  
  35.            la_orients[1,1] = "PORTRAIT"                          
  36.            la_orients[1,2] = "0"                                 
  37.            la_orients[2,1] = "LANDSCAPE"                         
  38.            la_orients[2,2] = "1"                                 
  39.            la_orients[3,1] = "REVERSE PORTRAIT"                  
  40.            la_orients[3,2] = "2"                                 
  41.            la_orients[4,1] = "REVERSE LANDSCAPE"                 
  42.            la_orients[4,2] = "3"                                 
  43.                                                                  
  44.            ln_x = 1                                              
  45.            px_param1 = UPPER(px_param1)                          
  46.            DO WHILE TYPE("la_orients[ln_x,1]")='C'               
  47.               IF la_orients[ln_x,1] = px_param1                  
  48.                  EXIT                                            
  49.               ENDIF                                              
  50.               ln_x = ln_x + 1                                    
  51.            ENDDO                                                 
  52.                                                                  
  53.            IF TYPE("la_orients[ln_x,1]") = 'C'                   
  54.               lc_str = CHR(27)+"&l"+la_orients[ln_x,2]+"O"       
  55.            ENDIF                                                 
  56.                                                                  
  57.       CASE pc_todo = "PFEED"                                     
  58.            lc_str = CHR(27)+"&l"+;                               
  59.                     IIF(UPPER(px_param1)="MANUAL","2","1")+"H"   
  60.                                                                  
  61.       CASE pc_todo = "PSIZE"                                     
  62.            PRIVATE la_psizes,ln_x                                
  63.            DECLARE la_psizes[5,3]                                
  64.                                                                  
  65.            la_psizes[1,1] = "EXECUTIVE"                          
  66.            la_psizes[1,2] = "1"                                  
  67.            la_psizes[1,3] = 217                                  
  68.            la_psizes[2,1] = "LETTER"                             
  69.            la_psizes[2,2] = "2"                                  
  70.            la_psizes[2,3] = 218                                  
  71.            la_psizes[3,1] = "LEGAL"                              
  72.            la_psizes[3,2] = "3"                                  
  73.            la_psizes[3,3] = 223                                  
  74.            la_psizes[4,1] = "A4"                                 
  75.            la_psizes[4,2] = "26"                                 
  76.            la_psizes[4,3] = 219                                  
  77.                                                                  
  78.            ln_x = 1                                              
  79.            px_param1 = UPPER(px_param1)                          
  80.            DO WHILE TYPE("la_psizes[ln_x,1]")='C'                
  81.               IF la_psizes[ln_x,1] = px_param1                   
  82.                  EXIT                                            
  83.               ENDIF                                              
  84.               ln_x = ln_x + 1                                    
  85.            ENDDO                                                 
  86.                                                                  
  87.            IF TYPE("la_psizes[ln_x,1]") = 'C'                    
  88.               lc_str = CHR(27)+"&l"+la_psizes[ln_x,2]+"A"        
  89.               IF .NOT. ll_query                                  
  90.                  ??? lc_str                                      
  91.                  ll_toprint = .F.                                
  92.                  ll_x = ESCAPE("VMI",la_psizes[ln_x,3])          
  93.               ENDIF                                              
  94.            ENDIF                                                 
  95.                                                                  
  96.       CASE pc_todo = "TMARGIN"                                   
  97.            PRIVATE ll_x                                          
  98. *           lc_str = CHR(27)+"&l"+;                              
  99. *                    LTRIM(STR(px_param1/2,10,2))+"z0E"          
  100.            lc_str = CHR(27)+"&l1E"                               
  101.            IF .NOT. ll_query                                     
  102.               ll_x = ESCAPE("VMI",px_param1)                     
  103.               ??? lc_str                                         
  104.               ll_toprint = .F.                                   
  105.               ll_x = ESCAPE("VMI",240)                           
  106.            ENDIF                                                 
  107.                                                                  
  108.     ENDCASE                                                      
  109.                                                                  
  110.                                                                  
  111.  
  112.     IF ll_toprint 
  113.        ??? lc_str
  114.     ELSE
  115.       IF ll_query
  116.          px_param7 = px_param6
  117.          px_param6 = px_param5
  118.          px_param5 = px_param4
  119.          px_param4 = px_param3
  120.          px_param3 = px_param2
  121.          px_param2 = px_param1
  122.       ENDIF   
  123.     ENDIF
  124.       
  125. RETURN .NOT. ISBLANK(lc_str)
  126.  
  127.                                                                  
  128.