一个在关于Form_Print()的问题.

Question

不要在Paint事件写，因为每当程序重新处于活动状态，Paint事件就会发生，你这是因为发生了两次Paint事件，所以画到下一行去。试试这个：
Private Sub Command1_Click()
Me.AutoRedraw = True
Print ""
Print " 1  2  3  4  5  6  7  8  9  0"
Print ""
Me.AutoRedraw = False
End Sub

Answer 1

Private Sub Form_Paint()
Me.Cls
Print ""
Print " 1  2  3  4  5  6  7  8  9  0"
Print ""
End Sub

Answer 2

jyqing说的对
其实用autoredraw=true后就会自动重绘