Stampa 3 copie

Question

Ho una serie di file in excel che avrei bisogno di stampare in tre copie.

C'è una modalità che mi permetta di salvare in quei file anche l'impostazione delle tre stampe

in modo che premendo sull'icona della stampante mi stampi automaticamente le tre copie senza dover andare a

modificare la form specifica?

Grazie.

Answer 1

Questa macro fa quanto chiedi stampando tre volte il Foglio1:

Public Sub m()

    Dim sh As Worksheet

    Dim lng As Long

    Set sh = Worksheets("Foglio1")

    With sh

        For lng = 1 To 3

           .PrintOut

        Next

    End With

    Set sh = Nothing

End Sub

Puoi adesso assegnare un tascto di scelta rapida alla macro. ALT+F8 e visualizzi la finestra macro. Seleziona la macro m(). Opzioni. Assegna il tasto di scelta rapida(esempio: a). Chiudi la finestra Macro. Premi CTRL+a per stampare le tre copie. Se vuoi un maggior controllo sulla stampa per evitare che sia avviata inavvertitamente:

Public Sub m()

    Dim sh As Worksheet

    Dim lng As Long

    Dim lRisposta As Long

    lRisposta = MsgBox(Prompt:="Vuoi eseguire la stampa?", _

        Title:="Attenzione", _

        Buttons:=vbYesNo + vbQuestion)

    If lRisposta = vbYes Then

        Set sh = Worksheets("Foglio1")

            With sh

                For lng = 1 To 3

                .PrintOut

            Next

        End With

    Else

        MsgBox "Stampa annullata."

    End If

    Set sh = Nothing

End Sub

Grazie per l'attenzione.

---

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

Ciao John,

fallo con una macro. Usa il registratore di macro ed assegna una combinazione di tasti all'esecuzione.

---

fai sapere, grazie

ciao paoloard

http://riolab.org

***********************************************

Se la risposta ti ha aiutato clicca su "Vota come Utile".

Se ha risolto il problema clicca su "Segna come Risposta".