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