Conas sraitheanna bána a stopadh agus an bhileog oibre á phriontáil?

Má bhíonn iliomad sraitheanna bána i do bhileog oibre, de ghnáth, nuair a phriontálann tú an bhileog, priontálfar na sraitheanna bána freisin. Chun an bhileog oibre a phriontáil agus neamhaird á déanamh ar na sraitheanna bána is féidir páipéir a shábháil dúinn, sa chás seo, conas a d’fhéadfá stop a chur le sraitheanna bána agus tú ag priontáil bileog oibre?

Stop sraitheanna bána agus tú ag priontáil bileog oibre le cód VBA

---

Stop sraitheanna bána agus tú ag priontáil bileog oibre le cód VBA

Leis an gcód VBA seo a leanas, is féidir leat an bhileog oibre a phriontáil gan sraitheanna bána, déan mar seo é le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Stop sraitheanna bán agus tú ag priontáil:

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a phriontáil a roghnú, féach an scáileán:

4. Agus ansin cliceáil OK, agus tá do raon roghnaithe curtha i gcló ag an am céanna gan na sraitheanna bána.