奇怪的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