Question

如何更改每页的打印区域？

我想做的事情：在“分页预览”中手动进行操作，我可以在页面之间重新定位行，以便为每页重新定义区域。我想从VBA代码中做到这一点。有可能吗？

我的情况：我在excel中有一些表，这些表是由代码创建的，这意味着这些表中的行数可以不同。我希望将整个表放在一页中，而不是像现在这样划分，因此我将检查表的末尾，并希望将页面的末尾重新定位到这些行，从而循环所有表和页面。

有人可以帮我吗？

Answer 1

好，所以我找到了我所需要的。如果有人感兴趣，这是主要思想：

Sub SetPageBrake()

    ActiveWindow.View = xlPageBreakPreview
    Worksheets(1).ResetAllPageBreaks
    ActiveWorkbook.PageSetup.PrintArea = 'Put here some range

With 'worksheet
    Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
    Set .HPageBreaks(2).Location = .Range("A98")
End With

    ActiveWindow.View = xlNormalView

End Sub

感谢所有尝试提供帮助的人。羞辱那些为我的声誉负号而没有任何线索甚至在哪里寻找答案的人。

每页打印范围

1 个答案: