分页打印多个页面vba

Question

嗨，我在表1 A1:L110中有一个数据集，我正试图将其打印成两页（每页55行）。但是下面的代码没有显示L列。有什么建议可以克服这个问题吗。非常感谢。

`Sub PrintPage()
'Worksheets("Sheet1").Activate
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.Zoom = 80
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$L$110"
Worksheets("Sheet1").Rows(55).PageBreak = xlPageBreakManual
Worksheets("Sheet1").Range("A1:L110").PrintOut Copies:=1, Preview:=True, ActivePrinter:=" ", Collate:=True
End Sub`

Answer 1

经过以下修改，我得到了所需的输出。谢谢大家。

`Sub PrintPage()
'Worksheets("Sheet1").ActivateActiveSheet.ResetAllPageBreaks
 Worksheets("Sheet1").PageSetup.Zoom = 80
 Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$L$110"
 With Sheets("Sheet1").PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
 End With
 Worksheets("Sheet1").Rows(55).PageBreak = xlPageBreakManual
 Worksheets("Sheet1").Range("A1:L110").PrintOut Copies:=1, Preview:=True,    ActivePrinter:=" ", Collate:=True

结束子`

Answer 2

我还需要一些帮助。我有一个修改过的销售发票，所以我想在13行之后分页刹车，然后转到下一页打印，而不删除第13行下面的任何内容。如果我使用内置的分页符选项，那么一切都在下一页，我从下面得到了30%的白色页面。

就像这个下一页的公式，没有从这一点删除任何内容。

<如果（<#items.#RowCount>=0；<#删除行>）>

如果为空或没有，我想要下一页，而不是删除行。

若行不为空，则转到下一页。