社区
VB基础类
帖子详情
50分求解一个简单的问题?
powpow
2001-11-29 10:19:21
怎么调用word中的页面设置?(用户的要求)
我用的是activereport做报表,调用word的页面设置可不可以同样的设置打印的页面?
大家一定要帮我!1!!!
...全文
78
8
打赏
收藏
50分求解一个简单的问题?
怎么调用word中的页面设置?(用户的要求) 我用的是activereport做报表,调用word的页面设置可不可以同样的设置打印的页面? 大家一定要帮我!1!!!
复制链接
扫一扫
分享
举报
写回复
配置赞助广告
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
powpow
2001-11-30
打赏
举报
回复
to:hlf()
就是调用word的菜单命令printsetup
如果是open命令的话,wdDialogFileOpen
我的问题已经在vba专区解决。谢谢Jneu(沧海桑田)
hlf
2001-11-29
打赏
举报
回复
To:powpow(飞机)
请问Dialogs(wdDialogFilePrintSetup).Show一句中的wdDialogFilePrintSetup的值是什么呢?
Jneu
2001-11-29
打赏
举报
回复
可以同样的设置打印的页面
请将问题转到VBA专栏
Jneu
2001-11-29
打赏
举报
回复
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
.LeftMargin = CentimetersToPoints(3.17)
.RightMargin = CentimetersToPoints(3.17)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(1.75)
.PageWidth = CentimetersToPoints(16.2)
.PageHeight = CentimetersToPoints(22.9)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
.LayoutMode = wdLayoutModeLineGrid
End With
powpow
2001-11-29
打赏
举报
回复
我的是word2000没有8。0,只引用9。0可不可以在word97的机子上运行呀!
powpow
2001-11-29
打赏
举报
回复
谢了!
我已经找到用 Dialogs(wdDialogFilePrintSetup).Show来调用对话框!
请问引用了 Microsoft Word Object Library 9.0在只装了word97的机子上是不是不能运行!
要在word97和word2000都能运行是不是8。0和9。0都引用了就行了!thanks
TechnoFantasy
2001-11-29
打赏
举报
回复
你可以用Word的宏功能,录制宏,然后将代码拷贝到VB中。
Word2000需要引用 Microsoft Word Object Library 9.0
97好像是Microsoft Word Object Library 8.0
powpow
2001-11-29
打赏
举报
回复
我要的是调用word的页面设置对话框,这样可以么?
请问要引用什么库文件?还有word97跟2000一样么?
老大,帮人帮到底吧!!!
相关推荐
免疫算法
求解
最优路径
问题
免疫算法
求解
最优路径
问题
,用于 较为
简单
的
求解
问题
哦
课程表(LeetCode/判断有向图是否有环/拓扑排序/dfs)
CSP认证的第三题遇到了判断环的
问题
,当时用了dfs
求解
,样例跑出来了,可是还是拿不到后面
50
分
。。。
使用Lingo
求解
简单
的线性规划
问题
使用Lingo
求解
简单
的线性规划
问题
洛谷P1546 最短网络 Agri-Net
P1546 最短网络 Agri-Net 526通过 959提交 题目提供者JOHNKRAM 标签图论贪心USACO 难度普及/提高- 提交该题讨论题解记录 最新讨论
50
分
C++代码,
求解
请指教哪里出现了
问题
,只有…
求解
为什么只有40
分
题目背景 农民约翰被选为他们镇的镇长!...
基于遗传算法的最优化
求解
问题
其通过遗传算法对
简单
的多元函数求极值
问题
进行优化
求解
基于遗传算法的最优化
求解
问题
其通过遗传算法对
简单
的多元函数求极值
问题
进行优化
求解
,得到了最优解和迭代收敛曲线 ID:69
50
655360319769
发帖
VB基础类
VB基础类
VB 基础类
复制链接
扫一扫
7681
社区成员
19.7w+
社区内容
VB 基础类
社区管理员
加入社区
获取链接或二维码
帖子事件
创建了帖子
2001-11-29 10:19
社区公告
暂无公告