奇怪的ME.PRINTFORM,打印出来是空白的解决方法

奇怪的ME.PRINTFORM,打印出来是空白的
Private   Sub   Form_Activate()

Print   ..... '此处动态显示内容
 
Me.PrintForm

End   Sub

内容可以显示在窗体上,但是打印机打印出来是空白的,而且打印机打印完毕后,窗体也变成空白,何解?

[解决办法]
可以的
Option Explicit

Private Sub Form_Click()
Call Form_Paint
End Sub

Private Sub Form_DblClick()
Me.PrintForm
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_Paint()
Cls
Line (0, 0)-(ScaleWidth, ScaleHeight)
End Sub