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

  • Thread starter Thread starter Karen Schneider
  • Start date Start date
K

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
 
Karen Schneider said:
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
Click to expand...
 
Karen Schneider said:
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
Click to expand...
 
Back
Top