430.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 22 行

HTML

22 行

<html>  <head>    <title>Re: 列印 And 套表</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Re: 列印 And 套表</h1>    </center><HR><p>Posted by <a href="mailto:shien@wusnet.net.tw">小贤</a> on August 19, 1997 at 20:28:49:<p>In Reply to: <a href="418.html"><b>Re: 列印 And 套表</b></a> posted by 小吴 on August 18, 1997 at 17:49:13:<p><br>: 在自己列印方面：你有没有忘记 TextWidth 这个函式呢？利用这个指令就可以轻易地做到向右对齐了呀！<p>我写了程式如下请您看看有没问题:<br>Private Sub Command1_Click()<br>Me.ScaleMode = 7<br>Printer.ScaleMode = 7<br>Printer.FontName = "新细明体"<br>Printer.FontSize = 10<br>Printer.Print ""<br>Do Until Data1.Recordset.EOF<br>   字宽 = TextWidth(Format(Data1.Recordset("钱"), "#,###"))<br>   x = 3 - 字宽 '右边界<br>   Printer.CurrentX = x<br>   Printer.Print Format(Data1.Recordset("钱"), "#,###")<br>   Data1.Recordset.MoveNext<br>   Loop<br>Printer.EndDoc<br>end sub   <p>结果印出来还是无法向右对齐!<br>如果是印在表单上,可以对齐!! 请问 问题出在那里呢??<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 430--></ul><!--end: 430--><br><HR><p></body></html>

430.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 430.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?