Stampa in batch più selezioni (tutte le aree di stampa) su una pagina in Excel

Qui parlerò della stampa di più righe selezionate su una pagina con VBA in Excel. Si prega di fare quanto segue:

1. Stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduli, quindi incolla il codice VBA sottostante nella nuova finestra del modulo di apertura.

VBA: stampa più righe selezionate su una pagina in Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Stampa F5 o fare clic su Correre pulsante per eseguire questo VBA.

4. Ora a Kutools for Excel si apre la finestra di dialogo. Seleziona più righe da stampare e fai clic su OK pulsante per stampare queste righe.

Note:: Tenendo premuto il Ctrl è possibile selezionare più righe non adiacenti contemporaneamente.

Se possiamo copiare queste righe non consecutive e incollarle come un intervallo consecutivo in un altro foglio di lavoro, possiamo stamparle facilmente su una pagina. Questo metodo introdurrà Kutools for Excel'S Copia intervalli utilità per affrontarlo.

1. Crea un nuovo foglio di lavoro, quindi seleziona le righe che stamperai dalla tabella e fai clic Kutools > Copia intervalli.

Note:: Tenendo premuto il Ctrl è possibile selezionare più righe incoerenti contemporaneamente.

2. Nella finestra di dialogo di apertura Copia più intervalli, selezionare Tutti opzione e fare clic su Ok pulsante.

Note:: Il Compresa l'altezza della riga opzione e Compresa la larghezza della colonna le opzioni copieranno le altezze delle righe e le larghezze delle colonne degli intervalli selezionati e le incolleranno nell'intervallo di destinazione.

3. Selezionare la Cella A1 nel nuovo foglio di lavoro creato e fare clic su OK Pulsante.

4. Rimanere nel foglio di lavoro di destinazione e fare clic Kutools > Elimina > Elimina righe vuote > Nel foglio attivo.

E poi viene visualizzata una finestra di dialogo che mostra quante righe sono state eliminate. Basta chiuderlo.

5. Fare clic sul Compila il (o Pulsante di ufficio)> Stampa per stampare queste righe.

In realtà Kutools for Excel disegni Stampa guidata selezione multipla per stampare più intervalli insieme in Excel.

1. Clic Impresa > Stampa > Stampa guidata selezione multipla per aprire la Stampa guidata selezione multipla.

2. Nella procedura guidata di apertura Stampa selezione multipla, fare clic su Aggiungi pulsante  per aggiungere righe da stampare insieme e fare clic su Fine pulsante.

Note:

(1) Dopo aver fatto clic su Aggiungi pulsante , puoi selezionare più intervalli non consecutivi in ​​un foglio di lavoro tenendo premuto il tasto Ctrl tasto e poi selezionandoli uno per uno;

(2) Per rimuovere un intervallo / riga dal file Intervalli da stampare elenco, seleziona semplicemente questo intervallo / riga e fai clic su Elimina pulsante.

(3) Questa utility non supporta la stampa di intere righe e colonne, come l'intera riga di $ 4: $ 4o l'intera colonna di $ B: $ B.

3. Le righe / gli intervalli selezionati sono stati incollati come immagini collegate in un nuovo foglio di lavoro. Vai avanti per fare clic Compila il (o Pulsante di ufficio)> Stampa per stamparlo.