From: jfriedberg@mycomcast.com   
      
   "marco"  wrote in message   
   news:459431c6$1_3@news.bluewin.ch...   
      
   > I dont find clear, can you give an example of some code which does not   
   > require to fill manually a fax number, please?   
      
   Glad to:   
      
   SWITCH   
   CASE ptrname="activefax" :   
    intSetResolution=  2   
    intPrintFromApp =    1   
    intSetUseCover  =  0   
    intSetHold   =  1   
    intSetPriority  =  25   
    STsetHold   =  strval(intSetHold)   
    faxSubject   =  xxSubject+" / ["+mylib.getuserid()+"]"   
    faxTo     =   
   iif(Supp_contact.isblank()=false,suppid+"/"+supp_contact,suppid+"/"+name1)   
    faxNumber   =  phoneNum     ; from form or table lookup   
    faxSetPriority  =  strval(intSetPriority)   
      
    make ActFax command string   
   STdatafield=""   
   STdatafield="@F5010@"   
   STdatafield=STdatafield+"@F311"+mylib.getusername()+"@" ; User name   
   STdatafield=STdatafield+"@F201"+faxTo+"@"      ; Fax to   
   STdatafield=STdatafield+"@F315"+userID+"@"         ; Userid   
   STdatafield=STdatafield+"@F308"+faxCompany+"@"    ; Fax company   
   STdatafield=STdatafield+"@F307"+faxSubject+"@"    ; Fax subject   
   STdatafield=STdatafield+"@F314"+STsetHold+"@"    ; Hold (True=1)   
   STdatafield=STdatafield+"@F301"+faxSetPriority+"@"   ; Priority (H=25/N=50)   
   STdatafield=STdatafield+"@F3132@"                      ; Resolution   
   STdatafield=STdatafield+"@F211"+faxNumber+"@"   
      
    set printer options   
   repPrintinfo.paneloptions=printcliptowidth   
   repPrintInfo.nCopies = 1   
   repPrintInfo.Orient = 1   
      
    write command string to hard drive and use to control print options   
   success=false   
   if mylib.makeFieldsDat0(STdatafield)   
   then sleep()   
         if POrpt.print(repPrintinfo)  ; ActFax automatically looks for command   
   string in specified location on hard drive   
         then sleep()   
            success=true   
            if porpt.close() then sleep() endif   
        endif   
   endif   
   OTHERWISE :   
   ENDSWITCH   
      
   Jean   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)