Foro Excel

Los detalles de mi problema van en el archivo adjunto, gracias a los que ya lo intentaron y gracias de antemano a los que lo vayan o vuelvan a intentar.

De plano no se puede, o si mi palnteamiento es muy sobjetivo, por favor haganmelo saber, de verdad necesito esta propiedad.

Ioyama, ST, ustedes son buenos, denme una idea de como hacerlo. Heeeelpmeeeeeeeeee aaaaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhhh

Por Favor Ayuda.

Hola Creedence,

Puede ser que sea algo tarde pero al estar implementando algo parecido me acorde que en alguna ocasión alguien estaba buscando esto.

Ojo tienes que utilizar el botón de Print Report para que funcione lo que estabas buscando.

Saludos y espero que esto sea lo que necesitas.

Dentro del foro de microsoft no recuerdo si bien fue KL o Hector Miguel se expuso este codigo para lo que necesitas.
Devuelve el numero de pagina

Sub Paginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
ActiveCell = "Pag. " & Pagina & "/" & Paginas
'.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub

Y esto es de la pagina de busqueda de microsoft
XL: Cómo determinar cuántas páginas se imprimirán
http://support.microsoft.com/kb/213810/es

Sub ShowMe()
MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
" pages will be printed."
End Sub


Saludos

Wooooooooooooooooooooaaaaaaaaaaaaaaaaaaaauuuuuuuuuuuuuuuu!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! sailepaty SUPER EXTRA EXCELENTISIMO, de verdad te lo agradezco y por supuesto a ti opermty, gracias.