Cum să opriți rândurile goale când imprimați foaia de lucru?
Dacă există mai multe rânduri goale în foaia de lucru, în mod normal, când imprimați coala, vor fi imprimate și rândurile goale. Pentru a imprima foaia de lucru ignorând rândurile goale, putem salva hârtii pentru noi, în acest caz, cum ați putea opri rândurile goale când imprimați o foaie de lucru?
Opriți rândurile goale când imprimați foaia de lucru cu cod VBA
Opriți rândurile goale când imprimați foaia de lucru cu cod VBA
Cu următorul cod VBA, puteți imprima foaia de lucru fără rânduri goale, faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Opriți rândurile goale la imprimare:
Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xHideRg As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
If xHideRg Is Nothing Then
Set xHideRg = xRg.Rows(I)
Else
Set xHideRg = Union(xHideRg, xRg.Rows(I))
End If
End If
Next
xHideRg.EntireRow.Hidden = True
ActiveSheet.PrintOut Copies:=1
xHideRg.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
3. Apoi apăsați F5 pentru a rula acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați intervalul de date pe care doriți să îl imprimați, vedeți captura de ecran:
4. Apoi faceți clic pe OK, iar intervalul selectat a fost tipărit simultan fără rândurile goale.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
