Come stampare determinate pagine o fogli di lavoro in base al valore della cella in Excel?

Ti è mai capitato di dover stampare pagine specifiche o fogli di lavoro in Excel in base al valore di una cella? Che si tratti di stampare un particolare numero di pagina o un intero foglio di lavoro quando viene soddisfatta una condizione, questa guida fornisce metodi passo-passo per farlo.

Stampa una determinata pagina in base al valore della cella con il codice VBA
Stampa un determinato foglio di lavoro in base al valore della cella con il codice VBA

Stampa una determinata pagina in base al valore della cella con il codice VBA

Ad esempio, vuoi che una certa pagina, come la pagina 1 del foglio di lavoro corrente, venga stampata automaticamente quando inserisci il numero di pagina 1 nella cella A1 del foglio di lavoro corrente. Puoi fare quanto segue per raggiungere questo obiettivo.

1. Seleziona la cella che contiene il numero di pagina che desideri stampare, quindi premi contemporaneamente i tasti Alt e F11 per aprire la finestra Microsoft Visual Basic for Applications. Quindi fai clic su Inserisci > Modulo.

2. Successivamente, si aprirà la finestra Microsoft Visual Basic for Applications; copia e incolla il seguente codice VBA nella finestra Codice.

Codice VBA: Stampa pagina in base al valore della cella

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools for Excel che appare, fai clic sul pulsante Sì per stampare la pagina specifica, oppure fai clic sul pulsante No per uscire dalla finestra di dialogo se non vuoi stampare. Vedi screenshot:

Quindi si aprirà la finestra di anteprima della pagina specifica del foglio di lavoro corrente; fai clic sul pulsante Stampa per iniziare la stampa.

Stampa una determinata pagina in base al valore della cella con il codice VBA

Supponiamo che tu voglia stampare il foglio di lavoro attivo quando il valore nella cella B2 di questo foglio è uguale al numero 1001. Puoi ottenere ciò con il seguente codice VBA. Procedi come segue.

1. Fai clic con il tasto destro sulla Scheda Foglio che desideri stampare in base al valore della cella, quindi fai clic su Visualizza Codice dal menu contestuale.

2. Si aprirà la finestra Microsoft Visual Basic for Applications; copia e incolla il seguente codice VBA nella finestra Codice.

Codice VBA: Stampa foglio di lavoro in base al valore della cella

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

Nota: Puoi modificare la cella e il valore della cella nel codice secondo necessità.

3. Premi Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

Quando inserisci il numero 1001 nella cella B2, apparirà una finestra di dialogo Kutools for Excel; fai clic sul pulsante Sì per avviare la stampa. Oppure fai clic sul pulsante No per uscire direttamente dalla finestra di dialogo senza stampare. Vedi screenshot:

Suggerimento: Se vuoi stampare direttamente pagine non consecutive come le pagine 1, 6 e 9 nel foglio di lavoro corrente, o stampare solo tutte le pagine pari o dispari, puoi provare l'utilità Stampa pagine specifiche di Kutools for Excel come mostrato nello screenshot qui sotto.

Articoli correlati:

• Come creare un'area di stampa dinamica in Excel?
• Come stampare solo l'ultima pagina di un foglio di lavoro in Excel?