Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim rAll As Range, r As Range
Application.EnableEvents = False
With Worksheets("print")
Set rAll = .Range("b1", .Range("b" & Rows.Count).End(xlUp))
End With
For Each r In rAll
    If r = "" Then
        r.EntireRow.Hidden = True
    End If
Next r
With Worksheets("print")
    rAll.Resize(, 15).PrintOut
    .UsedRange.EntireRow.Hidden = False
End With
Application.EnableEvents = True
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Dim rAll As Range, r As Range
    Application.EnableEvents = False
    With Worksheets("print")
        Set rAll = .Range("b1", .Range("b" & Rows.Count).End(xlUp))
    End With
    For Each r In rAll
        If r = "" Then
            r.EntireRow.Hidden = True
        End If
    Next r
    With Worksheets("print")
        .PageSetup.PrintArea = .Range("b6").CurrentRegion.Address
    '    rAll.Resize(, 15).PrintOut
        .PrintOut
        .UsedRange.EntireRow.Hidden = False
    End With
    Application.EnableEvents = True
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("data").Visible = True
Sheets("data").Select
ActiveSheet.PageSetup.PrintArea = "$b$5:$h$32"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Sheets("data").Visible = True
Application.ScreenUpdating = True
'Êèǹ·ÕèÊÑ駾ÔÁ¾ì Sheet print
Dim rAll As Range, r As Range
    Application.EnableEvents = False
    With Worksheets("print")
        Set rAll = .Range("b1", .Range("b" & Rows.Count).End(xlUp))
    End With
    For Each r In rAll
        If r = "" Then
            r.EntireRow.Hidden = True
        End If
    Next r
    With Worksheets("print")
        .PageSetup.PrintArea = .Range("b3").CurrentRegion.Address
    '    rAll.Resize(, 15).PrintOut
        .PrintOut
        .UsedRange.EntireRow.Hidden = False
    End With
    Application.EnableEvents = True
End Sub