VB打印可见区域的问题

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:14:27
Private Sub Command1_Click() ' 用PrintForm 打印
Me.PrintForm ' 打印窗体的可见区域
End Sub

我只想打印其中的文字显示,用上面的代码,连按纽的轮廓和打印按纽都出来了,怎么修改呢，我是个菜鸟谁给说一下.

一、采用Visual Basic提供简单的打印函数PrintForm方法

应用程序窗体的PrintForm方法时，Visual Basic把窗体的位图送到当前打印机。该方法的优点在于它几乎不需要任何编程，但也有很大缺陷。最为突出的是当低分辨率图形在高分辨率打印机上打印时，其结果令人无法满意，会产生锯齿。下面代码将在打印机上打印窗体。

Private Sub Command1_Click() 注释：用PrintForm打印
Me.PrintForm 注释：打印窗体的可见区域
End Sub

二、用Printer对象
用Printer对象可以进行高分辨率输出，但要想产生复杂的打印输出，编程较为繁琐。Printer对象代表系统确省的打印机。Printer对象支持许多由窗体和图形框所支持的属性和方法，三种对象都有画线和画方框。应用程序可用以下列代码在Printer对象上画出一平方英寸的方框。它离左上角二英寸。注意：打印机以twips来测量距离。每英寸有1440个twips。

Printer.Line(2*1440,2*1440)-Step(1440,1440), ,B

---- 打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth方法。使用这些方法，应用程序可以为打印机生成高分辨率输出。
---- 打印文本直接用Print方法，见下列代码：

---- Printer.Print “Hello,China ComputerWorld!” ‘打印字符串

---- Printer对象还有一些窗体和图形框都没有方法：

---- NewPage告诉打印机，程序对当前输出页的发送已经结束。Printer对象应开始新的一页。

---- EndDoc告诉VISUAL BASIC，程序创建文档结束。VISUAL BASIC应将它发送到物理打印机上打印。

---- KillDoc取消当前打印作业。应用程序应该终止由EndDoc和KillD