I have a document with embedded codes to send to my fax server.  The
problem is that I have to send each page separately.  In Word I can do
this as follows:

Public Sub MAIN()
 Dim TotalSec, i, F$
 WordBasic.EndOfDocument
 TotalSec = WordBasic.SelInfo(2) - 1
 For i = 1 To TotalSec
         F$ = "S" + Str(i)
         WordBasic.FilePrint
Type:=0,NumCopies:=1,Range:=3,From:=F$,To:=F$
 Next i
End Sub

I am not a programmer and would like to translate this to access
somehow.  I know I won't have separate sections, but is there some way
to do this.

Thanks,

Karen