ページ区切り印刷複数ページvba

こんにちは私はA1：L110のシート1にデータセットを持っていて、2ページ（各ページ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'を' Worksheets（ "Sheet1"） 'に置き換え、何が起こるかを見てください。また、 'Printheut'行の前にこの行' Worksheets（ "Sheet1"）VPageBreaks（1）.DragOff Direction：= xlToRight、RegionIndex：= 1'を追加してみてください。 –

@ Scott、それは同じ出力を与えています。また、VpageBreak..lineのエラー。 – Kuma

@ Scott次のように追加してもうまくいきます。 '.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

答えて

関連する問題