(Continued from previous message)
 ' Word.FontSize 24                      'Make the Font 24 point in size
 ' Word.CenterPara                       'Center Text on page
   Dim i%
   Dim turns%
   x& = EndWaitBox(hwnd&)
   turns% = 1
   hwnd& = WaitBox("Sending Screen Object to Word, Page: " & turns%)
RM:For i = 4 to 20
      Set MyArea = MyScreen.Area(i,2,i,80,,3)
      Word.Insert MyArea.Value           'Insert Area Object Text
      Word.InsertPara                    'Next line
   Next
   turns% = turns% + 1
   x& = EndWaitBox(hwnd&)
   hwnd& = WaitBox("Sending Screen Object to Word, Page: " & turns%)
  'look for Bottom of Page
   Set MyArea = MyScreen.Area(23,11,23,16,,3)
  'MsgBox MyArea.Value
   if MyArea.Value  "Bottom" then
        x& = EndWaitBox(hwnd&)
        hwnd& = WaitBox("Sending Screen Object a Page Forward")
        Sess0.Screen.Sendkeys("")
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        x& = EndWaitBox(hwnd&)
        hwnd& = WaitBox("Sending Screen Object to Word, Page: " & turns%)
       goto RM:
   end if
   Word.FilePrintDefault              'Print the current document
   x& = EndWaitBox(hwnd&)
   hwnd& = WaitBox("Printing from Word")
   Sess0.Screen.Sendkeys("WIB")       'Return user to In Basket
   Sess0.Screen.Sendkeys("")
   Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
   For i = 1 to 10
     doevents        'Waste a little time to complete print spool
   Next
   x& = EndWaitBox(hwnd&)
   hwnd& = WaitBox("Closing Word")
   Word.FileClose 2                   'Close file without saving
   Set Word = Nothing                 'Clear the object pointer
   System.TimeoutValue = OldSystemTimeout
   x& = EndWaitBox(hwnd&)
End Sub
|   ! |
| |  0 !
|  ./#\.  (((RR))) Juggling Tags! (Eagle Eye BBS 305-584-6258)
|   
....Where there's a will, there's a happy Lawyer!
--- WILDMAIL!/WC v4.12 
---------------