📄 2061.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: 试过了,还有一点问题!!</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Re: 试过了,还有一点问题!!</h1>    </center><HR><p>Posted by <a href="mailto:chroma1@ms4.hinet.net">jerry</a> on February 23, 1998 at 01:54:35:<p>In Reply to: <a href="2051.html"><b>自己试看看</b></a> posted by 小吴 on February 22, 1998 at 17:39:58:<p><br>: 你到 Word 去录一段巨集来看看吧！<br>: 这个讨论区上有个女生从完全不会到很了解，全部都是自己试出来的。所以你先试看看吧！<p>我建立一个OLE连接到建立好的文件,然后:<br>Dim obj As Object<br>OLE1.Action = 7<br>Set obj = OLE1.object.application.wordbasic<br>With obj<br>    .linedown 6<br>    .nextcell<br>    .nextcell<br>    .Insert "R7060008"<br>    .linedown 1<br>    .Insert "26-Jun-97"<br>    .linedown 1<br>    .vline 8<br>    .linedown 1<br>    .Insert "TEXAS"<br>    .FilePrintDefault<br>     ^^^^^^^^^^^^^^^^  这行无法执行<br>End With<br>OLE1.Action = 9<p>是我使用的方法不对还是在OLE中不支援列印呢??<p>PS:以上的程式在WORD中均已测试过,可正确执行!!<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 2061--><!--top: 2070--><li><a href="2070.html"><b>嗯．．．</b></a> 小吴 <i>17:20:52 2/23/98</i>(<!--responses: 2070-->0)<ul><!--insert: 2070--></ul><!--end: 2070--></ul><!--end: 2061--><br><HR><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -