Need macro to print each page as a different print job.

[Karen Schneider]

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

 

[???]

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

 

[???]

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