VB 如何设置打印

打印Frame1内容之前，先将Form1的窗口宽度高度调整剩下Frame1。或是Frame1放大与窗口同大小。或隐藏控件后再开始打印。VB一直就没支持打印数据的功能，它有个外部支持程序叫

CrystalReport

专门打印报表数据的，找度娘问一下吧（我就觉得它也不好使）。

最方便同时也是最灵活的打印方式是直接利用VB的Printer对象，只要把平时用Print命令输出到窗体的内容直接发到Printer对象即可：

Printer.Print "要打印的内容放在这里"

Printer.Print "打印的内容可以分多行输出"

Printer.Print "也可以把打印内容放到变量中，比如后面的这个x"x

Printer.PaintPicture LoadPicture("图片文件名"), 0, 0'还可以直接在打印机中输出图片

Printer.Line (0, 0) - (3000, 2100)'还可以画线、画圆等等，跟屏幕输出是完全一样的

Printer.EndDoc '这个命令可以把上面要打印的内容真正发往打印机

从应用程序中打印

Visual Basic 为打印正文和图形提供了三种技术。

可在窗体中建立所需要的输出，然后用 PrintForm 方法打印窗体。

Private Sub Command1_Click()

Me.PrintForm

End Sub

通过设置 Printers 集合中的缺省的打印机，可传送正文和图形到打印机。

...

可先传送正文和图形给 Printer 对象，再用 NewPage 和 EndDoc 方法打印。

Option Explicit

Private y As Integer

Private x As Integer

Private txt As String

Private fnt As Integer

Private dd As Variant

'打印函数

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)

Printer.CurrentX = x

Printer.CurrentY = y

Printer.FontSize = fnt

Printer.Print txt

End Function

Private Sub cmdPrint_Click()

fnt = 18

y = 300

x = 500

txt = "打印"

dd = prnt(x, y, fnt, txt)

Printer.EndDoc ' 打印完成。

End Sub

其它如数据查询等请参阅如下网址:

http://zhidao.baidu.com/question/4168806.html

---