| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 377 人关注过本帖
标题:如何在word表格第21行插入分页符
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
结帖率:97.48%
收藏
已结贴  问题点数:20 回复次数:5 
如何在word表格第21行插入分页符
我想word表格每页打印20条记录,如何在表格第21行、41行、61行...... 强制插入分页符,vfp代码怎样写,请高手赐教,万分感谢!!!
teacher.rar (1.94 KB)


在下列程序哪里写上分页代码?
fn=getfile("dbf")
use "&fn"
IF EMPTY(ALIAS())
MessageBox( "当前工作区没有打开工作表!",48,"不能生成表格")
ENDIF
WAIT "正在访问 Word 软件……" WINDOW NOWAIT
WordApp=CREATEOBJECT("Word.application")   &&访问WORD
If Type("WordApp")#"O"
WAIT CLEAR
MessageBox( "访问Word失败!请检查你的系统是否正确安装 Word 软件!",48,"没有安装Word")
RETURN
ENDIF
WAIT "正在生成表格……" WINDOW NOWAIT
WordApp.Visible =.t.
WordApp.Documents.Add
*WordApp.ActiveDocument.PageSetup.PageWidth=18.4/0.035  &&设置页宽
*WordApp.ActiveDocument.PageSetup.PageHeight=26/0.035   &&设置页高
WordApp.ActiveDocument.PageSetup.LinesPage = 35         &&设置每页打印行数
WordApp.Documents(1).Range.Text=ALIAS()+"一览表"
WordApp.Documents(1).Range.Font.Size= 15
WordApp.Documents(1).Range.Font.Name="黑体"
WordApp.Documents(1).Range.Paragraphs.Alignment= 1
WordAppRang=WordApp.Documents(1).Range(LENC(WordApp.Documents(1).Range.Text)-1,LENC(WordApp.Documents(1).Range.Text)-1)
WordTable=WordApp.Documents(1).Tables.Add(WordAppRang,RECCOUNT()+1,FCOUNT())
WordTable.Range.Paragraphs.Alignment= 0
WordTable.Range.Font.Name="宋体"
WordTable.Range.Font.Size=10
WordTable.Borders.Enable=1
*WordTable.Borders(1).LineWidth = 12
*WordTable.Borders(2).LineWidth = 12
*WordTable.Borders(3).LineWidth = 12
*WordTable.Borders(4).LineWidth = 12
*WordTable.Rows(1).Borders(3).LineWidth = 12
WordTable.Borders.OutsideLineWidth=12
WordTable.Rows(1).Range.Font.Bold=.t.
WordTable.Rows(1).Cells.VerticalAlignment= 1
WordTable.Rows(1).Range.Paragraphs.Alignment = 1
WordTable.Rows(1).HeadingFormat=.t.
FOR i=1 TO FCOUNT()
WordTable.Cell(1,i).Range.Text=FIELD(i)
FOR k=2 TO RECCOUNT()+1
GO k-1
WordCellText=EVALUATE(FIELD(i))
DO CASE
CASE ISNULL(WordCellText)
WordCellText=""
CASE TYPE("WordCellText")="N"
CASE TYPE("WordCellText")="D"
WordCellText=DTOC(WordCellText)
CASE TYPE("WordCellText")="T"
WordCellText=TTOC(WordCellText)
CASE TYPE("WordCellText")="M"
WordCellText=TRIM(WordCellText)
WordCellText=STRTRAN(WordCellText,CHR(13),' ')
CASE TYPE("WordCellText")="L"
WordCellText=IIF(WordCellText,".T.",".F.")
CASE EMPTY(WordCellText)
WordCellText=" "
OTHERWISE
* WordCellText=""
ENDCASE
IF EMPTY(WordCellText) OR ISNULL(WordCellText)
WordCellText=" "
ENDIF
WordTable.Cell(k,i).Range.Text=WordCellText
endfor
WordTable.Columns(i).AutoFit
endfor

* 下面为页面设置
WordApp.ActiveDocument.PageSetup.PaperSize=7
WordApp.ActiveDocument.PageSetup.Orientation=0                 &&页面竖放  0-竖放  1-横放
*WordTable.Rows.HorizontalPosition=-999995                      &&表格水平居中
WordApp.ActiveDocument.PageSetup.TopMargin=22.0*2.835         &&设置上边距
WordApp.ActiveDocument.PageSetup.BottomMargin=22.0*2.835      &&设置下边距
WordApp.ActiveDocument.PageSetup.LeftMargin=19.0*2.835        &&设置左边距
WordApp.ActiveDocument.PageSetup.RightMargin=19.0*2.835       &&设置右边距
WordApp.ActiveDocument.PageSetup.VerticalAlignment=0           &&页面对齐方式 0-上  1-中  2-下                          
WordApp.Documents(1).SaveAs("E:\My.doc")                   &&自动保存文件
RELEASE WordApp
WAIT CLEAR
MessageBox( "生成Word文件完毕,文件位置 E:\My.doc !",64,"完毕")
RETURN

搜索更多相关主题的帖子: 表格 CASE Rows Documents word 
2024-08-22 09:40
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:5 
在word里面操作一遍,然后录制宏,代码自然显现
2024-08-22 11:21
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
这两句代码不起作用,请高手指点!
WordTable.Rows(21).select
WordApp.Selection.InsertBreak(0)
2024-08-22 13:06
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1730
专家分:3324
注 册:2012-2-29
收藏
得分:15 
回复 楼主 王咸美
请按如下步骤试一试,是否可行?
1.选中表格的第 1 行第 1 列:wordapp.activedocument.tables(1).cell(1,1).select   (此处也可以直接选中需要的行,省略光标下移这步)
2.光标下移需要的行数(如21):wordapp.selection.movedown(5,21,.f.)
3.插入分页符:wordapp.selection.insertbreak(2)
其余类推。

[此贴子已经被作者于2024-8-22 19:02编辑过]

2024-08-22 18:57
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1730
专家分:3324
注 册:2012-2-29
收藏
得分:0 
回复 3楼 王咸美
我使用的分页符好像是(2),你的是(0)也可以的。

[此贴子已经被作者于2024-8-22 19:03编辑过]

2024-08-22 18:59
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
谢谢!问题已解决,不足之处是:从第二页开始下面所有的页都没有标题行。
怎样选中第1行标题行并复制粘贴到第21行?代码如何写?盼指点!
2024-08-22 19:35
快速回复:如何在word表格第21行插入分页符
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045066 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved