回复 楼主 xuxinxu
eOle.Worksheets("Sheet1").Rows(50).PageBreak=1
dBase有人接盘了。
nRow = 0 nPageBreaks = 0 nRow = (bjs + 2) * 3 '&&每页行数 nPageBreaks = Int(CountA(ActiveSheet.Range("A:A")) / nRow) '&&分页符数 For i = 1 To nPageBreaks ActiveSheet.Rows [i*nRow+1].PageBreak = 1 Next i
[此贴子已经被作者于2021-10-29 11:52编辑过]
bjs = 14 ActiveSheet.ResetAllPageBreaks Cells(48, 2).PageBreak = -4142 nRow = 0 nPageBreaks = 0 nRow = (bjs + 2) * 3 '&&每页行数 nPageBreaks = Int(Application.CountA(ActiveSheet.Range("A:A")) / nRow) '&&分页符数 For i = 1 To nPageBreaks ActiveSheet.Rows(i * nRow + 1).PageBreak = 1 Next i
[此贴子已经被作者于2021-10-29 13:52编辑过]