|
G-Luck さん
>それで結構です。記してください。
ctiveWindow.SmallScroll Down:=-3
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SmallScroll Down:=-51
Set ActiveSheet.HPageBreaks(1).Location = Range("A50")
ActiveWindow.SmallScroll Down:=54
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$96"
ActiveSheetA.PageSetup.PrintArea = "$A$1:$A$103"
Set ActiveSheet.HPageBreaks(2).Location = Range("A97")
ActiveWindow.SelectedSheets.PrintPreview
ここを使用すると思うんですが
ActiveWindow.SelectedSheets.PrintPreview
Set ActiveSheet.HPageBreaks(1).Location = Range("A47")
ここが?
|
|