vb点打印按钮怎么保存打印记录

1、用户点击打印按钮后，程序先通过打印对话框等方式设置好打印机选项。

2、程序调用PrintDocument对象的Print方法或者Printer对象的Print方法，发送打印命令。

3、打印完成后，程序可以使用文件流或数据库将打印记录保存下来。

Private Sub Command1_Click()

Open "d:\data.txt" For Output As #1

Randomize

Print "输入文件："

For i = 1 To 10

x = 30 + Int(Rnd * 61)

Print #1, x

Print x

Next i

Print

Close #1

Print "从文件中读出："

Open "d:\data.txt" For Input As #1

Dim a(10)

s = 0

For i = 1 To 10

Input #1, a(i)

Print a(i)

s = s + a(i)

Next i

av = s / 10

Print

Print "平均值＝"av

s = 0

For i = 1 To 10

s = s + (a(i) - av) * (a(i) - av)

Next i

s = Sqr(s / 10)

Print "标准方差＝"s

End Sub

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

CrystalReport

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

---