wps jsa 中如何定位页,比如说,我要快速定位到第三页,并选择全页内容.

lyj344600

wps jsa 中如何定位页,比如说,我要快速定位到第三页,并选择全页内容.

LIUZHU

Sheet.Item(3).Activate();
Cells.Select();

孙森峰

  Application.Worksheets.Item("通知单").Activate()
  Application.ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address()
Debug.Print('PrintArea='+Application.ActiveSheet.PageSetup.PrintArea)
Debug.Print('Pages.Count='+Application.ActiveSheet.PageSetup.Pages.Count)
Debug.Print('HPageBreaks.Count='+Application.ActiveSheet.HPageBreaks.Count)
Debug.Print('Location='+Application.ActiveSheet.HPageBreaks.Item(1).Location.Address())
---------------------------------------------------------------------------------------------------------------
$A$4:$N$38
Pages.Count=2
HPageBreaks.Count=1
Location=$A$31

可以从打印设置方面入手