printing word document

joshivadiraj · November 19th, 2003, 07:02 AM

Hi All,
I have a word template and i am filling it with some data from vbscript code.which will run into number of pages.
i have a last page the contents of which will be filled in by onother document(ex. objPo.selection.insertfile "file name")

everything is fine till now.

I want to print the last page after each page of the template.

can anybody give me a vb code snippet.

it should print like this

Ist page ,last page,II nd page ,last page ,..... last but one page,lastpage
please note that the printout should also include the proper page numbers(ex page 1 of 5)

Thanks in advance

Vadiraj

clayroad · December 11th, 2003, 06:38 AM

I'm not that familiar with Word VBA, but my suggestion is to create a macro which loops through all pages of the first document, printing that particular page followed by the 'last page'. Something like this:

Code:

Sub PrintMyDocument()
 'Initialize
 Dim FirstDoc As Object
 Dim SecondDoc As Object
 FirstDoc = Documents("FirstDocument.doc") 'File which contains all pages
 SecondDoc = Documents("SecondDocument.doc") 'File which contains the 'last page'
 
 'Get the number of pages
  PageCount = FirstDoc.BuiltInDocumentProperties(wdPropertyPages)
  
 'Loop through the pages
 For n = 1 To PageCount
     'Print a page from the first document
     FirstDoc.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, _
        Copies:=1, Pages:=Trim(Str(n)), PageType:=wdPrintAllPages, ManualDuplexPrint:=False, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
     'Print the 'last page' (page 1 of the second page)
     FirstDoc.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, _
        Copies:=1, Pages:="1", PageType:=wdPrintAllPages, ManualDuplexPrint:=False, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
 Next
 
End Sub

Please note that I didn't test it nor do I give any warranty.