Question

嗨我在sheet1 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

结束Sub`

分页打印多页vba

1 个答案: