分页符打印多页vba

您好我有一个数据集在Sheet1 A1：L110，并且我试图在两页（每页55行）中打印它。但是用下面的代码它不显示列L.是否有任何建议来解决这个问题。谢谢。分页符打印多页vba

`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`

来源

2016-07-26 Kuma

你使用'ActiveSheet' - 这可能不是'Sheet1'。将'ActiveSheet'替换为'Worksheet（“Sheet1”）'看看会发生什么。也可以在'PrintOut'行之前添加这行'Worksheets（“Sheet1”）。VPageBreaks（1）.DragOff Direction：= xlToRight，RegionIndex：= 1'。 –

@ Scott，它给出相同的输出。也在VpageBreak..line – Kuma

@斯科特我错误添加下面然后它运作良好。 '.Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False End With' – Kuma

通过以下修改，我得到了所需的输出。谢谢你们。

`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`

来源

2016-07-26 15:13:21 Kuma

分页符打印多页vba

回答

相关问题