如何将程序中生成的窗体(窗体中有用Line画出的分析图)直接打印出来？

Question

现在遇到了这样一个问题，本人将一个数据集的分析结果用Line方法直接输出到窗体中，然后想着把窗体直接打印出来。开始用PrintForm打印不行，只是打印出来窗体上的几个文本框，在网上看了一下，有人说用Printer方法可以打印，应该怎么做？请各位高手给指点一下！

Answer 1

在printer对象上使用Line方法，则输出到打印机

Answer 2

 priner.line(x1,y1)-(x2,y2)
 priner.line(x3,y2)-(x4,y4)
.........
 你在窗口上怎么画，在打印机上也怎么画（使用的命令相同），就可以，但你要注意窗口的尺寸和打印机纸张的尺寸是不一样的，要有个策略调整两者尺度不同

Answer 3

 priner.line(x1,y1)-(x2,y2)
 priner.line(x3,y2)-(x4,y4)
.........
 你在窗口上怎么画，在打印机上也怎么画（使用的命令相同），就可以，但你要注意窗口的尺寸和打印机纸张的尺寸是不一样的，要有个策略调整两者尺度不同

Answer 4

在printer对象上使用Line方法？能不能把具体调用Printer的过程写出来？

Answer 5

语法
object.PrintForm
PrintForm 方法示例 
本示例使用 PrintForm 方法打印当前窗体。要检验此示例，可将本例代码粘贴到一个窗体的声明部分。在窗体上放置任何在打印出来的窗体上想要看到的控件，然后按 F5 键并单击该窗体。Private Sub Form_Click ()
   Dim Msg   ' 声明变量。
   On Error GoTo ErrorHandler   ' 设置错误处理程序。
   PrintForm   ' 打印窗体。
   Exit Sub
ErrorHandler:
   Msg = "The form can't be printed."
   MsgBox Msg   ' 显示信息。
   Resume Next
End Sub

Answer 6

PrintForm方法试过了，生成的图形打印不出来呀

Answer 7

打开生成窗体的自动重画。（x.AutoRedraw=true）

Answer 8

恩，已经用Printer对象搞定了，谢谢