选择需要的行进行预览打印

hhxq001

只想打印h列带√的数据，怎么改一下代码可以打印所有√的行？目前只能预览打印第一条h列打钩的，期望各位帮忙
选择性打印求助.zip (17.7 KB, 下载次数: 5)

2022-5-28 12:35 上传

点击文件名下载附件

zjdh

Sub TEST()
    Sheets(1).Copy
    With ActiveWorkbook.Sheets(1)
        For I = .Range("A65536").End(3).Row To 2 Step -1
            If .Cells(I, "H") <> "√" Then Rows(I).Delete
        Next
        If MsgBox("你需要打印此表格吗吗？", 4 + 32 + 256) = 6 Then
            .PrintOut
        Else
            ActiveWorkbook.Close False
        End If
    End With
End Sub

zjdh

Sub TEST()
    Sheets(1).Copy
    With ActiveWorkbook.Sheets(1)
        For I = .Range("A65536").End(3).Row To 2 Step -1
            If .Cells(I, "H") <> "√" Then Rows(I).Delete
        Next
        .PrintPreview
    End With
    ActiveWorkbook.Close False
End Sub

hasyh2008

向高手学习下。
不过这里
If .Cells(I, "H") <> "√" Then Rows(I).Delete
改为
If .Cells(I, "H") <> "√" Then Rows(I).RowHeight=0
更好点。

hhxq001

hasyh2008 发表于 2022-5-28 16:47
向高手学习下。
不过这里
If .Cells(I, "H")  "√" Then Rows(I).Delete

感觉还是2楼朋友的这句If .Cells(I, "H") <> "√" Then Rows(I).Delete好，因为金额列的d1单元格还要合计，隐藏后还是会被计算在里面，这里要求只合计选中的行。

hhxq001

zjdh 发表于 2022-5-28 16:13
Sub TEST()
    Sheets(1).Copy
    With ActiveWorkbook.Sheets(1)

为什么我添加了紫颜色部分后就不能选择打印机和打印了呢？

Sub TEST()
Application.DisplayAlerts = False
    Application.ScreenUpdating = False

Sheets(1).Copy
    With ActiveWorkbook.Sheets(1)
        For i = .Range("A65536").End(3).Row To 2 Step -1
            If .Cells(i, "H") <> "√" Then Rows(i).Delete
        Next
        
     k = .Range("A65536").End(3).Row
    .Range("a1:g" & k).PrintPreview  '预览并打印a1-g列的有数据行
     ' 为什么不能打印和选择打印机呢
        
      '  .PrintPreview
    End With
    ActiveWorkbook.Close False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False


End Sub