<<< 返回 access911.net 编程静态资料库索引页

access输出资料到word用于打印

 

作者:cg1 & 吴天明  摘自:access911.net  录入:cg1  时间:2003-4-10  浏览人次:6390


专题地址:http://access911.net/fixhtm/73FABF1E16DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:access输出资料到word用于打印

 


两种输出方法随便选:

Function export_word_use_range()

    '请先引用 word
    Dim objWord As New Word.Application
    Dim ragRange As Range
    Dim Ils1 As InlineShape
    
    objWord.Documents.add
    objWord.WindowState = wdWindowStateMaximize
    objWord.Visible = True
    
    objWord.ActiveDocument.PageSetup.LeftMargin = 30
    objWord.ActiveDocument.PageSetup.RightMargin = 30

    Set ragRange = objWord.ActiveDocument.Paragraphs.add.Range
    ragRange.InsertBefore "标题"
    ragRange.Font.Bold = True
    ragRange.Font.Size = 22
    ragRange.ParagraphFormat.Alignment = wdAli.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FABF1E16DC.htm

 


上一篇:vb系统托盘

下一篇:关于事务处理

2017年2月22日生成静态资料