Axapta Code solutions Education and Entertainments Earn Money its Real Experience of knowledge Imortant Weblink collections Fun and Entertainment God thoughts Get Ways to Invest your money Products overview and details
Code to automatic page breaks in Excel
Sub identify()
'establish v to represent VERTICAL
Dim v As Integer: v = 0
' start loop to identify vertical break
Do
v = v + 1 ' go through each column at step 1
Loop Until ActiveSheet.Columns(v).PageBreak = xlAutomatic
'continue looping until it identifies a automatic verical (v) page break
MsgBox ("Page ends COLUMN : " & v - 1)
'Why "V - 1"? Well, the new page starts on column v... final page therefore is
'column v-1!
End Sub
Code to automatic page breaks in Excel
Sub identify()
'establish v to represent VERTICAL
Dim v As Integer: v = 0
' start loop to identify vertical break
Do
v = v + 1 ' go through each column at step 1
Loop Until ActiveSheet.Columns(v).PageBreak = xlAutomatic
'continue looping until it identifies a automatic verical (v) page break
MsgBox ("Page ends COLUMN : " & v - 1)
'Why "V - 1"? Well, the new page starts on column v... final page therefore is
'column v-1!
End Sub
0 comments:
Post a Comment