分頁符打印多頁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

回答

相關問題