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.