excel打印预览和打印时自动隐藏空白行！怎么写代码呢？
excel打印预览和打印时自动隐藏空白行！怎么写代码呢？打印区域为H1:U174,哪位高手会啊！帮个忙！急！在线等！...
excel打印预览和打印时自动隐藏空白行！怎么写代码呢？打印区域为H1:U174,哪位高手会啊！帮个忙！急 ！在线等！
展开
展开全部
Private Sub workbook_beforeprint(cannel As Boolean)
Dim k As Integer
a = Range("h5555").End(xlUp).Row
For k = 1 To a
If Cells(k, 8) = "" Then
Rows(k & ":" & k).Select
Selection.RowHeight = 4.5
End If
Next
End Sub
试试看
Dim k As Integer
a = Range("h5555").End(xlUp).Row
For k = 1 To a
If Cells(k, 8) = "" Then
Rows(k & ":" & k).Select
Selection.RowHeight = 4.5
End If
Next
End Sub
试试看
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
