2666.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 25 行
HTML
25 行
<html>
<head>
<title>使用RichTextBox控制项的SelPrint法的[头大]问题!!</title>
</head>
<BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
<center>
<h1>使用RichTextBox控制项的SelPrint法的[头大]问题!!</h1>
</center>
<HR><p>
Posted by <a href="mailto:chyeu@email.gcn.net.tw">陈春雨</a> on April 24, 1998 at 08:18:18:<p>
各位网友好:<br>我使用Richtextbox控制项中的selprint方法来列印控制项的内文时,有如下问题:<br>1.每当我使用CommonDialog.showprinter来设定印表机参数时,其内定的[纸张大小]及[纸张来源]始终都会回复成[纸张大小=定制(或自订)],[纸张来源=手动送纸],当我将其改成[A4]及[进纸匣]成功印出后,结束程式再进入又回复成原来的值了.<p>2.当我勉强用上述方式印出后,却发现-->当连续印出二张以上时,会在换页时漏掉几个字(刚好在上一页的最后一个字与下一页的第一个字之间).<p>3.同2-->当印出的资料超过二页(或满页)时,会在第一页(或该页)出现一行只印半行的文字(即文字的上半身(或下半身)被砍掉).<p>4.是不是RichTextBox控制项本身的bug或限制!!(我印的都是中文文字)<p>程式节录如下:<br>PS: chap_doc=RichTextBox 控制项<p>chap_doc.SelStart = 0<br>chap_doc.SelLength = 0<br>CommonDialog1.CancelError = True<br>On Error GoTo errhelp<br> <br>CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums+_ cdlPDPrintSetup + cdlPDAllPages<br>CommonDialog1.ShowPrinter<br>chap_doc.SelPrint CommonDialog1.hDC<br>Printer.EndDoc<br>---end---
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2666-->
<!--top: 2699--><li><a href="2699.html"><b>Re: 使用RichTextBox控制项的SelPrint法的[头大]问题!!</b></a> 小吴 <i>18:22:24 4/28/98</i>
(<!--responses: 2699-->0)
<ul><!--insert: 2699-->
</ul><!--end: 2699-->
</ul><!--end: 2666-->
<br><HR><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?