Imprimir todas las hojas de calculo

[marianoyana]

Hola,
Lo que quiero hacer es que al abrir un libro de excel imprima todas las presentaciones preliminares de las hojas de calculo que contenga el libro y seguidamente se cierre automaticamente el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Esto puede ayudar:

Sub Autpen()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
Application.Sheets.PrintOut
Next
Application.ActiveWorkbook.Close
End Sub