Come stampare un foglio di lavoro senza righe vuote in Excel?

Quando si stampa un foglio di lavoro, verranno stampate anche le righe vuote. Per alcuni utenti di Excel, tendono a stampare fogli di lavoro senza righe vuote per compattare i dati e risparmiare documenti. Ma come stampare un foglio di lavoro senza righe vuote in Excel. Questo articolo fornisce due metodi per te.

Nascondi le righe vuote prima di stampare con il codice VBA
Elimina le righe vuote prima di stampare con Kutools per Excel

---

Nascondi le righe vuote prima di stampare con il codice VBA

Prima di stampare il foglio di lavoro, puoi eseguire il codice VBA sottostante per nascondere le righe vuote in un intervallo specificato. Si prega di fare quanto segue.

1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic per l'applicazione finestra.

2. Nel Microsoft Visual Basic per l'applicazione finestra, fare clic inserire > Modulo. Quindi copia e incolla sotto il codice VBA nella finestra del modulo.

Codice VBA: nasconde le righe vuote nell'intervallo selezionato

Sub HideBlankRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

3. premi il F5 chiave per eseguire il codice, quindi un Kutools for Excel si apre la finestra di dialogo, selezionare l'intervallo con le righe vuote che non si desidera stampare, quindi fare clic su OK pulsante.

Quindi tutte le righe vuote nell'intervallo selezionato vengono nascoste immediatamente. Quindi puoi iniziare a stampare il foglio di lavoro senza righe vuote.

Note:: Dopo la stampa, puoi scoprire queste righe vuote con il seguente codice VBA.

Codice VBA: mostra tutte le righe vuote nell'intervallo selezionato

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

---

Elimina le righe vuote prima di stampare con Kutools per Excel

Se desideri stampare un foglio di lavoro senza righe vuote, ti consigliamo di eliminare tutte le righe vuote con l'estensione Elimina righe vuote utilità di Kutools for Excel, quindi puoi stampare il foglio di lavoro manualmente.

1. Clic Kutools > Elimina > Elimina righe vuote > Nell'intervallo selezionato/Nel foglio attivo/In fogli selezionati/In tutti i fogli in base alle tue esigenze. Vedi screenshot:

Note:: Per eliminare righe vuote in un intervallo, selezionare prima questo intervallo e quindi applicare la funzione.

2. Quindi viene visualizzata una finestra di dialogo per indicare quante righe sono state eliminate, fare clic su OK pulsante.

Ora tutte le righe vuote vengono eliminate. Puoi iniziare a stampare il tuo foglio di lavoro.

Note:: Questa utility supporta Annulla Ctrl + Z.