excel打印难题#高手来!

来源：百度知道 编辑：UC知道 时间：2024/06/15 19:20:55
sheet1中纸张大小为A4纸,每一张A4纸里面各有一个格式相同的表格(数据项不同).打印预览有50多个表格.有些表格仅有表格并没有数据项的.请问下打印的时候如何不要打这些没有数据的表格.
比如说.
A1为第一页的第一个单元格,当A1有数据时打印第一页.
A24为第二页的第一个单元格,当A24无数据时打印,无数据时则不打印第二页.
A48为第三页的第一个单元格,当A48有数据时打印,无数据时则打印第三页
以此类推,每一页都隔24行
谢谢拉!@

我猜你是这个意思吧：
A24为第二页的第一个单元格,当A24有数据时打印,无数据时则不打印第二页.
A48为第三页的第一个单元格,当A48有数据时打印,无数据时则不打印第三页

不然意思矛盾了。如果是，可以用下面的宏：

Sub Macro1()
Dim i As Integer
For i = 1 To 10000 Step 23
If Cells(i, 1) <> "" Then
ActiveSheet.PrintOut From:=i \ 23 + 1, To:=i \ 23 + 1
End If
Next i
End Sub

ps：如果数据超过10000行，则要将上面For i = 1 To 10000 Step 23 里的10000改大。

没有这个功能你可以删除行。。。只留下有用的