540.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 25 行
HTML
25 行
<html> <head> <title>印表机的问题</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>印表机的问题</h1> </center><HR><p>Posted by <a href="mailto:m85408@ew001.ew.tku.edu.tw">陈守宪</a> on September 04, 1997 at 16:01:40:<p>印表机的问题<br> 除了Form1.PrintForm外(印出许多不必要的区域,而且随萤幕解析度不同<br> ,列印格式亦随之改变 ),我用Printer.Print, Printer.fontsize<br> Printer.EndDoc属性、方法,企图将资料以类似DBGrid的格式印出,<br> ex: <br> Data1.Recordset.MoveFirst<br> (将Text link到Table得某个栏位) <br> For i = 1 To Data1.Recordset.RecordCount<br> name = Text1.Text<br> id = Text2.Text<br> add = Text3.Text<br> phone = Text4.Text<br> .<br> . <br> printer.fontsize=9<br> printer.print name,id,add,phone.... ( 配合Spc(n) )<br> Data1.Recordset.MoveNext<br> Next i<br> printer.enddoc<br> 再用commomdialog 将printer设为横向列印<br> 结果,可能由于印表机无法接受printer.fontsize=9 的要求<br> 造成字形太大,许多栏位未印出。使我非常困扰。<br> 这似乎与印表机本身的设定有关?<br> <br> 请问您要用何种方式,将资料列印成所需的格式?<br> 类似word97,7.0 可在固定表格内填入资料,制作报表。<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 540--><!--top: 544--><li><a href="544.html"><b>Re: 印表机的问题</b></a> 小吴 <i>09:23:48 9/06/97</i>(<!--responses: 544-->0)<ul><!--insert: 544--></ul><!--end: 544--></ul><!--end: 540--><br><HR><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?