|
VFP-Excel если есть, то убрать разрыв страницы
|
|||
---|---|---|---|
#18+
Скидываю карточки в Excel, на одной странице с полями внизу и вверху 0.8, входит четыре карточки, на одной странице 102 строки разной высоты, так вот когда я подхожу к последней карточке на первой странице и ставлю разрыв страницы, то эти разрывы появляется по всему документу, и не там где надо, поэтому мне надо как-то найти, на второй странице, где Excel, поставил этот разрыв, убрать его, и поставить свой разрыв в нужном месте... **************************** DECLARE arr_height(26) arr_height(1)=7 arr_height(2)=7 arr_height(3)=9 arr_height(4)=9 arr_height(5)=3 arr_height(6)=6 arr_height(7)=9 arr_height(8)=7.5 arr_height(9)=4 arr_height(10)=4 arr_height(11)=3.75 arr_height(12)=12 arr_height(13)=6 arr_height(14)=7.5 arr_height(15)=9 arr_height(16)=12.75 arr_height(17)=12.75 arr_height(18)=3 arr_height(19)=12 arr_height(20)=7.5 arr_height(21)=10 arr_height(22)=0.75 arr_height(23)=12 arr_height(24)=6 arr_height(25)=12.75 arr_height(26)=12.75 nllocaleid=SYS(3004) =SYS(3006,1033) loexcel=CREATEOBJECT('Excel.Application') loexcel.workbooks.add loexcel.VISIBLE=.T. WITH loexcel FOR nlist=0 TO 2 n_str=102*nlist FOR j=0 TO 3 FOR i=1 TO 26 k=n_str+(i+26*j) * .activesheet.hpagebreaks.Delete(.cells[k,1]) && Тут ошибка выходит .ROWS(k).ROWHEIGHT=arr_height(i) ENDFOR ENDFOR k=k-1 .activesheet.hpagebreaks.ADD(.cells[k,1]) ENDFOR ENDWITH =SYS(3006,VAL(nllocaleid)) **************************** ... |
|||
:
Нравится:
Не нравится:
|
|||
23.06.2009, 15:56 |
|
|
start [/forum/topic.php?desktop=1&fid=41&tid=1586291]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
42ms |
get topic data: |
14ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
others: | 342ms |
total: | 483ms |
0 / 0 |