关于VB (Printer)打印问题 请高手赐教

Private Sub Command6_Click()
Printer.Height = 3000 '设置打印信封高度
Printer.Width = 2970 '设置打印信封宽度
Printer.FontSize = 24
Printer.Font = "隶书"

Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth("欢迎使用")) / 2
Printer.Print "欢迎使用"
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth("本计算机程序")) / 2
Printer.Print "本计算机程序"
Printer.FontSize = 18
Printer.Font = "ARIAL BLACK"
j = List1.ListCount - 1
For k = 0 To j
Printer.Print List1.List(k)

Next
End Sub
为什么总要退出Form1 也就是整个程序后才打印.
我想点击Command6 打印出来.应如何解决呢?
请高手赐教!

关于VB的Printer函数问题 关于VB (Printer)打印问题 请高手赐教 vb中的Printer 用法 Printer!!! VB中的PRINTER函数的意义 有谁知道VB中的Printer怎么自定义纸张啊?? vb 中利用printer实现并口打印的编码 能提供vb中Printer的实例吗？ PRINTER是什么意思 GDI Printer