Programar macro en world, para impresion

[galgolobo]

 
Hola amiguitos.

Mi problema es que hace tiempo que no programo, en VB sólo lo he hecho una un par de veces y hace bastante tiempo, en lo que si que solía programar era en C++, pero hace aún más tiempo que no lo uso, el caso es que intento crear una macro para world que realice la siguiente función: imprimir las paginas impares por la bandeja 2 y las pares por al bandeja 1, pero que lo haga de forma alternativa y no que imprima las impares primero y luego las pares; una impar, una par ,una impar...  tengo algo de codigo desarrollado, pero na:

Sub prueba1()
'
' prueba1 Macro
' Macro grabada el 09/03/2006 por Miguel Ángel Hernández Marín
'
'  Dim ptotal As Integer

   Dim Pages As Integer
   Dim i As Integer
   Dim e As Integer
   
'  ptotal = Pages
   i = 1
   e = 2
   Do While i <= Pages
    If i = e Then
        Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
            wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
            wdPrintEvenPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
            :=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
            PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
       e = e + 2
    Else
        Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
            wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
            wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
            :=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
            PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    End If
    i = i + 1
   Loop
End Sub