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

   AQUÍ OS PRESENTO UN EJERCICIO QUE A TODOS LOS USUARIOS NOS VENDRÁ BASTANTE BIEN. VEAMOS QUIEN ES EL MAS RÁPIDO; EL ENUNCIADO ES EL SIGUIENTE:
   
   LOS FICHEROS PST SON EN LOS QUE SE GUARDAN LOS CORREOS EN OUTLOOK Y SU  LIMITE DE ALMACENAMIENTO ES DE 2 GB. LO QUE PRETENDEMOS LOGRAR ES: CREAR UN FICHERO .BAT CON EL QUE PRESENTEMOS, AL INICIAR EL SISTEMA, UN MENSAJE AL USUARIO (SI FUESE NECESARIO) INDICANDOLE QUE DICHO FICHERO TIENE UN TAMAÑO SUPERIOR A, POR EJEMPLO, 1´5 GB Y QUE DEBE BORRAR LOS CORREOS QUE NO LE HAGAN FALTA.

   ADELANTE BONISTOS MIOS, A MI ME LLEVO UN TIEMPO, ESPERO QUE NO TANTO COMO EL QUE TARDEN USTEDES.

   UN SALUDO.