50分求解一个简单的问题?

powpow 2001-11-29 10:19:21
怎么调用word中的页面设置?(用户的要求)
我用的是activereport做报表,调用word的页面设置可不可以同样的设置打印的页面?
大家一定要帮我!1!!!
...全文
78 8 打赏 收藏 举报
写回复
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一样么?
老大,帮人帮到底吧!!!
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-29 10:19
社区公告
暂无公告